Posted under Visual Basic
‘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