Programalama > VISUAL BASIC


Ort. 0
Puan ver:
Public Function yazıyla(tex As String) As String
bir = Array(" ", "bir", "iki", "üç", "dört", "beş", "altı", "yedi", "sekiz", "dokuz")
onluk = Array(" ", " on ", " yirmi ", "otuz ", " kırk ", " elli ", " atmış ", " yetmiş ", " seksen ", " doksan ")
yuzluk = Array(" ", " yüz ", " ikiyüz ", " üçyüz ", " dörtyüz ", " beşyüz ", " altıyüz ", " yediyüz ", " sekizyüz ", "dokuzyüz")
ucluk = Array("", " ", " bin ", " milyon ", " milyar ", " trilyon ", " katrilyon ", " kentrilyon ", " abartıyon ")
If Len(tex) Mod 3 = 1 Then tex = "00" & tex
If Len(tex) Mod 3 = 2 Then tex = "0" & tex
For i = CInt(CInt(Len(tex) + 0.4) / 3) To 1 Step -1
k = k + 1
x = Trim(yuzluk(Mid(tex, (i * 3) - 2, 1)) & onluk(Mid(tex, (i * 3) - 1, 1)) & bir(Mid(tex, (i * 3), 1)))
yazıyla = yuzluk(Mid(tex, (i * 3) - 2, 1)) & onluk(Mid(tex, (i * 3) - 1, 1)) & bir(Mid(tex, (i * 3), 1)) & IIf(x = "", ucluk(0), ucluk(k)) & yazıyla
Next i
End Function


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.