Başlangıç > Kodlar > Visual Basic 6 ile Sayıyı yazıya çeviren fonksiyon

Visual Basic 6 ile Sayıyı yazıya çeviren fonksiyon





Fonksiyon tanımlamaları hariç 3 satır





'Kullanımı text2=sayitoyazi(text1,1)
'hepinize kolay gelsin
'Gazi ÖZEN
'Burda biraz kalabalık dursada
'Vb ye kopyalayınca sadece 3 satır olduğunu görebilirsiniz.
'çok kombinasyon denedim bi hata ya
'rastlamadım...
Function yazi(sayi, hane, uc, s, ss) As String
If (Val(Left(Format(Right(s, 6), "000000"), 3)) <> 1 Or uc <> 1 Or hane <> 1) Then yazi = Choose(Val(sayi) + (Val(hane - 1) * 10) + 1, "", "Bir", "İki", "Üç", "Dört", "Beş", "Altı", "Yedi", "Sekiz", "Dokuz", "", "On", "Yirmi", "Otuz", "Kırk", "Elli", "Atmış", "Yetmiş", "Seksen", "Doksan", "", "Yüz", "İkiYüz", "ÜçYüz", "DörtYüz", "BeşYüz", "AltıYüz", "YediYüz", "SekizYüz", "DokuzYüz")
If hane = 1 And uc > 0 And Val(Mid(Format(s, "000000000000000"), 16 - ((uc + 1) * 3), 3)) <> 0 Then yazi = yazi & Choose(uc + 1, "", "Bin", "Milyon", "Milyar", "Trilyon")
End Function

Function sayitoyazi(t, sira)
If Not (sira > Len(t)) Then sayitoyazi = sayitoyazi(t, sira + 1) & yazi(Mid(t, Len(t) - sira + 1, 1), ((sira - 1) Mod 3) + 1, Int(sira / 3), t, sira)
End Function

 

TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s