Dear mr_beemx,
gf_terbilang(long angka)returns string
string ls_hasil
string abil[11]
abil[1]="satu"
abil[2]="dua"
abil[3]="tiga"
abil[4]="empat"
abil[5]="lima"
abil[6]="enam"
abil[7]="tujuh"
abil[8]="delapan"
abil[9]="sembilan"
abil[10]="sepuluh"
abil[11]="sebelas"
//string labil[] = ('', 'satu', 'dua', 'tiga', 'empat', 'lima',
'enam', 'tujuh', 'delapan', 'sembilan', 'sepuluh','sebelas');
If angka < 12 Then
if angka = 0 then
ls_hasil = ' ' + ''
else
ls_hasil = ' ' + abil[angka]
end if
ElseIf angka < 20 Then
ls_hasil = gf_terbilang(angka - 10) + ' belas'
elseif angka < 100 Then
ls_hasil = gf_terbilang(angka / 10) + ' puluh' +
gf_terbilang(mod(angka,10))
elseif angka < 200 Then
ls_hasil = ' seratus' + gf_terbilang(angka - 100)
elseif angka < 1000 Then
ls_hasil = gf_terbilang(angka / 100) + ' ratus' +
gf_terbilang(mod(angka,100))
elseif angka < 2000 Then
ls_hasil = ' seribu' + gf_terbilang(angka - 1000)
elseif angka < 1000000 Then
ls_hasil = gf_terbilang(angka / 1000) + ' ribu' +
gf_terbilang(mod(angka,1000))
elseif angka < 1000000000 Then
ls_hasil = gf_terbilang(angka / 1000000) + ' juta' +
gf_terbilang(mod(angka,1000000))
End If
return ls_hasil
Contoh pemanggilan fungsi:
messagebox('', gf_terbilang(long(right(sle_1.text,9))) +' Rupiah')
Regards,
Hotdin Gurning
------------------------------------
-----------------------------------------------
IndoPB - Indonesia PB User Group
http://groups.yahoo.com/group/indopbYahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indopb/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/indopb/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[email protected]
mailto:[email protected]
<*> To unsubscribe from this group, send an email to:
[email protected]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
