Membuat Fungsi Terbilang Di Microsoft Access


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 :

access1

2. Masuk ke Microsoft Access Visual Basic, dan buat sebuah Module baru.

access2

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 :
access3
 
5. Tutup kembali microsoft access visual basic dan jalankan form
access4

Posted on 17/04/2013, in Tips & Trik and tagged , , , , . Bookmark the permalink. Tinggalkan komentar.

Komentar ditutup.

%d blogger menyukai ini: