Konversi Angka ke Huruf menggunakan VB.NET

Function konversi angka ke huruf atau sebagian orang yang berkecimpung di dalam dunia pemograman biasa menyebutnya dengan Terbilang, kebetulan saya coba menyederhanakan fungsi terbilang yang pernah saya buat menggunakan VB klasik dengan menggunakan VB .NET. berikut fungsi terbilang menggunakan VB .NET mencakup sampai dengan bilangan Trilyun

Code :

Function Terbilang(ByVal myNum As Double) As String
Dim myString As String() = {“”, “satu”, “dua”, “tiga”, “empat”, “lima”, _
“enam”, “tujuh”, “delapan”, “sembilan”, “sepuluh”, “sebelas”}
Dim myTmpString As String = “”
Select Case myNum
Case Is < 12
myTmpString = myString(myNum)
Case Is < 20
myTmpString = Terbilang(myNum – 10) + ” ” + “belas”
Case Is < 100
If Microsoft.VisualBasic.Right(myNum, 1) > 0 Then
myTmpString = Terbilang(Int(myNum / 10)) + ” ” + “puluh”
+ ” ” + Terbilang(myNum Mod 10)
Else
myTmpString = Terbilang(Int(myNum / 10)) + ” ” + “puluh”
End If
Case Is < 200
myTmpString = “seratus” + ” ” + Terbilang(myNum – 100)
Case Is < 1000
myTmpString = Terbilang(Int(myNum / 100)) + ” ” + “ratus”
+ ” ” + Terbilang(myNum Mod 100)
Case Is < 2000
myTmpString = “seribu” + ” ” + Terbilang(myNum – 1000)
Case Is < 1000000
myTmpString = Terbilang(Int(myNum / 1000)) + ” ” + “ribu”
+ ” ” + Terbilang(myNum Mod 1000)
Case Is < 1000000000
myTmpString = Terbilang(Int(myNum / 1000000)) + ” ” + “juta”
+ ” ” + Terbilang(myNum Mod 1000000)
Case Is < 1000000000000
myTmpString = Terbilang(Int(myNum / 1000000000)) + ” ” + “milyar”
+ ” ” + Terbilang(myNum Mod 1000000000)
Case Is < 1000000000000000
myTmpString = Terbilang(Int(myNum / 1000000000000)) + ” “
+ “trilyun” + ” ” + Terbilang(myNum Mod 1000000000000)
End Select
Return myTmpString
End Function