Berikut function nya :
Function terbilang(ByVal n As Double) As String
Dim satuan As String() = {"", " Satu", " Dua", " Tiga", " Empat", " Lima", " Enam", " Tujuh", " Delapan", " Sembilan", "Sepuluh", "Sebelas"}
Select Case n
Case 0 To 11
terbilang = "" + satuan(Fix(n))
Case 11 To 19
terbilang = terbilang(n Mod 10) + " Belas"
Case 20 To 99
terbilang = terbilang(Fix(n / 10)) + " Puluh" + terbilang(n Mod 10)
Case 100 To 199
terbilang = " Seratus" + terbilang(n - 100)
Case 200 To 999
terbilang = terbilang(Fix(n / 100)) + " Ratus" + terbilang(n Mod 100)
Case 1000 To 1999
terbilang = " Seribu" + terbilang(n - 1000)
Case 2000 To 999999
terbilang = terbilang(Fix(n / 1000)) + " Ribu" + terbilang(n Mod 1000)
Case 1000000 To 999999999
terbilang = terbilang(Fix(n / 1000000)) + " Juta" + terbilang(n Mod 1000000)
Case 1000000000 To 999999999999
terbilang = terbilang(Fix(n / 1000000000)) + " Milyar" + terbilang(n Mod 1000000000)
Case Else
terbilang = terbilang(Fix(n / 1000000000000)) + " Triliyun" + terbilang(n Mod 1000000000000)
End Select
End Function
Cara Penggunaan :
- Siapkan sebuah label = label29.text
- Siapkan sebuah textbox = textbox25.text
- lalu panggil function tersebut dengan coding berikut
Label29.Text = Format(TextBox25.Text, "Rp ###,###,###,##")
Label29.Text = UCase(terbilang(TextBox25.Text)) & " RUPIAH"
Nah catatanya adalah sesuaikan di event mana pemanggil function ini anda letakan..
Happy Coding.. klo raggu bisa chat admin
EmoticonEmoticon