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