Pertama-tama, fungsi ini bukan saya yang buat tapi saya dapatkan dari tetangga sebelah, dimana suatu ketika saya sangat lah membutuhkan fungsi ini untuk membuat suatu aplikasi/program yang ada dikantor saya.

Sebagai data backup kelak suatu hari nanti, namun demikian siapa tau para blogger ada yang memerlukannya juga, berikut step-step yang diperlukan  :

  • Jalankan Aplikasi Microsoft Access
  • Buat database baru.
  • Pilih Menu Modules pada Object Option, lalu klik New
  • Pada Microsoft Visual Basic for Aplications Editor, copy script dibawah ini :

Option Compare Database

Public Function ubah_terbilang(xbil As Double)

Dim nilai, i, j, k, hasil$, HasilAkhir$, Bilangan#, Digit, Rp$, Bil$

If IsNull(xbil) Then
ubah_terbilang = Null
Exit Function
End If
‘pengelompokan
Dim Kel$(1 To 6), Angka$(1 To 9), Sat$(1 To 3)
Kel$(1) = “BILIUN “
Kel$(2) = “TRILIUN “
Kel$(3) = “MILIAR “
Kel$(4) = “JUTA “
Kel$(5) = “RIBU “
Kel$(6) = “”
‘data angka (lagi…)