tadi di milis ada yang kirim fungsi terbilang. yang satu ini menarik perhatian aku, karena fungsi terbilangnya dibuat dalam rekursif (oleh saudara Toni Rahayu).
berikut coding yang saya qoute. semoga berguna bagi yang membaca.
Public Function Terbilang(ByVal x As Double) As String
Dim ambil As Variant
ambil = Array(“”, “satu”, “dua”, “tiga”, “empat”, “lima”, “enam”, “tujuh”,
“delapan”, “sembilan”, “sepuluh”, “sebelas”)
If x < 12 Then
Terbilang = ” ” & ambil(x)
ElseIf x < 20 Then
Terbilang = Terbilang(x – 10) & ” belas”
ElseIf x < 100 Then
Terbilang = Terbilang(x \ 10) & ” puluh” & Terbilang(x Mod 10)
ElseIf x < 200 Then
Terbilang = ” seratus” & Terbilang(x – 100)
ElseIf x < 1000 Then
Terbilang = Terbilang(x \ 100) & ” ratus” & Terbilang(x Mod 100)
ElseIf x < 2000 Then
Terbilang = ” seribu” & Terbilang(x – 1000)
ElseIf x < 1000000 Then
Terbilang = Terbilang(x \ 1000) & ” ribu” & Terbilang(x Mod 1000)
ElseIf x < 1000000000 Then
Terbilang = Terbilang(x \ 1000000) & ” juta” & Terbilang(x Mod 1000000)
ElseIf x < 1000000000000# Then
Terbilang = Terbilang(x \ 1000000000) & ” milyar” & Terbilang(x Mod
1000000000)
End If
End Function
Filed under: Visual Basic
