Untuk bilangan bulat, atau dengan perkataan yang lain bilangan tanpa pecahan, mungkin dapat dicoba function berikut. Tidak sampai juga 35 baris, karena menggunakan konsep Recursive Function. Mudah-mudahan dapat membantu.
Function Bilang(ByVal Angka)
Dim ABil(12)
ABil(0) = ""
ABil(1) = "satu"
ABil(2) = "dua"
ABil(3) = "tiga"
ABil(4) = "empat"
ABil(5) = "lima"
ABil(6) = "enam"
ABil(7) = "tujuh"
ABil(8) = "delapan"
ABil(9) = "sembilan"
ABil(10) = "sepuluh"
ABil(11) = "sebelas"
If Angka < 12 Then
Bilang = " " & ABil(Angka)
ElseIf Angka < 20 Then
Bilang = Bilang(Angka - 10) & " belas"
ElseIf Angka < 100 Then
Bilang = Bilang(Angka \ 10) & " puluh" & Bilang(Angka Mod 10)
ElseIf Angka < 200 Then
Bilang = " seratus" + Bilang(Angka - 100)
ElseIf Angka < 1000 Then
Bilang = Bilang(Angka \ 100) & " ratus" & Bilang(Angka Mod 100)
ElseIf Angka < 2000 Then
Bilang = " seribu" & Bilang(Angka - 1000)
ElseIf Angka < 1000000 Then
Bilang = Bilang(Angka \ 1000) & " ribu" & Bilang(Angka Mod 1000)
ElseIf Angka < 1000000000 Then
Bilang = Bilang(Angka \ 1000000) & " juta" & Bilang(Angka Mod 1000000)
ElseIf Angka < 1000000000000# Then
Bilang = Bilang(Angka \ 1000000000) & " miliyar" & Bilang(Angka Mod 1000000000)
End If
End Function
'------------------
Salam,
JG
vbPian <[EMAIL PROTECTED]> wrote:
Hallo rekan-rekan, bagaimana algoritma untuk mengkonversi bilangan menjadi
terbilang, lupa lagi nih :p
vbPian
[zZzz]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
SPONSORED LINKS
Computer internet security Computer internet business Computer internet access Computer internet privacy securities Computer internet help Computer internet connection
---------------------------------
YAHOO! GROUPS LINKS
Visit your group "indoprog-vb" on the web.
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
---------------------------------
Yahoo! Mail goes everywhere you do. Get it on your phone.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
SPONSORED LINKS
| Computer internet security | Computer internet business | Computer internet access |
| Computer internet privacy securities | Computer internet help | Computer internet connection |
YAHOO! GROUPS LINKS
- Visit your group "indoprog-vb" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
