-Gizle-

 Beni Hatırla:



    Tüm Forumlar » ASP » RAKAMI YAZI İLE YAZDIRMA

kalyoncu 
-Üye-

Yaş: 37
Cinsiyet : Bay
Mesaj Sayısı : 45

#13.11.2005 14:27:55
Arkadaşlar değikene atadığımız rakamı nasıl yazıyla yazdırırız?
Rakamla Toplam: <%=FormatNumber("toplam" ) %>TL
Yazıyla Toplam: ? buraya nasıl yazıyla yazdırız.
Örnek: Rakamla Toplam: 12,05 TL
Yazıyla Toplam: oniki-TL beş-KR

--------------------
ikizce group
kalyoncu nickli üyenin bilgileri kalyoncu nickli üyenin web sitesine git kalyoncu nickli üyeye email yolla Sorudandan Alıntı Yapın Soruyu İlgilendiklerim listenize ekleyin q
gencbeyin 
-Üye-
Yaş: 29
Cinsiyet : Bay
Mesaj Sayısı : 562

#13.11.2005 15:55:00
aspindir.com'da konu ile ilgili bir çalışma vardı hatırladığım kadarıyla.
gencbeyin nickli üyenin bilgileri gencbeyin nickli üyenin web sitesine git gencbeyin nickli üyeye email yolla Mesajdan Alıntı Yapın q
merttogay 
-Üye-
Yaş: 32
Cinsiyet : Bay
Mesaj Sayısı : 519

#13.11.2005 16:03:00


<%
'##  
'## formdangelensayi = request.form("sayi" )
'## response.write snum2text(formdangelensayi)
'##  
'## veya;
'##
'## response.write snum2text("1250000" )
'##
'## Fonksiyon sayiyi trilyonlar basamagina kadar desteklemektedir.
'## Script ondalikli sayilarda ÇALISMAMAKTADIR.Bu yüzden ondalikli bir sayi,
'## ortaya çikiyorsa sayinin basina int fonksiyonunu eklemeniz gerekir.
'## response.write snum2text(Int(formdangelensayi))
'##  
'##########
function snum2text(Deger)
dim gelen
dim gelen_cevir
dim sayi1
dim sayi2
dim sayi3
dim sayi4
dim sayi5
dim sayi6
dim sayi7
dim sayi8
dim sayi9
dim sayi10
dim sayi11
dim sayi12
dim sayi13
dim birler
dim onlar
dim yuzler
dim binler
dim onbinler
dim yuzbinler
dim milyonlar
dim onmilyonlar
dim yuzmilyonlar
dim milyarlar
dim onmilyarlar
dim yuzmilyarlar
dim trilyonlar
gelen = Deger
gelen_cevir = StrReverse(gelen)
'*****BIRLER
sayi1 = Right(gelen,1)
If sayi1="0" Then  
birler = ""
ElseIf sayi1="1" Then : birler = "bir"
ElseIf sayi1="2" Then : birler = "iki"
ElseIf sayi1="3" Then : birler = "üç"
ElseIf sayi1="4" Then : birler = "dört"
ElseIf sayi1="5" Then : birler = "beş"
ElseIf sayi1="6" Then : birler = "altı"
ElseIf sayi1="7" Then : birler = "yedi"
ElseIf sayi1="8" Then : birler = "sekiz"
ElseIf sayi1="9" Then : birler = "dokuz"
ElseIf sayi1="" Then : birler = ""
End If
'*****BIRLER
'*****ONLAR
sayi2 = Mid(gelen_cevir,2,1)
If sayi2="0" Then  
onlar = ""
ElseIf sayi2="1" Then : onlar = "on"
ElseIf sayi2="2" Then : onlar = "yirmi"
ElseIf sayi2="3" Then : onlar = "otuz"
ElseIf sayi2="4" Then : onlar = "kırk"
ElseIf sayi2="5" Then : onlar = "elli"
ElseIf sayi2="6" Then : onlar = "altmış"
ElseIf sayi2="7" Then : onlar = "yetmiş"
ElseIf sayi2="8" Then : onlar = "seksen"
ElseIf sayi2="9" Then : onlar = "doksan"
ElseIf sayi2="" Then : onlar = ""
End If
'*****ONLAR
'*****YUZLER
sayi3 = Mid(gelen_cevir,3,1)
If sayi3="0" Then  
yuzler = ""
ElseIf sayi3="1" Then : yuzler = "yüz"
ElseIf sayi3="2" Then : yuzler = "iki yüz"
ElseIf sayi3="3" Then : yuzler = "üç yüz"
ElseIf sayi3="4" Then : yuzler = "dört yüz"
ElseIf sayi3="5" Then : yuzler = "beşyüz"
ElseIf sayi3="6" Then : yuzler = "altı yüz"
ElseIf sayi3="7" Then : yuzler = "yedi yüz"
ElseIf sayi3="8" Then : yuzler = "sekiz yüz"
ElseIf sayi3="9" Then : yuzler = "dokuz yüz"
ElseIf sayi3="" Then : yuzler = ""
End If
'*****YUZLER
'*****BINLER
sayi4 = Mid(gelen_cevir,4,1)
If sayi4="0" Then  
binler = "bin"
ElseIf sayi4="1" Then : binler = "bin"
ElseIf sayi4="2" Then : binler = "iki bin"
ElseIf sayi4="3" Then : binler = "üç bin"
ElseIf sayi4="4" Then : binler = "dört bin"
ElseIf sayi4="5" Then : binler = "beş bin"
ElseIf sayi4="6" Then : binler = "altı bin"
ElseIf sayi4="7" Then : binler = "yedi bin"
ElseIf sayi4="8" Then : binler = "sekiz bin"
ElseIf sayi4="9" Then : binler = "dokuz bin"
ElseIf sayi4="" Then : binler = ""
End If
'*****BINLER
'*****ONBINLER
sayi5 = Mid(gelen_cevir,5,1)
If sayi5="0" Then  
onbinler = ""
ElseIf sayi5="1" Then : onbinler = "on"
ElseIf sayi5="2" Then : onbinler = "yirmi"
ElseIf sayi5="3" Then : onbinler = "otuz"
ElseIf sayi5="4" Then : onbinler = "kırk"
ElseIf sayi5="5" Then : onbinler = "elli"
ElseIf sayi5="6" Then : onbinler = "altmış"
ElseIf sayi5="7" Then : onbinler = "yetmiş"
ElseIf sayi5="8" Then : onbinler = "seksen"
ElseIf sayi5="9" Then : onbinler = "doksan"
ElseIf sayi5="" Then : onbinler = ""
End If
'*****ONBINLER
'*****YUZBINLER
sayi6 = Mid(gelen_cevir,6,1)
If sayi6="0" Then  
yuzbinler = ""
ElseIf sayi6="1" Then : yuzbinler = "yüz"
ElseIf sayi6="2" Then : yuzbinler = "iki yüz"
ElseIf sayi6="3" Then : yuzbinler = "üç yüz"
ElseIf sayi6="4" Then : yuzbinler = "dört yüz"
ElseIf sayi6="5" Then : yuzbinler = "beş yüz"
ElseIf sayi6="6" Then : yuzbinler = "altı yüz"
ElseIf sayi6="7" Then : yuzbinler = "yedi yüz"
ElseIf sayi6="8" Then : yuzbinler = "sekiz yüz"
ElseIf sayi6="9" Then : yuzbinler = "dokuz yüz"
ElseIf sayi6="" Then : yuzbinler = ""
End If
'*****YUZBINLER
'*****MILYONLAR
sayi7 = Mid(gelen_cevir,7,1)
If sayi7="0" Then  
milyonlar = "milyon"
ElseIf sayi7="1" Then : milyonlar = "bir milyon"
ElseIf sayi7="2" Then : milyonlar = "iki milyon"
ElseIf sayi7="3" Then : milyonlar = "üç milyon"
ElseIf sayi7="4" Then : milyonlar = "dört milyon"
ElseIf sayi7="5" Then : milyonlar = "beş milyon"
ElseIf sayi7="6" Then : milyonlar = "altı milyon"
ElseIf sayi7="7" Then : milyonlar = "yedi milyon"
ElseIf sayi7="8" Then : milyonlar = "sekiz milyon"
ElseIf sayi7="9" Then : milyonlar = "dokuz milyon"
ElseIf sayi7="" Then : milyonlar = ""
End If
'*****MILYONLAR
'*****ONMILYONLAR
sayi8 = Mid(gelen_cevir,8,1)
If sayi8="0" Then  
onmilyonlar = ""
ElseIf sayi8="1" Then : onmilyonlar = "on"
ElseIf sayi8="2" Then : onmilyonlar = "yirmi"
ElseIf sayi8="3" Then : onmilyonlar = "otuz"
ElseIf sayi8="4" Then : onmilyonlar = "kırk"
ElseIf sayi8="5" Then : onmilyonlar = "elli"
ElseIf sayi8="6" Then : onmilyonlar = "altmış"
ElseIf sayi8="7" Then : onmilyonlar = "yetmiş"
ElseIf sayi8="8" Then : onmilyonlar = "seksen"
ElseIf sayi8="9" Then : onmilyonlar = "doksan"
ElseIf sayi8="" Then : onmilyonlar = ""
End If
'*****ONMILYONLAR
'*****YUZMILYONLAR
sayi9 = Mid(gelen_cevir,9,1)
If sayi9="0" Then  
yuzmilyonlar = ""
ElseIf sayi9="1" Then : yuzmilyonlar = "yüz"
ElseIf sayi9="2" Then : yuzmilyonlar = "iki yüz"
ElseIf sayi9="3" Then : yuzmilyonlar = "üç yüz"
ElseIf sayi9="4" Then : yuzmilyonlar = "dört yüz"
ElseIf sayi9="5" Then : yuzmilyonlar = "beş yüz"
ElseIf sayi9="6" Then : yuzmilyonlar = "altı yüz"
ElseIf sayi9="7" Then : yuzmilyonlar = "yedi yüz"
ElseIf sayi9="8" Then : yuzmilyonlar = "sekiz yüz"
ElseIf sayi9="9" Then : yuzmilyonlar = "dokuz yüz"
ElseIf sayi9="" Then : yuzmilyonlar = ""
End If
'*****YUZMILYONLAR
'*****MILYARLAR
sayi10 = Mid(gelen_cevir,10,1)
If sayi10="0" Then  
milyarlar = ""
ElseIf sayi10="1" Then : milyarlar = "bir milyar"
ElseIf sayi10="2" Then : milyarlar = "iki milyar"
ElseIf sayi10="3" Then : milyarlar = "üç milyar"
ElseIf sayi10="4" Then : milyarlar = "dört milyar"
ElseIf sayi10="5" Then : milyarlar = "beş milyar"
ElseIf sayi10="6" Then : milyarlar = "altı milyar"
ElseIf sayi10="7" Then : milyarlar = "yedi milyar"
ElseIf sayi10="8" Then : milyarlar = "sekiz milyar"
ElseIf sayi10="9" Then : milyarlar = "dokuz milyar"
ElseIf sayi10="" Then : milyarlar = ""
End If
'*****MILYARLAR
'*****ONMILYARLAR
sayi11 = Mid(gelen_cevir,11,1)
If sayi11="0" Then  
onmilyarlar = ""
ElseIf sayi11="1" Then : onmilyarlar = "on"
ElseIf sayi11="2" Then : onmilyarlar = "yirmi"
ElseIf sayi11="3" Then : onmilyarlar = "otuz"
ElseIf sayi11="4" Then : onmilyarlar = "kırk"
ElseIf sayi11="5" Then : onmilyarlar = "elli"
ElseIf sayi11="6" Then : onmilyarlar = "altmış"
ElseIf sayi11="7" Then : onmilyarlar = "yetmiş"
ElseIf sayi11="8" Then : onmilyarlar = "seksen"
ElseIf sayi11="9" Then : onmilyarlar = "doksan"
ElseIf sayi11="" Then : onmilyarlar = ""
End If
'*****ONMILYARLAR
'*****YUZMILYARLAR
sayi12 = Mid(gelen_cevir,12,1)
If sayi12="0" Then  
yuzmilyarlar = ""
ElseIf sayi12="1" Then : yuzmilyarlar = "yüz"
ElseIf sayi12="2" Then : yuzmilyarlar = "iki yüz"
ElseIf sayi12="3" Then : yuzmilyarlar = "üç yüz"
ElseIf sayi12="4" Then : yuzmilyarlar = "dört yüz"
ElseIf sayi12="5" Then : yuzmilyarlar = "beş yüz"
ElseIf sayi12="6" Then : yuzmilyarlar = "altı yüz"
ElseIf sayi12="7" Then : yuzmilyarlar = "yedi yüz"
ElseIf sayi12="8" Then : yuzmilyarlar = "sekiz yüz"
ElseIf sayi12="9" Then : yuzmilyarlar = "dokuz yüz"
ElseIf sayi12="" Then : yuzmilyarlar = ""
End If
'*****YUZMILYARLAR
'*****TRILYONLAR
sayi13 = Mid(gelen_cevir,13,1)
If sayi13="0" Then  
trilyonlar = ""
ElseIf sayi13="1" Then : trilyonlar = "bir trilyon"
ElseIf sayi13="2" Then : trilyonlar = "iki trilyon"
ElseIf sayi13="3" Then : trilyonlar = "üç trilyon"
ElseIf sayi13="4" Then : trilyonlar = "dört trilyon"
ElseIf sayi13="5" Then : trilyonlar = "beş trilyon"
ElseIf sayi13="6" Then : trilyonlar = "altı trilyon"
ElseIf sayi13="7" Then : trilyonlar = "yedi trilyon"
ElseIf sayi13="8" Then : trilyonlar = "sekiz trilyon"
ElseIf sayi13="9" Then : trilyonlar = "dokuz trilyon"
ElseIf sayi13="" Then : trilyonlar = ""
End If
'*****TRILYONLAR
snum2 = "" &trilyonlar&" " &yuzMilyarlar&" " &onmilyarlar&" " &Milyarlar&" " &yuzMilyonlar&" " &onMilyonlar&" " &Milyonlar&" " &yuzbinler&" " &onbinler&" " &binler&" " &yuzler&" " &onlar&" " &birler&""
snum2text = Trim(snum2)
End function
%>



<%
formdangelensayi ="120000"
response.write snum2text(formdangelensayi)  

%>

merttogay nickli üyenin bilgileri merttogay nickli üyenin web sitesine git merttogay nickli üyeye email yolla Mesajdan Alıntı Yapın q
Sayfa(lar): 1
Sizden başka kimse yok

Selim Topaloğlu | AdresMatik.net | MaxiASP.net | ASP İndir

Alan adı ve bulundurma : Radore

Tasarım ve Kodlama : MaxiASP web team

MaxiASP en az 800*600 çözünürlükte,en iyi Mozilla Firefox ile görüntülenir.

Sayfa Üretilme Süresi: 0,3710938 saniye