Misal nama DataWindow namanya= dw_header
Misal Colom Name yang mau di BILANG kan namanya : jumlah
tinggal bikin Windows function: misal namanya :wf_terbilang
Tinggal manggil! tempatkan di st_terbilang.Text !
------------------------------------------------------------------------------
ilTerbilang = dw_header.GetItemNumber(dw_header.RowCount(),"jumlah")
dw_header.Object.st_terbilang.Text = '# ' + wf_bilang(String(ilTerbilang)) + '
Rupiah #'
------------------------------------------------------------------------------
"wf_terbilang" (string as_bilang) return string -->isinya kayak gini:
-------------------------------------------------------------------------
INT li_LenBil, I
STRING
ls_BilStr,ls_Bs0,ls_Bs1,ls_Bs2,ls_Bs3,ls_TeksKwitansi,ls_TeksJuta,ls_TeksKon,ls_TeksRibu,ls_TeksSatuan,ls_TeksMilyard
STRING ls_Teks,ls_Tsalah,ls_Tbenar,ls_min
ls_Teks='Satu Dua Tiga Empat Lima Enam Tujuh Delapan
SembilanNol '
ls_Tsalah='Satu Puluh Satu Satu Puluh Dua Satu Puluh Tiga Satu Puluh
Empat Satu Puluh Lima Satu Puluh Enam Satu Puluh Tujuh Satu Puluh
Delapan Satu Puluh SembilanSatu Puluh Satu Ratus Nol Ratus
Nol Puluh Nol '
ls_Tbenar='Sebelas Duabelas Tigabelas Empatbelas Limabelas
Enambelas Tujuhbelas Delapanbelas Sembilanbelas Sepuluh Seratus
'
if left(as_bilang,1) = '-' Then
ls_min = 'Min '
as_bilang = right(as_bilang,len(as_bilang) -1 )
end if
ls_BilStr=lefttrim(as_Bilang)
li_LenBil=len(ls_BilStr)
if li_LenBil < 12 then
for I=1 to 12 - li_LenBil
ls_BilStr = '0' + ls_BilStr
next
end if
ls_Bs0 = MID(ls_BilStr,1,3)
ls_Bs1 = MID(ls_BilStr,4,3)
ls_Bs2 = MID(ls_BilStr,7,3)
ls_Bs3 = MID(ls_BilStr,10,3)
ls_TeksMilyard = wf_Koreksi(wf_UbahTeks(ls_Bs0,ls_Teks),ls_Tsalah,ls_Tbenar)
if ls_TeksMilyard <> "" THEN
ls_TeksMilyard = ls_TeksMilyard + ' Milyard '
end if
ls_TeksJuta = wf_Koreksi(wf_UbahTeks(ls_Bs1,ls_Teks),ls_Tsalah,ls_Tbenar)
if ls_TeksJuta <> "" THEN
ls_TeksJuta = ls_TeksJuta + ' Juta '
end if
ls_TeksRibu = wf_Koreksi(wf_UbahTeks(ls_Bs2,ls_Teks),ls_Tsalah,ls_Tbenar)
if ls_TeksRibu <> "" Then
ls_TeksRibu = ls_TeksRibu + ' Ribu '
end if
if ls_TeksRibu = 'Satu Ribu ' Then
ls_TeksRibu = 'Seribu '
end if
ls_TeksSatuan = wf_Koreksi(wf_UbahTeks(ls_Bs3,ls_Teks),ls_Tsalah,ls_Tbenar)
if ls_TeksSatuan <> "" Then
ls_TeksSatuan = ls_TeksSatuan
end if
ls_TeksKwitansi = ls_min + ls_TeksMilyard + ls_TeksJuta + ls_TeksRibu +
ls_TeksSatuan //+ ' Rupiah'
return ls_TeksKwitansi
----- Original Message -----
From: stvhui
To: [email protected]
Sent: Wednesday, December 26, 2007 5:40 PM
Subject: [indopb] Adakah contoh Fungsi Terbilang ?
Hello PB'ers
Adakah contoh Fungsi Terbilang ?
Thanks
Steven 081 2604 1581
