[mcanli]

Arkadaşlar merhaba

PHP ve ASP.NET ile verilen bir rakamı yazıya çevirme işlemini yapan kodlar mevcut ama ASP ile yapılanını aramalarımda bulamadım.

Yardımlarınız için şimdiden teşekkür ederim.

[mcanli]

ben sorunumu çözdüm.

<%
dim tutar
tutar="158,5"
tutar=replace(tutar,".",",")
virgul=instr(1,tutar,",")
sol_taraf=mid(tutar,1,virgul-1)
sag_taraf=mid(tutar,virgul+1,2)

'ALTINCI BASAMAĞI YAZMA
if len(sol_taraf)=6 then
basamak6=int(sol_taraf/100000)
if basamak6=1 then basamak_alti="YÜZ"
if basamak6=2 then basamak_alti="İKİ YÜZ"
if basamak6=3 then basamak_alti="ÜÇ YÜZ"
if basamak6=4 then basamak_alti="DÖRT YÜZ"
if basamak6=5 then basamak_alti="BEŞ YÜZ"
if basamak6=6 then basamak_alti="ALTI YÜZ"
if basamak6=7 then basamak_alti="YEDİ YÜZ"
if basamak6=8 then basamak_alti="SEKİZ YÜZ"
if basamak6=9 then basamak_alti="DOKUZ YÜZ"
if basamak6=0 then basamak_alti=""
sol_taraf=mid(sol_taraf,2,len(sol_taraf)-1)
end if

'BEŞİNCİ BASAMAĞI YAZMA
if len(sol_taraf)=5 then
basamak5=int(sol_taraf/10000)
if basamak5=1 then basamak_bes="ON"
if basamak5=2 then basamak_bes="YİRMİ"
if basamak5=3 then basamak_bes="OTUZ"
if basamak5=4 then basamak_bes="KIRK"
if basamak5=5 then basamak_bes="ELLİ"
if basamak5=6 then basamak_bes="ATMIŞ"
if basamak5=7 then basamak_bes="YETMİŞ"
if basamak5=8 then basamak_bes="SEKSEN"
if basamak5=9 then basamak_bes="DOKSAN"
if basamak5=0 then basamak_bes=""
sol_taraf=mid(sol_taraf,2,len(sol_taraf)-1)
end if

'DÖRDÜNCÜ BASAMAĞI YAZMA
if len(sol_taraf)=4 then
basamak4=int(sol_taraf/1000)
if basamak4=1 then
if basamak5<>"" then
basamak_dort="BİR BİN"
else
basamak_dort="BİN"
end if
end if
if basamak4=2 then basamak_dort="İKİ BİN"
if basamak4=3 then basamak_dort="ÜÇ BİN"
if basamak4=4 then basamak_dort="DÖRT BİN"
if basamak4=5 then basamak_dort="BEŞ BİN"
if basamak4=6 then basamak_dort="ALTI BİN"
if basamak4=7 then basamak_dort="YEDİ BİN"
if basamak4=8 then basamak_dort="SEKİZ BİN"
if basamak4=9 then basamak_dort="DOKUZ BİN"
if basamak4=0 then
if basamak5<>"" then
basamak_dort="BİN"
else
basamak_dort=""
end if
end if
sol_taraf=mid(sol_taraf,2,len(sol_taraf)-1)
end if

'ÜÇÜNCÜ BASAMAĞI YAZMA
if len(sol_taraf)=3 then
basamak3=int(sol_taraf/100)
if basamak3=1 then basamak_uc="YÜZ"
if basamak3=2 then basamak_uc="İKİYÜZ"
if basamak3=3 then basamak_uc="ÜÇYÜZ"
if basamak3=4 then basamak_uc="DÖRTYÜZ"
if basamak3=5 then basamak_uc="BEŞYÜZ"
if basamak3=6 then basamak_uc="ALTIYÜZ"
if basamak3=7 then basamak_uc="YEDİYÜZ"
if basamak3=8 then basamak_uc="SEKİZYÜZ"
if basamak3=9 then basamak_uc="DOKUZYÜZ"
if basamak3=0 then basamak_uc=""
sol_taraf=mid(sol_taraf,2,len(sol_taraf)-1)
end if

'İKİNCİ BASAMAĞI YAZMA
if len(sol_taraf)=2 then
basamak2=int(sol_taraf/10)
if basamak2=1 then basamak_iki="ON"
if basamak2=2 then basamak_iki="YİRMİ"
if basamak2=3 then basamak_iki="OTUZ"
if basamak2=4 then basamak_iki="KIRK"
if basamak2=5 then basamak_iki="ELLİ"
if basamak2=6 then basamak_iki="ATMIŞ"
if basamak2=7 then basamak_iki="YETMİŞ"
if basamak2=8 then basamak_iki="SEKSEN"
if basamak2=9 then basamak_iki="DOKSAN"
if basamak2=0 then basamak_iki=""
sol_taraf=mid(sol_taraf,2,len(sol_taraf)-1)
end if

'BİRİNCİ BASAMAĞI YAZMA
if len(sol_taraf)=1 then
basamak1=int(sol_taraf/1)
if basamak1=1 then basamak_bir="BİR"
if basamak1=2 then basamak_bir="İKİ"
if basamak1=3 then basamak_bir="ÜÇ"
if basamak1=4 then basamak_bir="DÖRT"
if basamak1=5 then basamak_bir="BEŞ"
if basamak1=6 then basamak_bir="ALTI"
if basamak1=7 then basamak_bir="YEDİ"
if basamak1=8 then basamak_bir="SEKİZ"
if basamak1=9 then basamak_bir="DOKUZ"
if basamak1=0 then basamak_bir=""
sol_taraf=mid(sol_taraf,2,len(sol_taraf)-1)
end if


'SAĞ TARAFIN İKİNCİ BASAMAĞI YAZMA
if len(sag_taraf)=2 then
basamak2=int(sag_taraf/10)
if basamak2=1 then basamak_k_iki="ON"
if basamak2=2 then basamak_k_iki="YİRMİ"
if basamak2=3 then basamak_k_iki="OTUZ"
if basamak2=4 then basamak_k_iki="KIRK"
if basamak2=5 then basamak_k_iki="ELLİ"
if basamak2=6 then basamak_k_iki="ATMIŞ"
if basamak2=7 then basamak_k_iki="YETMİŞ"
if basamak2=8 then basamak_k_iki="SEKSEN"
if basamak2=9 then basamak_k_iki="DOKSAN"
if basamak2=0 then basamak_k_iki=""
sag_taraf=mid(sag_taraf,2,len(sag_taraf)-1)
end if


'SAĞ TARAFIN BİRİNCİ BASAMAĞI YAZMA
if len(sag_taraf)=1 then
basamak1=int(sag_taraf/1)
if basamak1=1 then basamak_k_bir="BİR"
if basamak1=2 then basamak_k_bir="İKİ"
if basamak1=3 then basamak_k_bir="ÜÇ"
if basamak1=4 then basamak_k_bir="DÖRT"
if basamak1=5 then basamak_k_bir="BEŞ"
if basamak1=6 then basamak_k_bir="ALTI"
if basamak1=7 then basamak_k_bir="YEDİ"
if basamak1=8 then basamak_k_bir="SEKİZ"
if basamak1=9 then basamak_k_bir="DOKUZ"
if basamak1=0 then basamak_k_bir=""
sag_taraf=mid(sag_taraf,2,len(sag_taraf)-1)
end if
dim kurus
if not basamak_k_iki = "" or not basamak_k_bir = "" then
kurus = "&nbsp;"&basamak_k_iki&"&nbsp;"&basamak_k_bir& " YENİ KURUŞ"
end if
response.write "yazi_ile|<b><font color=red>"&basamak_alti&"&nbsp;"&basamak_bes&"&nb sp;"&basamak_dort&"&nbsp;"&basamak_uc&"&nbsp;"&bas amak_iki&"&nbsp;"&basamak_bir&" YENİ TÜRK LİRASI "&kurus&"</font></b>"
'response.write "yazi_ile|<b><font color=red> YENİ KURUŞ</font></b>"
%>

[gemeaux]

Sayıyı Yazıya Dönüştürme