Ini ada mudah2 sesuai ama yang dimaksud

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 Grade = Array("MILYAR ", "JUTA ", "RIBU ", "") strTerbilang = "" If Len(CStr(nNilai)) > 12 Then strTerbilang = "Melewati batas konversi !" 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 konversi = strTerbilang 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 Private Sub Command0_Click() Dim s As String s = konversi(a) If s <> "Melewati batas konversi !" Then b = s & "RUPIAH" Else b = s End If End Sub

maksih banyak atas bantuannya mas wisnu,sy sebenarnya ga bisa vb tp makasih banyak mas.sy coba konversi ke delphi.jangan bosan yah kalo sy minta bantuan lagi.maksih banyak

Bagaimana dengan Delphi 7? Mohon bantuannya. Thanks

mohon bantuannya mas mas yang udah TOP BGT. Udah Ada yang berhasil ngubah kode konversi angka ke huruf pake delphi? Tolong di Post ya.... lord_suji@yahoo.co.id Thanks Berat Bro....

mohon bantuannya utnuk konversi dari angka menjadi huruf dengan menggunakan javascript Thx untuk bantuannya yah...

bagaimana konversi angka menjadi terbilang dengan delphi 7.0....tolong dong..