public static string Terbilang(int x)
{
string[] bilangan = {"", "satu", "dua", "tiga", "empat", "lima",
"enam", "tujuh", "delapan", "sembilan", "sepuluh",
"sebelas"};
string temp = "";
if (x < 12)
{
temp = " " + bilangan[x];
}
else if (x < 20)
{
temp = Terbilang(x - 10).ToString() + " belas";
}
else if (x < 100)
{
temp = Terbilang(x / 10) + " puluh" + Terbilang(x % 10);
}
else if (x < 200)
{
temp = " seratus" + Terbilang(x - 100);
}
else if (x < 1000)
{
temp = Terbilang(x / 100) + " ratus" + Terbilang(x % 100);
}
else if (x < 2000)
{
temp = " seribu" + Terbilang(x - 1000);
}
else if (x < 1000000)
{
temp = Terbilang(x / 1000) + " ribu" + Terbilang(x % 1000);
}
else if (x < 1000000000)
{
temp = Terbilang(x / 1000000) + " juta" + Terbilang(x % 1000000);
}
return temp;
}
Public Function Terbilang(ByVal x As Integer) As String
Dim bilangan As String() = {"", "satu", "dua", "tiga", "empat", "lima",
"enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas"}
Dim temp As String = ""
If x < 12 Then
temp = " " + bilangan(x)
Else If x < 20 Then
temp = Terbilang(x - 10).ToString + " belas"
Else If x < 100 Then
temp = Terbilang(x / 10) + " puluh" + Terbilang(x Mod 10)
Else If x < 200 Then
temp = " seratus" + Terbilang(x - 100)
Else If x < 1000 Then
temp = Terbilang(x / 100) + " ratus" + Terbilang(x Mod 100)
Else If x < 2000 Then
temp = " seribu" + Terbilang(x - 1000)
Else If x < 1000000 Then
temp = Terbilang(x / 1000) + " ribu" + Terbilang(x Mod 1000)
Else If x < 1000000000 Then
temp = Terbilang(x / 1000000) + " juta" + Terbilang(x Mod 1000000)
End If
Return temp
End Function