Çözüldü @İdris SERDAR hocamın dosyasına revize hk. (Saatlere gelen ekler)

[gy121]

Rahmetli @İdris SERDAR hocamın dosyasınındaki formüle, sert sessizlere göre te/ta eki'ninde ilave edilmesini sağlıyabilir miyiz?

 

[Korhan Ayhan]

Eki deneyiniz.

 

[gy121]

@Korhan Ayhan hocam saatlerin dakika ekleri tamam, aşağıdaki örnekte verdiğim tam saatlere de sert sessizleri uygulayabilir misiniz? Formülünüzde tam saatlere sadece "da" eki geliyor.
01.00'de
02.00'de
03.00'te
04.00'te
05.00'te
06.00'da
07.00'de
08.00'de
09.00'da
10.00'da
11.00'de
12.00'de
13.00'te
14.00'te
15.00'te
16.00'da
17.00'de
18.00'de
19.00'da
20.00'de
21.00'de
22.00'de
23.00'te

 

[Haluk]

Rahmetli @İdris SERDAR hocamın dosyasınındaki formüle, sert sessizlere göre te/ta eki'ninde ilave edilmesini sağlıyabilir miyiz?

İdris Abi'nin adını yazarken başına "@" koyunca, herhalde ona da bildirim gitmiştir.....

"Sayın İdris Serdar, bir mesajda gy121 sizden bahsetti"....

Allah rahmet eylesin, nurlar içinde yatsın....

.

 

[gy121]

İdris Abi'nin adını yazarken başına "@" koyunca, herhalde ona da bildirim gitmiştir.....

"Sayın İdris Serdar, bir mesajda gy121 sizden bahsetti"....

Allah rahmet eylesin, nurlar içinde yatsın....

.

Amin hocam. Eminim kendisinin anıldığını hissetmiştir. Allah mekanını cennet eylesin.

 

[veyselemre]

KTF kullanmak isterseniz. Kodları modüle ekleyip,
=saatlereDeDaEkle(A2)
şeklinde kullanabilirsiniz.

Function saatlereDeDaEkle(zaman As Double)
    Dim sonKar$, coz$, ek$, i As Byte
    coz = Format(IIf(Minute(zaman) = 0, Hour(zaman), Minute(zaman)), "00")
    If coz = "00" Then
        saatlereDeDaEkle = "da"
    Else
        coz = StrReverse( _
              Array("", "on", "yirmi", "otuz", "kırk", "elli")(Left(coz, 1)) & _
              Array("", "bir", "iki", "üç", "dört", "beş", "altı", "yedi", "sekiz", "dokuz")(Right(coz, 1)) _
              )
        For i = 1 To Len(coz)
            sonKar = Mid(coz, i, 1)
            If i = 1 Then ek = IIf(InStr("fstkçşhp", sonKar), "t", "d")
            If InStr("aeıioöuü", sonKar) Then Exit For
        Next i
        saatlereDeDaEkle = ek & IIf(InStr("aıou", sonKar), "a", "e")
    End If
End Function

 

[gy121]

Çok teşekkürler. Formüllü çözüm olursa daha makbule geçer.

 

[Korhan Ayhan]

Merhaba,

#2 nolu mesaj ekindeki dosyayı güncelledim. Tekrar deneyiniz.

 

[gy121]

Merhaba,

#2 nolu mesaj ekindeki dosyayı güncelledim. Tekrar deneyiniz.

@Korhan Ayhan hocam formülünüz için çok teşekkür ederim. Sadece saat 20.00'da sonucu yanlış gözüküyor ( Doğrusu 20.00'de olması gerekiyor). Artık o da önemli değil. Sadece saat 20 için formüle ekleme yapılabilir mi bilmiyorum.

 

[Korhan Ayhan]

Merhaba,

#2 nolu mesaj ekindeki dosyayı güncelledim. Tekrar deneyiniz. Sanırım bu sefer oldu gibi..

 

[gy121]

Merhaba,

#2 nolu mesaj ekindeki dosyayı güncelledim. Tekrar deneyiniz. Sanırım bu sefer oldu gibi..

Tamamdır hocam elleriniz dert görmesin. Yalnız en alta 00.00 ekledim yok hatası verdi hocam.

 

[Korhan Ayhan]

Bu koşulu sizde formülün başına ekleyebilirsiniz.

Yine de tam sonuç vermesi adına #2 nolu mesajda ki dosyayı tekrar revize ettim.

 

[gy121]

Hocam formül bozuldu maalesef. Ben o yüzden bir önceki dosyayı buraya yüklüyorum. Belki kullanmak isteyenler olabilir. Herşey için çok teşekkürler.

 

[Korhan Ayhan]

Tekrar güncelledim. Deneyiniz.

 

[gy121]

Tekrar güncelledim. Deneyiniz.

Eyvallah @Korhan Ayhan hocam sizi yordum. Hakkınızı helal edin.