Misal x= 1000000 x = format(x,"###,#")
Good Luck ----- Original Message ----- From: "Andri Rinaldi" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Monday, July 17, 2006 4:49 PM Subject: [Programmer-VB] Re: Mohon petunjuk tentang mata Uang > Terima kasih atas petunjuknya :-) > > > --- In [email protected], "Eko Yahoo" > <[EMAIL PROTECTED]> wrote: > > > > 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 ----- > > From: Andri Rinaldi > > To: [email protected] > > 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 > > > > > Yahoo! Groups Links > > > > > > 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 Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/Programmer-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/
