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

Mon, 12 Jun 2006 21:11:57 -0700

Kalau setelah line perintah <If InputCurrency = "" Then Exit Function> ditambahin aja lagi

If InputCurrency=”0” Then

            Teribilang decimal=”nol”

            Exit Function

End If

 

Mudah2an ngebantu.

 

 

From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of bloodysucker
Sent: Monday, June 12, 2006 12:41 PM
To: [email protected]
Subject: Re: [Programmer-VB] Re: Nanya: Terbilang pake VB

 

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 -----

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



__,_._,___

Kirim email ke