Re: [Programmer-VB] Mohon petunjuk tentang mata Uang

Sun, 16 Jul 2006 21:44:23 -0700

pake function ini mas
 
Public Function FormatAngka(Angka) As String
 
'Variabel yang digunakan di fungsi
Dim Jumlah As Integer, Jumlah1 As Integer
Dim i As Integer, j As Integer, k As Integer
Dim strAngka As String, strAngka1 As String
Dim strAngkaFull As String
Dim strTemp As String, strTemp1 As String
  
   'Tampung nilai angka ke dalam variabel string
   strAngka = CStr(Trim(Angka))
  
   'Karena parameternya bertipe angka bulat, maka tidak boleh
   'ada karakter lainnya (termasuk titik dan koma)
   'selain karakter angka saja...
   If InStr(1, strAngka, ".") > 0 Or _
      InStr(1, strAngka, ",") > 0 Or _
      Not IsNumeric(Angka) Then
      MsgBox "Harus bilangan bulat dan tidak" & vbCrLf & _
             "boleh mengandung karakter" & vbCrLf & _
             "titik atau koma.", _
             vbCritical, "Bukan Bilangan Bulat"
      Exit Function
   End If
  
   'Tambahkan dua angka nol di belakang string strAngka
   strAngkaFull = strAngka & "00"
     
   'Tampung jumlah digit
   Jumlah = Len(Trim(strAngkaFull))
  
   'Inisialisasi untuk counter menghitung per karakter
   j = 0
   strTemp = ""
  
   'Ulangi setiap karakter mulai dari kanan ke kiri
   For i = Jumlah To 1 Step -1  'Step -1 = berkurang 1
  
      j = j + 1   'Counter untuk semua karakter
      k = k + 1   'Counter untuk letak tanda titik
     
      'Tampung setiap satu karakter ke strTemp
      strTemp = strTemp & Mid(strAngkaFull, i, 1)
     
      'Jika counter = 2 (untuk letak tanda koma desimal)
      If j = 2 Then
        
         'Tambahkan karakter koma
         strTemp = strTemp & ","
        
         'Inisialisasi kembali counter untuk titik
         k = 0
      End If
     
      'Jika counter utk titik = 3 dan
      'belum mencapai digit akhir paling kiri (awal).
      'Hal ini untuk menghindari karakter titik di akhir...
      If k = 3 And i <> 1 Then
        
         'Tambahkan karakter titik
         strTemp = strTemp & "."
        
         'Inisialisasi kembali counter untuk
         'menentukan posisi titik
         k = 0
        
      End If
   Next i  'Maju ke karakter berikutnya
  
   'Tampung jumlah karakter strTemp yang berasal
   'dari iterasi di atas ini
   Jumlah1 = Len(Trim(strTemp))
  
   'Iterasi berikut untuk membalikkan posisi bilangan
   For i = Jumlah1 To 1 Step -1
      strTemp1 = strTemp1 & Mid(strTemp, i, 1)
   Next i
  
   'Kembalikan nilai string yg fix ke fungsi FormatAngka
   FormatAngka = strTemp1
  
End Function
 
 
----- Original Message -----
Sent: Monday, July 17, 2006 11:22 AM
Subject: [Programmer-VB] Mohon petunjuk tentang mata Uang

Dear all mohon pencerahannya ..

Aku ingin menampilkan number dalam bentuk format uang

misal : 200000 ---> 200.000
1000000 ---> 1.000.000

gimana ya, apa aja yang mesti di lakukan, soalnya kalo di
text1.dataformat nya aku rubah jadi currency itu juga tidak berpengaruh

terima kasih

-ANDRI-

__._,_.___

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