Kemampuannya masih sama persis dengan versi Delphi yaitu maksimal pada skala 'juta'. OK, mari segera saja kita simak fungsi terbilang versi Visual Basic -nya berikut ini.

Public Function Terbilang(ByVal x As Long) As String
  Dim abil As Variant
  abil = Array("", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas")

  If x < 12 Then
    Terbilang = " " & abil(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)
  End If
End Function

Kita lihat fungsi di atas memanfaatkan rekursi untuk mengkonversikan dari numerik menjadi format terbilang. Silakan Anda coba dengan menggunakan Visual Basic 6.0.

Demikianlah tulisan singkat mengenai fungsi terbilang pada Visual Basic 6.0. Semoga bermanfaat bagi Anda semua. Jika ada saran atau komentar silakan dilayangkan ke sony-ak@sony-ak.com. Untuk membaca tulisan menarik lainnya silakan menuju ke www.sony-ak.com.

Silakan download source code lengkap dari project di atas

Terimakasih.