Tags
Author: Nevzat Gürbüz - Replies: 3 - Views: 1966
Sayıyı yazıya çevirmede kuruşta hata veriyor
Merhaba
Sayın Taruz arkadaşımızın sayıyı yazıya çevirme modulunu kullanıyorum.
Modul:

Function YTL(sayi)
On Error GoTo Taruz

X = InStr(1, sayi, ",")
If X > 0 Then
Lira = yaz$(Mid(sayi, 1, X - 1)) & " TÜRK LİRASI "
TempKurus = Mid(sayi, X + 1, 98)
If Len(TempKurus) = 1 Then TempKurus = TempKurus * 10
If Len(TempKurus) > 2 Then TempKurus = Mid(TempKurus, 1, 2)
Kurus = yaz$(TempKurus) & " KURUŞ"
Else
Lira = yaz$(sayi)