Membuat Fungsi Terbilang Di Microsoft Access

Share on :

Bagikan

Tweet

Fungsi terbilang adalah untuk menampilkan nilai angka pada bentuk kalimat. Pada setiap kwitansi untuk transaksi jual beli barang atau jasa biasanya kita harus menulisakan angka atau nilai transaksi dalam bentuk kalimat, misalnya “Lima Juta Lima Ratus Ribu Rupiah” untuk angka Rp 5.500.000,-

Fungsi terbilang harus kita buat sendiri karena Microsoft Access tidak menyediakan fungsi ini.

Dari pada bingung sendiri mendingan dicoba :

1. Masuk Ke Microsoft Access dan buat sebuah Form baru, buat 2 buah text box, masing-masing dengan nama text box 1 yaitu “text0” dan text box 2 yaitu “text2” (tanpa tanda petik) dan di susun seperti berikut :
   
2. Masuk ke Microsoft Access Visual Basic, dan buat sebuah Module baru.
   
3. Dan masukkan kode berikut :

   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

4. Tutup module dan Microsoft Access Visual Basic, lalu klik kanan pada text box 1 lalu pilih build even… pilih code builder, lalu ubah text0 menjadi change dan ketikkan kode berikut :
   Text2.Value = ubah_terbilang(Text0.Text)
   atau seperti gambar berikut :
   
5. Tutup kembali microsoft access visual basic dan jalankan form

 

 

Ditulis Oleh : Rahmat Dian

Artikel Membuat Fungsi Terbilang Di Microsoft Access , diterbitkan oleh DangDian pada hari 2 Mar 2016 . Semoga artikel ini dapat menambah wawasan Anda. Oleh Admin, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, namun anda harus meletakkan link dibawah ini sebagai sumbernya. <a href=" https://colokgas.blogspot.com/2016/03/membuat-fungsi-terbilang-di-microsoft.html " target="_blank"> Membuat Fungsi Terbilang Di Microsoft Access </a>