Buat Module baru dengan nama Mod_terbilang :
isi script didalamnya :
![[Valid RSS]](valid-rss.png "Validate my RSS feed"){kind=small}
Function NumToText(dblValue As Double) As String
Static ones(0 To 9) As String
Static teens(0 To 9) As String
Static tens(0 To 9) As String
Static thousands(0 To 4) As String
Dim i As Integer, nPosition As Integer
Dim nDigit As Integer, bAllZeros As Integer
Dim strResult As String, strTemp As String
Dim tmpBuff As String
ones(0) = ""
ones(1) = "one"
ones(2) = "two"
ones(3) = "three"
ones(4) = "four"
ones(5) = "five"
ones(6) = "six"
ones(7) = "seven"
ones(8) = "eight"
ones(9) = "nine"
teens(0) = ""
teens(1) = "eleven"
teens(2) = "twenteen"
teens(3) = "thirteen"
teens(4) = "fourteen"
teens(5) = "fiveteen"
teens(6) = "sixteen"
teens(7) = "seventeen"
teens(8) = "eighteen"
teens(9) = "nineteen"
tens(0) = ""
tens(1) = "ten"
tens(2) = "twenty"
tens(3) = "thirty"
tens(4) = "fourty"
tens(5) = "fivety"
tens(6) = "sixty"
tens(7) = "seventy"
tens(8) = "eighty"
tens(9) = "ninety"
thousands(0) = ""
thousands(1) = "thousand"
thousands(2) = "million"
thousands(3) = "billion"
thousands(4) = "triliun"
'Errors Handler
On Error GoTo NumToTextError
'Bagian akhir
strResult = "rupiah "
'Konversi ke string
Dim des, j, t1, t2
Dim ada As Boolean
For j = 1 To Len(totalbiaya)
des = Mid(totalbiaya, j, 1)
If des = "." Or des = "," Then
ada = True
t1 = Mid(totalbiaya, 1, j - 1)
t2 = Mid(totalbiaya, j 1)
j = Len(totalbiaya)
End If
Next j
If ada = True Then
strTemp = CStr(Int(t1))
ada = False
Else
strTemp = CStr(Int(dblValue))
End If
' strTemp = CStr(Int(dblValue))
'Diulang sebanyak panjang teks
For i = Len(strTemp) To 1 Step -1
'Ambil nilai angka posisi ke-i
nDigit = Val(Mid$(strTemp, i, 1))
'Ambil posisi angka
nPosition = (Len(strTemp) - i) 1
'Pilihan proses tergantung posisi satuan, puluhan, atau ratusan
Select Case (nPosition Mod 3)
Case 1 'Posisi satuan
bAllZeros = False
If i = 1 Then
tmpBuff = ones(nDigit)
mas bisa di tampilkan Form nya sekalian,,, Biar Lebih Jelas Githu. Thx
Mas mohon bantuannya ..... berhubung saya baru belajar VB jd sewaktu saya jalannkan coding yg mas buat kok error yaa, saya bisa di kasih programnya secara utuh mas.... Makasih .....
ass..wrwb,,mas maap sedikit ngrepoti. Mau nanya ni caranya mengkonversi angka menjadi terbilang menggunakan crystal report gimana ya mas? menggunakan formula tu bisa gk? Makasih ya mas taofik...
ass..wrwb,,mas maap sedikit ngrepoti. Mau nanya ni caranya mengkonversi angka menjadi terbilang menggunakan crystal report gimana ya mas? menggunakan formula tu bisa gk? Makasih ya mas taofik...
mas aq mau tanya nih..gimana cara mengatasi VB yg error..
hee....aq udah pusing diotak-atik jg ga' mau bner..contohnya pada "t2 = Mid(totalbiaya, j 1)", dan "nPosition = (Len(strTemp) - i) 1"..klo merahkan berarti masih eror tuh mas...tolongin ya mas..terimakasih sebelumnya.
Ass.. Mas/Pak af1 ni sy masi bingung tntg tgs akhir TI..kmrin ngajuin proposal tntg aplikasi faroid tp uda pnah diambil org...mhn bantuannya ya mas/pak, kira2 punya usulan judul lain ga? syukron sblmnya..
aslm mas... kalo fungsi terbilang pada crystal report gimana caranya??? contohnya untuk pencetakan faktur penjualan. makasih seblumnya ya mas....
Fungsi Terbilang Indonesia Transaksi Ratusan Triliun Buat Function di Class Module, ketikkan kode seperti di bawah ini : [code] Public Function Terbilang(ByRef Indx As String) As String Dim satu(10) As String Dim dua(10) As String Dim tiga(10) As String Dim ratus As String Dim ribu As String Dim juta As String Dim Millyar As String Dim Trilliun As String satu(0) = "Nol": satu(1) = "Satu": satu(2) = "Dua": satu(3) = "Tiga": satu(4) = "Empat": satu(5) = "Lima": satu(6) = "Enam": satu(7) = "Tujuh": satu(8) = "Delapan": satu(9) = "Sembilan" dua(0) = "Sepuluh": dua(1) = "Sebelas": dua(2) = "Dua belas": dua(3) = "Tiga belas": dua(4) = "Empat Belas": dua(5) = "Lima Belas": dua(6) = "Enam Belas": dua(7) = "Tujuh belas": dua(8) = "Delapan belas": dua(9) = "Sembilan belas" tiga(2) = "Dua puluh": tiga(3) = "Tiga puluh": tiga(4) = "Empat puluh": tiga(5) = "Lima puluh": tiga(6) = "Enam Puluh": tiga(7) = "Tujuh Puluh": tiga(8) = "Delapan puluh": tiga(9) = "Sembilan puluh" ratus = "ratus": ribu = "ribu": juta = "juta" Millyar = "millyar": Trilliun = "trilliun" Dim inp, BhsNilai As String inp = CStr(Val(Indx)) Select Case Len(inp) Case 1 BhsNilai = satu(CInt(Indx)) Case 2 If Int(CDbl(Right(inp, 1))) > 0 And CDbl(Left(inp, 1)) > 1 Then BhsNilai = Terbilang(CStr(Int(CDbl(Right(inp, 1))))) If CDbl(Left(inp, 1)) > 1 Then BhsNilai = tiga(CInt(Left(inp, 1)))
rumus sintax anda sangat menari tapi ada gak sintag yg lebih sinkat lagi
Untuk mas yudu, ada mas yang lebih singkat ini :
» Komponen Google Earth (GE) (45)Menggunakan Crytal Report 8.5 menggunkan script dan Crviewer, component dari Crystal Report
» Source SMS Autorespond (400)Kita tidak perlu keluar sistem untuk menampilkan GE pada program aplikasi kita
» Memecah Komponen Warna (38)Source-code SMS AR dalam Visual Basic
» Merubah Status Yahoo! Messenger (78)Untuk para desainer di komputer, penentuan komponen warna sangatlah berpengaruh pada hasil desain
Bagi yang sering memanfaatkan IM (Instant Messenger) ini, kemungkinan besar sering memanfaatkan fasilitas status dan availibilty.