Angka terbilang adalah salah satu proses perubahan angka menjadi huruf yang sesuai dengan apa yang kita tulis, proses ini memerlukan satu bentuk penulisan fungsi tersendiri dimana pemanggilan fungsi tersebut ketika ada proses pengisian data dalam satu objek yang dituju baru ada konfersi nilai angka rupiah menjadi huruf sesuai dengan objek yang ada, ssaya sedikit berbagai dengan anda bagaimana cara menulis sorce code nya dalam Visual basic, Begini critanya... :-)
Code :
'//-------------------------------------------------------------------------------------------------//
Public Function TerbilangBulat(strAngka As String, _
Optional MataUang As String = "rupiah") As String
Dim strJmlHuruf$, intPecahan As Integer
Dim strPecahan$, Urai$, Bil1$, strTot$, Bil2$
Dim x As Integer, Y As Integer, z As Integer
On Error GoTo Pesan
Dim strValid As String, huruf As String * 1
Dim i As Integer
'Periksa setiap karakter yg diketikkan ke kotak UserID
strValid = "1234567890"
For i% = 1 To Len(strAngka)
huruf = Chr(Asc(Mid(strAngka, i%, 1)))
If InStr(strValid, huruf) = 0 Then
Exit Function
End If
Next i%
If strAngka = "" Then Exit Function
If Len(Trim(strAngka)) > 15 Then GoTo Pesan
strJmlHuruf = LTrim(strAngka)
'intPecahan = Val(Right(Mid(strAngka, 15, 2), 2))
If (intPecahan = 0) Then
strPecahan = ""
Else
'strPecahan = LTrim(Str(intPecahan)) + "/100 "
strPecahan = ""
End If
x = 0
Y = 0
Urai = ""
While (x < x =" x" strtot =" Mid(strJmlHuruf," y =" Y" z =" Len(strJmlHuruf)" z =" 1" z =" 7" z =" 10" z =" 13)" bil1 = "Satu " z =" 4)" x =" 1)" bil1 = "se" bil1 = "satu " z =" 2" z =" 5" z =" 8" z =" 11" z =" 14)" x =" x" strtot =" Mid(strJmlHuruf," z =" Len(strJmlHuruf)" bil2 = "" bil1 = "sepuluh " bil1 = "sebelas " bil1 = "dua belas " bil1 = "tiga belas " bil1 = "empat belas " bil1 = "lima belas " bil1 = "enam belas " bil1 = "tujuh belas " bil1 = "delapan belas " bil1 = "sembilan belas " bil1 = "se" bil1 = "dua " bil1 = "tiga " bil1 = "empat " bil1 = "lima " bil1 = "enam " bil1 = "tujuh " bil1 = "delapan " bil1 = "sembilan " bil1 = ""> 0) Then
If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then
Bil2 = "puluh "
ElseIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15) Then
Bil2 = "ratus "
Else
Bil2 = ""
End If
Else
Bil2 = ""
End If
If (Y > 0) Then
Select Case z
Case 4: Bil2 = Bil2 + "ribu "
Y = 0
Case 7: Bil2 = Bil2 + "juta "
Y = 0
Case 10: Bil2 = Bil2 + "milyar "
Y = 0
Case 13: Bil2 = Bil2 + "trilyun "
Y = 0
End Select
End If
Urai = Urai + Bil1 + Bil2
Wend
Urai = Urai + strPecahan
TerbilangBulat = (Urai & MataUang)
Exit Function
Pesan:
TerbilangBulat = "(maksimal 15 digit)"
End Function
akan Lebih enaknya anda buat modul dalam VB dan letakan source diatas di dalam modul...
soo... lebih detailnya bisa download contoh implementasinya
Contoh Implementasinya di Download
Budayakan untuk meninggalkan jejak atau command anda jika telah membaca artikel ini... Terima Kasih
0 comments:
Post a Comment