Soru @İ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.