DikMa.Web.ID ®

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:

• Fungsi Terbilang – Microsoft Access

Related search from Google:

fungsi microsoft access, microsoft access, fungsi microsoft acces, fungsi menu microsoft access, fungsi ms access, fungsi microsoft access 2, fungsi database access, FUNGSI ACCES, mikrosof akses, terbilang, fungsi terbilang pada acces, Ms acces, program terbilang, panduan microsoft access, FUNGSI TERBILANG ACCESS, fungsi dari microsoft access, fungsi if di acces, fungsi ms acces, fungsi if pada ms access, terbilang access, fungsi val, fungsi Iif acces, fungsi internet, fungsi program microsoft acces, ms access programming, kegunaan dari microsoft access, microsoft akses, fungsi Val pada access 2007, kegunaan access, fungsi count pada microsoft access, panduan microsoft acces, fungsi aplikasi microsoft acces, FUNGSI COUNT DALAM ACCESS, database acces, FUNGSI FUNGSI microsoft, fungsi if pada acsess 07, FUNGSI IF PADA ACCES, fungsi if mid, FUNGSI IF DI ACCESS, fungsi if acces, fungsi menu ms acces, ms access, modules ms access, modul terbilang untuk access 2007, microsoft access fungsi if, fungsi-fungsi microsoft access, fungsi val pada acces, fungsi terbilang rupiah, Fungsi Terbilang MS Excel Ppada nilai pecahan, fungsi terbilang ms access, fungsi access, fungsi terbilang, terbilang vba, fungsi pada access, fungsi ms access sebagai data base, fungsi menu ms access 2007, terbilang ms access, apa fungsi / kegunaan dari aplikasi microsoft access, cara compare data microsoft acess, cara membuat terbilang pada ms access, cara membuat pasword dengan modules pada microsoft access, 4 fungsi microsoft access, aplikasi terbilang, Cara Membuat Fungsi Terbilang di Ms Acces 2007, microsoft acces, menu dalam MS Acces, aplikasi gratis ms acces, micros0ft acces, aplikasi pembayaran dengan Ms Acces 2007, microsoft acces modules login user cara membuat, microsoft acces fungsi, microskop acces, microsoft acces dari internet, microsoft access penggunaan, modul pembelajaran microsoft excel, modul microsoft access, modul access, mocrosoft acces programing untuk web, aplikasi gratis dengan ms acces, aplikasi fungsi terbilang, mid pada acces 2007, mid function dengan fungsi if, mid di access, aplikasi free ms acces, menjadikan 0 acces 2007, mengunakan fungsi pada acess, Menggunakan iif dalam access, kegunaan text dalam microsoft akses, kegunaan text dalam microsoft acces, kegunaan ms access, kegunaan microsoft acccess, aplikasi program dengan ms access, kegunaan aplikasi microsoft access, kegunaan aplikasi microsoft, ilmu aplikasi dari msacces, iif fungsi dalam access, if in access, fungsi-fungsi pada access 2007, memasukan rupiah di acces, membuat bilangan di acces