Re: [Programmer-VB] Re: Nanya: Terbilang pake VB

[bloodysucker]

Hello mas Wawan...   saya pernah liat coding angka terbilangdesimal ini dari situsnya Pak Masino Sinaga, saya udah pernah nyoba dan berhasil, namun ada satu pertanyaan gimana caranya ya supaya ketika kita masukkan angka 0 angka terbilangnya menjadi "nol", karena waktu saya coba masukkan angka 0 tapi angka terbilangnya ga muncul.....Ada solusi mas??   ----- Original Message ----- From: Wawan Supriadi To: Programmer-VB@yahoogroups.com Sent: Thursday, June 08, 2006 3:30 PM Subject: [Programmer-VB] Re: Nanya: Terbilang pake VB Public Function TerbilangDesimal(InputCurrency As String, Optional MataUang As String = "rupiah") As String  Dim strInput As String  Dim strBilangan As String  Dim strPecahan As String    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(InputCurrency)      huruf = Chr(Asc(Mid(InputCurrency, i%, 1)))      If InStr(strValid, huruf) = 0 Then        Set AngkaTerbilang = Nothing        MsgBox "Harus karakter angka!", _               vbCritical, "Karakter Tidak Valid"        Exit Function      End If    Next i%    If InputCurrency = "" Then Exit Function  If Len(Trim(InputCurrency)) > 15 Then GoTo Pesan    strInput = CStr(InputCurrency) 'Konversi ke string  'Periksa apakah ada tanda "," jika ya berarti pecahan  If InStr(1, strInput, ",", vbBinaryCompare) Then         strBilangan = Left(strInput, InStr(1, strInput, _                 ",", vbBinaryCompare) - 1)   'strBilangan = Right(strInput, InStr(1, strInput, _   '              ".", vbBinaryCompare) - 2)   strPecahan = Trim(Right(strInput, Len(strInput) - Len(strBilangan) - 1))     If MataUang <> "" Then         If CLng(Trim(strPecahan)) > 99 Then      strInput = Format(Round(CDbl(strInput), 2), "#0.00")      strPecahan = Format((Right(strInput, Len(strInput) - Len(strBilangan) - 1)), "00")     End If         If Len(Trim(strPecahan)) = 1 Then        strInput = Format(Round(CDbl(strInput), 2), _                   "#0.00")        strPecahan = Format((Right(strInput, _           Len(strInput) - Len(strBilangan) - 1)), "00")     End If ============== cut ================ __._,_.___ Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut:     http://wahanaprogrammer.net <*> Untuk menghubungi owner milis ini, kirim email ke:     [EMAIL PROTECTED] <*> Konsultasi pemrogramman bisa chat disini:     Yahoo! Messenger: wahanaprogrammer SPONSORED LINKS Programmer Indonesia Basic programming language Computer programming languages Programming languages Java programming language YAHOO! GROUPS LINKS  Visit your group "Programmer-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. __,_._,___