Daftar ke PayPal dan langsung menerima pembayaran kartu kredit.
Click Here to Open Your PayPal Account

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
Angka$(1) = “SATU “
Angka$(2) = “DUA “
Angka$(3) = “TIGA “
Angka$(4) = “EMPAT “
Angka$(5) = “LIMA “
Angka$(6) = “ENAM “
Angka$(7) = “TUJUH “
Angka$(8) = “DELAPAN “
Angka$(9) = “SEMBILAN “
’satuan
Sat$(1) = “RATUS “
Sat$(2) = “PULUH “
Sat$(3) = “”
‘mulai
Bilangan# = Val(xbil)
HasilAkhir$ = “”
GoSub HitungHuruf
If hasil$ <> “” Then
HasilAkhir$ = hasil$ + “RUPIAH”
End If
‘hitung pecahan
Bilangan# = Fix((Bilangan# – Fix(Bilangan#) + 0.005) * 100#)
If Bilangan# > 0 Then
GoSub HitungHuruf
If hasil$ <> “” Then
HasilAkhir$ = HasilAkhir$ + ” ” + hasil$ + “SEN”
End If
End If
ubah_terbilang = HasilAkhir$
Exit Function
HitungHuruf:
Rp$ = Right$(String$(18, “0″) + LTrim$(Str$(Fix(Bilangan#))), 18)
hasil$ = “”
If Val(Rp$) = 0 Then Return
‘blg bulat
For i = 1 To 6
Bil$ = Mid$(Rp$, i * 3 – 2, 3)
If Val(Bil$) = 1 And i = 5 Then
hasil$ = hasil$ + “SERIBU “
ElseIf Val(Bil$) <> 0 Then
For j = 1 To 3
Digit = Val(Mid$(Bil$, j, 1))
If j = 2 And Right$(Bil$, 2) = “10″ Then
hasil$ = hasil$ + “SEPULUH “
Exit For
ElseIf j = 2 And Right$(Bil$, 2) = “11″ Then
hasil$ = hasil$ + “SEBELAS “
Exit For
ElseIf j = 2 And Mid$(Bil$, 2, 1) = “1″ Then
hasil$ = hasil$ + Angka$(Val(Right$(Bil$, 1))) + “BELAS “
Exit For
ElseIf Digit = 1 And j = 1 Then
hasil$ = hasil$ + “SERATUS “
ElseIf Digit <> 0 Then
hasil$ = hasil$ + Angka$(Digit) + Sat$(j)
End If
Next
hasil$ = hasil$ + Kel$(i)
End If
Next
Return
End Function
  • Simpan dengan Module = terbilang  dan tutup Jendela VBA tersebut.
  • Untuk Mengetes Apakah Fungsi tersebut berjalan dengan baik, buat Report Baru, dengan memasukan fungsi =ubah_terbilang()

Random Posts:

-
NEWS : Jika Anda ingin memulai belajar mendulang dollar diinternet secara gratis, bisa link disini, dan semoga sukses!

Software Ok!