Saya dapat dari internet, lupa dari mana.
katanya udah dipakai untuk billing PLN se jawa timur.
Taruh di module umum.
Public Function Money2Str(Mny As Variant)
Dim Satuan As Variant
Dim Ribuan As Variant
Dim tempStr As String, RetVal As String
Dim TempVal As String
Dim i As Integer
Dim ch(2) As Integer
Dim State As Integer
Dim IsRibuan As Boolean
Satuan = Array("", "Satu ", "Dua ", "Tiga ", "Empat ", "Lima ", "Enam ",
"Tujuh ", "Delapan ", "Sembilan ")
Ribuan = Array("", "Ribu ", "Juta ", "Milyard ", "Trilyun ")
tempStr = Str(CCur(Mny))
For i = Len(tempStr) To 1 Step -3
ch(0) = Val(Mid(tempStr, i, 1))
If i - 1 <= 0 Then
ch(1) = 0
ch(2) = 0
GoTo Start
End If
ch(1) = Val(Mid(tempStr, i - 1, 1))
If i - 2 <= 0 Then
ch(2) = 0
GoTo Start
End If
ch(2) = Val(Mid(tempStr, i - 2, 1))
Start:
TempVal = ""
IsRibuan = False
If ch(0) = 1 And ch(1) = 0 And ch(2) = 0 And State = 1 Then
TempVal = "Seribu "
IsRibuan = True
ElseIf ch(1) = 1 Then
If ch(0) = 1 Then
TempVal = "Sebelas "
ElseIf ch(0) = 0 Then
TempVal = "Sepuluh "
Else
TempVal = Satuan(ch(0)) & "Belas "
End If
ElseIf ch(1) <> 0 Then
TempVal = Satuan(ch(1)) & "Puluh " & Satuan(ch(0))
ElseIf ch(0) <> 0 Then
TempVal = Satuan(ch(0))
End If
If ch(2) = 1 Then
TempVal = "Seratus " & TempVal
ElseIf ch(2) <> 0 Then
TempVal = Satuan(ch(2)) & "Ratus " & TempVal
End If
If Len(TempVal) > 0 Then
If IsRibuan Then
RetVal = TempVal & RetVal
Else
RetVal = TempVal & Ribuan(State) & RetVal
End If
End If
State = State + 1
Next 'i
RetVal = "# " & RetVal & " Rupiah #"
Money2Str = RetVal
End Function
salam,
murid access - NRN CL BEW
----- Original Message -----
From: Kurniadi .
To: [email protected]
Sent: Tuesday, May 05, 2009 18:03
Subject: [belajar-access] Mengkoversi Angka menjadi terbilang pada Ms. Access
Dh,
Tim Moderator dan anggota millist, Saya anggota baru nih kebetulan saya
baru belajar Ms. Access dalam 1 tahun terakhir. Saya mendapatkan masalah dalam
mengkonversi ANGKA menjadi TERBILANG pada form dan report . Mohon bantuannya ya
bagi2 teman2 yg sudah berpengalaman.
Atas bantuan dan kerjasamanya saya ucapkan terimakasih.
Salam,
Kurniadi
