Konfersi Angka Ke Huruf (Terbilang) dengan VB

=> Konfersi Angka ke Bilangan

Function Num2Word(ByVal n As Currency) As String

Dim Satuan As Variant

Satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")

Select Case n

Case 0 To 11

Num2Word = " " + Satuan(Fix(n))

Case 12 To 19

Num2Word = Num2Word(n Mod 10) + " Belas"

Case 20 To 99

Num2Word = Num2Word(Fix(n / 10)) + " Puluh" + Num2Word(n Mod 10)

Case 100 To 199

Num2Word = " Seratus" + Num2Word(n - 100)

Case 200 To 999

Num2Word = Num2Word(Fix(n / 100)) + " Ratus" + Num2Word(n Mod 100)

Case 1000 To 1999

Num2Word = " Seribu" + Num2Word(n - 1000)

Case 2000 To 999999

Num2Word = Num2Word(Fix(n / 1000)) + " Ribu" + Num2Word(n Mod 1000)

Case 1000000 To 999999999

Num2Word = Num2Word(Fix(n / 1000000)) + " Juta" + Num2Word(n Mod 1000000)

Case Else

Num2Word = Num2Word(Fix(n / 1000000000)) + " Milyar" + Num2Word(n Mod 1000000000)

End Select

End Function

Private Sub Command1_Click()

Text1.Text = Val(Text2.Text) * Val(Text3.Text)

End Sub

Private Sub Text1_Change()

On Error Resume Next

If Text1.Text <> "" Then Label1.Caption = Num2Word(Text1.Text) + " Rupiah" Else Label1.Caption = ""

End Sub