Menampilkan Terbilang dalam Kwitansi

Bagaimana caranya untuk menampilkan terbilang dalam kwitansi yang kita buat. Berikut ini sintaks sederhananya dengan nilai terbatas, setidaknya jika anda seorang jutawan masih tetap dapat diterjemahkan dengan prosedur ini.

Public Function fnTerbilang(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
    fnTerbilang = " " & abil(X)
  ElseIf X < 20 Then
    fnTerbilang = fnTerbilang(X - 10) & " belas"
  ElseIf X < 100 Then
    fnTerbilang = fnTerbilang(X \ 10) & " puluh" & fnTerbilang(X Mod 10)
  ElseIf X < 200 Then
    fnTerbilang = " seratus" & fnTerbilang(X - 100)
  ElseIf X < 1000 Then
    fnTerbilang = fnTerbilang(X \ 100) & " ratus" & fnTerbilang(X Mod 100)
  ElseIf X < 2000 Then
    fnTerbilang = " seribu" & fnTerbilang(X - 1000)
  ElseIf X < 1000000 Then
    fnTerbilang = fnTerbilang(X \ 1000) & " ribu" & fnTerbilang(X Mod 1000)
  ElseIf X < 1000000000 Then
    fnTerbilang = fnTerbilang(X \ 1000000) & " juta" & fnTerbilang(X Mod 1000000)
  End If
End Function

Advertisement