DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Function TYazi(gir As Date)
b = Array("", "bir", "iki", "üç", "dört", "beş", "altı", "yedi", "sekiz", "dokuz")
o = Array("", "on", "yirmi", "otuz", "kırk", "elli", "altmış", "yetmiş", "seksen", "doksan")
al = Day(gir)
GoSub coz
TYazi = ekle & Format(gir, "mmmm")
al = Year(gir)
GoSub coz
TYazi = TYazi & ekle
Exit Function
coz:
ekle = ""
uz = Len(al)
For x = 1 To uz
Bul = Mid(al, uz - x + 1, 1)
If Bul > 0 Then
Select Case x
Case 1: ekle = b(Bul)
Case 2: ekle = o(Bul) & ekle
Case 3: ekle = b(Bul) & "yüz" & ekle
Case 4: ekle = b(Bul) & "bin" & ekle
End Select
End If
Next x
ekle = Replace(Replace(ekle, "birbin", "bin"), "biryüz", "yüz")
ekle = WorksheetFunction.Proper(ekle)
Return
End Function