Coba buat Coding berikut ini untuk konversi bilangan,
Public Function Konversi(ByVal nNilai As Currency) As String
Dim Grade As Variant
Dim strTerbilang As String
Dim strPart As String
Dim iGrade As Byte
Dim BILANG As String
Grade = Array("MILYAR ", "JUTA ", "RIBU ", "")
strTerbilang = ""
If Len(CStr(nNilai)) > 12 Then
strTerbilang = "Melewati batas konversi, " & _
"Adi kurniadi"
Else
strPart = Format(nNilai, String(12, "0"))
For iGrade = 1 To 4
If Val(Mid(strPart, (iGrade - 1) * 3 + 1, 3)) > 0 Then
strTerbilang = strTerbilang & _
GetRatus(Mid(strPart, (iGrade - 1) * 3 + 1, 3), iGrade)
strTerbilang = strTerbilang & Grade(iGrade - 1)
End If
Next iGrade
End If
' Kembalikan nilai melalui nama fungsi-nya
BILANG = strTerbilang + " Rupiah"
Konversi = BILANG
End Function
Public Function GetRatus(ByVal strPart As String, _
ByVal iGrade As Byte) As String
Dim Angka1 As Variant, Angka2 As Variant
Dim i As Integer
Dim strHasil As String
Dim nTemp As Byte
Angka1 = Array("SATU ", "DUA ", "TIGA ", "EMPAT ", _
"LIMA ", "ENAM ", "TUJUH ", "DELAPAN ", "SEMBILAN ")
Angka2 = Array("RATUS ", "PULUH ", "")
For i = 1 To 3
nTemp = Val(Mid(strPart, i, 1))
If nTemp = 1 Then
If i = 1 Then
strHasil = "SERATUS "
ElseIf i = 2 Then
i = i + 1
nTemp = Val(Mid(strPart, i, 1))
If nTemp = 0 Then
strHasil = strHasil & "SEPULUH "
ElseIf nTemp = 1 Then
strHasil = strHasil & "SEBELAS "
Else
strHasil = strHasil & _
Angka1(nTemp - 1) & "BELAS "
End If
ElseIf Val(strPart) = 1 And iGrade = 3 Then
strHasil = strHasil & "SE"
Else
strHasil = strHasil & "SATU "
End If
ElseIf nTemp <> 0 Then
strHasil = strHasil + Angka1(nTemp - 1) + Angka2(i - 1)
End If
Next i
GetRatus = strHasil
End Function
hendray_x <[EMAIL PROTECTED]> wrote:
saya belum tahu bgmn caranya agar nilai Rp. 100 menjadi tulisan
seratus rupiah!!, saya lagi belajar utk buat kwitansi nih tolong dong?
please.............
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
SPONSORED LINKS
Computer internet security Computer internet business Computer
internet access Computer internet privacy securities Computer internet
help Computer internet connection
---------------------------------
YAHOO! GROUPS LINKS
Visit your group "indoprog-vb" on the web.
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
---------------------------------
New Yahoo! Messenger with Voice. Call regular phones from your PC and save big.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
