Search This Blog

Loading...

Fungsi Terbilang di Microsft 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 “dua juta lima ratus rupiah” untuk angka Rp 2.500.000,-

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

Pada contoh fungsi terbilang yang dibuat di sini, fungsi akan menerima 2 buah parameter yaitu parameter angka yang akan dijadikan kelimat terbilang dan mata uang sebagai parameter kedua.

Parameter kedua berupa mata uang sebagai berikut:
  • IDR : rupiah
  • USD : dolar
  • JPY : yen
  • SGD : dolar singapura
  • GBP : poundsterling
  • EUR : euro

Cara memanggil fungsi terbilang di sini adalah:
txtVariabel = Terbilang(varAngka,varMataUang)

Script Fungsi Terbilang adalah sebagai berikut:
Public Function Terbilang(ByVal MyNumber, ByVal vMataUang)

Dim MataUang As String, cMataUang As String
Dim Rupiah, sen, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Dim a As Long

cMataUang = vMataUang
If cMataUang = "IDR" Then
   MataUang = " rupiah"
ElseIf cMataUang = "USD" Then
   MataUang = " dolar"
ElseIf cMataUang = "JPY" Then
   MataUang = " yen"
ElseIf cMataUang = "SGD" Then
   MataUang = " dolar singapura"
ElseIf cMataUang = "GBP" Then
   MataUang = " poundsterling"
ElseIf cMataUang = "EUR" Then
   MataUang = " euro"
Else
   MataUang = " "
End If

Place(2) = " ribu"
Place(3) = " juta"
Place(4) = " milyar"
Place(5) = " trilyun"
' String representation of amount.
MyNumber = Trim(Str(MyNumber))
' Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, ".")
' Convert sen and set MyNumber to dollar amount.
If DecimalPlace > 0 Then
   sen = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
   MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber <> ""
   Temp = GetHundreds(Right(MyNumber, 3))
   If Temp <> "" Then Rupiah = Temp & Place(Count) & Rupiah
   If Left(Trim(Rupiah), 9) = "Satu Ribu" Then
       Rupiah = " Seribu" & Mid(Rupiah, 11)
   End If
   If Len(MyNumber) > 3 Then
       MyNumber = Left(MyNumber, Len(MyNumber) - 3)
   Else
       MyNumber = ""
   End If
   Count = Count + 1
Loop
Select Case Rupiah
   Case ""
       Rupiah = "nol"
   Case Else
       Rupiah = Rupiah
End Select
Select Case sen
   Case ""
       sen = "" ' dan nol sen"
   Case Else
       sen = " koma" & sen
End Select
Terbilang = Trim(Rupiah & sen & MataUang)

End Function

Fungsi Terbilang di sini memanggil fungsi lain yaitu fungsi GetHundreds(), GetDigit() dan GetTens().

Pada contoh program yang dapat didownload di sini akan didemonstrasikan penggunaan fungsi terbilang ini pada sebuah form. Pada form ini ada text box untuk mengisi angka yang akan ditampilkan kalimat terbilangnya, satu buah combo box pilihan jenis mata uang, tombol untuk menjalankan atau memanggil fungsi terbilang dan menampilkan hasil dari fungsi terbilang pada text box terbilang.

DOWNLOAD CONTOH PROGRAM FUNGSI TERBILANG

Salam
Selamat mencoba

last update 16 April 2013
Post a Comment