Terbilang Rupiah

Berikut ini akan ditampilakn listing terbilang dalam mata uang rupiah yang sederhana dan cukup panjang.
Yang dibutuhkan dalam fungsi ini adalah adanya 2 textbox txtter1 dan txtter2 serta 1 edit box untuk menampilkan terbilangnya.
Copy paste saja listing berikut dan buat method baru dengan nama terbilang.
Masukkan nominal uang dalam txtter1, kemudian buat command button untuk memanggil method terbilang, maka hasilnya akan ditampilan dalam edit box yang telah dibuat.
Selamat mencoba dan semoga membantu.
* xxxxxxxxxxxxxxxxx awal listing terbilang xxxxxxxxxxxxxxx
thisform.txtter2.value=str(thisform.pageframe1.page4.txtter1.value)
thisform.txtter1.inputmask="999,999,999,999.00"

x = alltrim(thisform.txtter2.value)
digit = len(x)
posisi = digit
satuan = substr(x,posisi,1)
belasan = substr(x,posisi-1,2)
puluhan = substr(x,posisi-1,1)
ratusan = substr(x,posisi-2,1)
ribuan = substr(x,posisi-3,1)
belasanribu = substr(x,posisi-4,2)
satuanribu = substr(x,posisi-3,1)
sepuluhanribu = substr(x,posisi-4,2)
puluhanribu = substr(x,posisi-4,1)
seratusanribu = substr(x,posisi-5,3)
ratusanribu = substr(x,posisi-5,1)
jutaan = substr(x,posisi-6,1)
belasanjuta = substr(x,posisi-7,2)
satuanjuta = substr(x,posisi-6,1)
sepuluhanjuta = substr(x,posisi-7,2)
puluhanjuta = substr(x,posisi-7,1)
seratusanjuta = substr(x,posisi-8,3)
ratusanjuta = substr(x,posisi-8,1)
milyar = substr(x,posisi-9,1)
belasanmilyar = substr(x,posisi-10,2)
satuanmilyar = substr(x,posisi-9,1)
sepuluhanmilyar = substr(x,posisi-10,2)
puluhanmilyar = substr(x,posisi-10,1)
seratusanmilyar = substr(x,posisi-11,3)
ratusanmilyar = substr(x,posisi-11,1)

terbilang1 =""

if satuan = "0"
terbilang1 = ""
else
if satuan = "1"
terbilang1 = "satu"
else
if satuan = "2"
terbilang1 = "dua"
else
if satuan = "3"
terbilang1 = "tiga"
else
if satuan = "4"
terbilang1 = "empat"
else
if satuan = "5"
terbilang1 = "lima"
else
if satuan = "6"
terbilang1 = "enam"
else
if satuan = "7"
terbilang1 = "tujuh"
else
if satuan = "8"
terbilang1 = "delapan"
else
if satuan = "9"
terbilang1 = "sembilan"
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif

terbilang2=""

if belasan = "10"
terbilang1 = "sepuluh"
else
if belasan = "11"
terbilang1 = "sebelas"
else
if belasan = "12"
terbilang1 = "dua belas"
else
if belasan = "13"
terbilang1 = "tiga belas"
else
if belasan = "14"
terbilang1 = "empat belas"
else
if belasan = "15"
terbilang1 = "lima belas"
else
if belasan = "16"
terbilang1 = "enam belas"
else
if belasan = "17"
terbilang1 = "tujuh belas"
else
if belasan = "18"
terbilang1 = "delapan belas"
else
if belasan = "19"
terbilang1 = "sembilan belas"
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif

if puluhan = "2"
terbilang2 = "dua puluh "
else
if puluhan = "3"
terbilang2 = "tiga puluh "
else
if puluhan = "4"
terbilang2 = "empatpuluh "
else
if puluhan = "5"
terbilang2 = "lima puluh "
else
if puluhan = "6"
terbilang2 = "enam puluh "
else
if puluhan = "7"
terbilang2 = "tujuh puluh "
else
if puluhan = "8"
terbilang2 = "delapan puluh "
else
if puluhan = "9"
terbilang2 = "sembilan puluh "
endif
endif
endif
endif
endif
endif
endif
endif

terbilang3=""

if ratusan = "1"
terbilang3 = "seratus "
else
if ratusan = "2"
terbilang3 = "dua ratus "
else
if ratusan = "3"
terbilang3 = "tiga ratus "
else
if ratusan = "4"
terbilang3 = "empat ratus "
else
if ratusan = "5"
terbilang3 = "lima ratus "
else
if ratusan = "6"
terbilang3 = "enam ratus "
else
if ratusan = "7"
terbilang3 = "tujuh ratus "
else
if ratusan = "8"
terbilang3 = "delapan ratus "
else
if ratusan = "9"
terbilang3 = "sembilan ratus "
endif
endif
endif
endif
endif
endif
endif
endif
endif

terbilang4=""

if ribuan = "1" and (substr(x,posisi-5,2)="00" or digit=4)
terbilang4 = "seribu "
else
if ribuan = "1"
terbilang4 = "satu ribu "
else
if ribuan = "2"
terbilang4 = "dua ribu "
else
if ribuan = "3"
terbilang4 = "tiga ribu "
else
if ribuan = "4"
terbilang4 = "empat ribu "
else
if ribuan = "5"
terbilang4 = "lima ribu "
else
if ribuan = "6"
terbilang4 = "enam ribu "
else
if ribuan = "7"
terbilang4 = "tujuh ribu "
else
if ribuan = "8"
terbilang4 = "delapan ribu "
else
if ribuan = "9"
terbilang4 = "sembilan ribu "
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
**************************** 0 s.d. 9999 oke *******************************************

terbilang5=""

if belasanribu = "10"
terbilang4 = "sepuluh ribu "
else
if belasanribu = "11"
terbilang4 = "sebelas ribu "
else
if belasanribu = "12"
terbilang4 = "dua belas ribu "
else
if belasanribu = "13"
terbilang4 = "tiga belas ribu "
else
if belasanribu = "14"
terbilang4 = "empat belas ribu "
else
if belasanribu = "15"
terbilang4 = "lima belas ribu "
else
if belasanribu = "16"
terbilang4 = "enam belas ribu "
else
if belasanribu = "17"
terbilang4 = "tujuh belas ribu "
else
if belasanribu = "18"
terbilang4 = "delapan belas ribu "
else
if belasanribu = "19"
terbilang4 = "sembilan belas ribu "
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif

if puluhanribu = "2"
terbilang5 = "dua puluh "
else
if puluhanribu = "3"
terbilang5 = "tiga puluh "
else
if puluhanribu = "4"
terbilang5 = "empat puluh "
else
if puluhanribu = "5"
terbilang5 = "lima puluh "
else
if puluhanribu = "6"
terbilang5 = "enam puluh "
else
if puluhanribu = "7"
terbilang5 = "tujuh puluh "
else
if puluhanribu = "8"
terbilang5 = "delapan puluh "
else
if puluhanribu = "9"
terbilang5 = "sembilan puluh "
endif
endif
endif
endif
endif
endif
endif
endif

if sepuluhanribu = "20"
terbilang5 = "dua puluh ribu "
else
if sepuluhanribu = "30"
terbilang5 = "tiga puluh ribu "
else
if sepuluhanribu = "40"
terbilang5 = "empat puluh ribu "
else
if sepuluhanribu = "50"
terbilang5 = "lima puluh ribu "
else
if sepuluhanribu = "60"
terbilang5 = "enam puluh ribu "
else
if sepuluhanribu = "70"
terbilang5 = "tujuh puluh ribu "
else
if sepuluhanribu = "80"
terbilang5 = "delapan puluh ribu "
else
if sepuluhanribu = "90"
terbilang5 = "sembilan puluh ribu "
endif
endif
endif
endif
endif
endif
endif
endif

terbilang6=""

if ratusanribu= "1"
terbilang6 = "seratus "
else
if ratusanribu= "2"
terbilang6 = "dua ratus "
else
if ratusanribu= "3"
terbilang6 = "tiga ratus "
else
if ratusanribu= "4"
terbilang6 = "empat ratus "
else
if ratusanribu= "5"
terbilang6 = "lima ratus "
else
if ratusanribu= "6"
terbilang6 = "enam ratus "
else
if ratusanribu= "7"
terbilang6 = "tujuh ratus "
else
if ratusanribu= "8"
terbilang6 = "delapan ratus "
else
if ratusanribu= "9"
terbilang6 = "sembilan ratus "
endif
endif
endif
endif
endif
endif
endif
endif
endif
* ******************** tepat seratusan ribu **************
if seratusanribu= "100"
terbilang6 = "seratus ribu "
else
if seratusanribu= "200"
terbilang6 = "dua ratus ribu "
else
if seratusanribu= "300"
terbilang6 = "tiga ratus ribu "
else
if seratusanribu= "400"
terbilang6 = "empat ratus ribu "
else
if seratusanribu= "500"
terbilang6 = "lima ratus ribu "
else
if seratusanribu= "600"
terbilang6 = "enam ratus ribu "
else
if seratusanribu= "700"
terbilang6 = "tujuh ratus ribu "
else
if seratusanribu= "800"
terbilang6 = "delapan ratus ribu "
else
if seratusanribu= "900"
terbilang6 = "sembilan ratus ribu "
endif
endif
endif
endif
endif
endif
endif
endif
endif

terbilang7 =""

if jutaan = "1"
terbilang7 = "satu juta "
else
if jutaan = "2"
terbilang7 = "dua juta "
else
if jutaan = "3"
terbilang7 = "tiga juta "
else
if jutaan = "4"
terbilang7 = "empat juta "
else
if jutaan = "5"
terbilang7 = "lima juta "
else
if jutaan = "6"
terbilang7 = "enam juta "
else
if jutaan = "7"
terbilang7 = "tujuh juta "
else
if jutaan = "8"
terbilang7 = "delapan juta "
else
if jutaan = "9"
terbilang7 = "sembilan juta "
endif
endif
endif
endif
endif
endif
endif
endif
endif

* xxxxxxxxxxx s.d 9 juta sih oke xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

terbilang8=""

if belasanjuta = "10"
terbilang7 = "sepuluh juta "
else
if belasanjuta = "11"
terbilang7 = "sebelas juta "
else
if belasanjuta = "12"
terbilang7 = "dua belas juta "
else
if belasanjuta = "13"
terbilang7 = "tiga belas juta "
else
if belasanjuta = "14"
terbilang7 = "empat belas juta "
else
if belasanjuta = "15"
terbilang7 = "lima belas juta "
else
if belasanjuta = "16"
terbilang7 = "enam belas juta "
else
if belasanjuta = "17"
terbilang7 = "tujuh belas juta "
else
if belasanjuta = "18"
terbilang7 = "delapan belas juta "
else
if belasanjuta = "19"
terbilang7 = "sembilan belas juta "
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif

if puluhanjuta = "2"
terbilang8 = "dua puluh "
else
if puluhanjuta = "3"
terbilang8 = "tiga puluh "
else
if puluhanjuta = "4"
terbilang8 = "empat puluh "
else
if puluhanjuta = "5"
terbilang8 = "lima puluh "
else
if puluhanjuta = "6"
terbilang8 = "enam puluh "
else
if puluhanjuta = "7"
terbilang8 = "tujuh puluh "
else
if puluhanjuta = "8"
terbilang8 = "delapan puluh "
else
if puluhanjuta = "9"
terbilang8 = "sembilan puluh "
endif
endif
endif
endif
endif
endif
endif
endif

if sepuluhanjuta = "20"
terbilang8 = "dua puluh juta "
else
if sepuluhanjuta = "30"
terbilang8 = "tiga puluh juta "
else
if sepuluhanjuta = "40"
terbilang8 = "empat puluh juta "
else
if sepuluhanjuta = "50"
terbilang8 = "lima puluh juta "
else
if sepuluhanjuta = "60"
terbilang8 = "enam puluh juta "
else
if sepuluhanjuta = "70"
terbilang8 = "tujuh puluh juta "
else
if sepuluhanjuta = "80"
terbilang8 = "delapan puluh juta "
else
if sepuluhanjuta = "90"
terbilang8 = "sembilan puluh juta "
endif
endif
endif
endif
endif
endif
endif
endif

terbilang9 =""

if ratusanjuta = "1"
terbilang9 = "seratus "
else
if ratusanjuta = "2"
terbilang9 = "dua ratus "
else
if ratusanjuta = "3"
terbilang9 = "tiga ratus "
else
if ratusanjuta = "4"
terbilang9 = "empat ratus "
else
if ratusanjuta = "5"
terbilang9 = "lima ratus "
else
if ratusanjuta = "6"
terbilang9 = "enam ratus "
else
if ratusanjuta = "7"
terbilang9 = "tujuh ratus "
else
if ratusanjuta = "8"
terbilang9 = "delapan ratus "
else
if ratusanjuta = "9"
terbilang9 = "sembilan ratus "
endif
endif
endif
endif
endif
endif
endif
endif
endif
* ******************** tepat seratusan juta **************
if seratusanjuta= "100"
terbilang9 = "seratus juta "
else
if seratusanjuta= "200"
terbilang9 = "dua ratus juta "
else
if seratusanjuta= "300"
terbilang9 = "tiga ratus juta "
else
if seratusanjuta= "400"
terbilang9 = "empat ratus juta "
else
if seratusanjuta= "500"
terbilang9 = "lima ratus juta "
else
if seratusanjuta= "600"
terbilang9 = "enam ratus juta "
else
if seratusanjuta= "700"
terbilang9 = "tujuh ratus juta "
else
if seratusanjuta= "800"
terbilang9 = "delapan ratus juta "
else
if seratusanjuta= "900"
terbilang9 = "sembilan ratus juta "
endif
endif
endif
endif
endif
endif
endif
endif
endif

terbilang10 =""

if milyar = "1"
terbilang10 = "satu milyar "
else
if milyar = "2"
terbilang10 = "dua milyar "
else
if milyar = "3"
terbilang10 = "tiga milyar "
else
if milyar = "4"
terbilang10 = "empat milyar "
else
if milyar = "5"
terbilang10 = "lima milyar "
else
if milyar = "6"
terbilang10 = "enam milyar "
else
if milyar = "7"
terbilang10 = "tujuh milyar "
else
if milyar = "8"
terbilang10 = "delapan milyar "
else
if milyar = "9"
terbilang10 = "sembilan milyar "
endif
endif
endif
endif
endif
endif
endif
endif
endif

* xxxxxxxxxxx s.d 9 milyar sih oke xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

terbilang11=""

if belasanmilyar = "10"
terbilang10 = "sepuluh milyar "
else
if belasanmilyar = "11"
terbilang10 = "sebelas milyar "
else
if belasanmilyar = "12"
terbilang10 = "dua belas milyar "
else
if belasanmilyar = "13"
terbilang10 = "tiga belas milyar "
else
if belasanmilyar = "14"
terbilang10 = "empat belas milyar "
else
if belasanmilyar = "15"
terbilang10 = "lima belas milyar "
else
if belasanmilyar = "16"
terbilang10 = "enam belas milyar "
else
if belasanmilyar = "17"
terbilang10 = "tujuh belas milyar "
else
if belasanmilyar = "18"
terbilang10 = "delapan belas milyar "
else
if belasanmilyar = "19"
terbilang10 = "sembilan belas milyar "
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif

if puluhanmilyar = "2"
terbilang11 = "dua puluh "
else
if puluhanmilyar = "3"
terbilang11 = "tiga puluh "
else
if puluhanmilyar = "4"
terbilang11 = "empat puluh "
else
if puluhanmilyar = "5"
terbilang11 = "lima puluh "
else
if puluhanmilyar = "6"
terbilang11 = "enam puluh "
else
if puluhanmilyar = "7"
terbilang11 = "tujuh puluh "
else
if puluhanmilyar = "8"
terbilang11 = "delapan puluh "
else
if puluhanmilyar = "9"
terbilang11 = "sembilan puluh "
endif
endif
endif
endif
endif
endif
endif
endif

if sepuluhanmilyar = "20"
terbilang11 = "dua puluh milyar "
else
if sepuluhanmilyar = "30"
terbilang11 = "tiga puluh milyar "
else
if sepuluhanmilyar = "40"
terbilang11 = "empat puluh milyar "
else
if sepuluhanmilyar = "50"
terbilang11 = "limapuluh milyar "
else
if sepuluhanmilyar = "60"
terbilang11 = "enam puluh milyar "
else
if sepuluhanmilyar = "70"
terbilang11 = "tujuh puluh milyar "
else
if sepuluhanmilyar = "80"
terbilang11 = "delapan puluh milyar "
else
if sepuluhanmilyar = "90"
terbilang11 = "sembilan puluh milyar "
endif
endif
endif
endif
endif
endif
endif
endif

terbilang12 =""

if ratusanmilyar = "1"
terbilang12 = "seratus "
else
if ratusanmilyar = "2"
terbilang12 = "duaratus "
else
if ratusanmilyar = "3"
terbilang12 = "tigaratus "
else
if ratusanmilyar = "4"
terbilang12 = "empatratus "
else
if ratusanmilyar = "5"
terbilang12 = "limaratus "
else
if ratusanmilyar = "6"
terbilang12 = "enamratus "
else
if ratusanmilyar = "7"
terbilang12 = "tujuhratus "
else
if ratusanmilyar = "8"
terbilang12 = "delapanratus "
else
if ratusanmilyar = "9"
terbilang12 = "sembilanratus "
endif
endif
endif
endif
endif
endif
endif
endif
endif
* ******************** tepat seratusan milyar **************
if seratusanmilyar = "100"
terbilang12 = "seratus milyar "
else
if seratusanmilyar = "200"
terbilang12 = "duaratus milyar "
else
if seratusanmilyar = "300"
terbilang12 = "tigaratus milyar "
else
if seratusanmilyar = "400"
terbilang12 = "empatratus milyar "
else
if seratusanmilyar = "500"
terbilang12 = "limaratus milyar "
else
if seratusanmilyar = "600"
terbilang12 = "enamratus milyar "
else
if seratusanmilyar = "700"
terbilang12 = "tujuhratus milyar "
else
if seratusanmilyar = "800"
terbilang12 = "delapanratus milyar "
else
if seratusanmilyar = "900"
terbilang12 = "sembilanratus milyar "
endif
endif
endif
endif
endif
endif
endif
endif
endif


if val(thisform.txtter2.value) = 0
matauang = "nihil"
else
matauang = " rupiah"
endif

SEMUA=(terbilang12+ terbilang11 + terbilang10 + terbilang9 + terbilang8 + terbilang7 + terbilang6 + terbilang5 + terbilang4 + terbilang3 + terbilang2 + terbilang1 + matauang)

THISFORM.edit1.Value=PROPER(left(semua,1))+substr(semua,2,100)

* xxxxxxxxxxxxxxxxx akhir listing terbilang xxxxxxxxxxxxxxx