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- > ------------------------ Yahoo! Groups Sponsor --------------------~--> Check out the new improvements in Yahoo! Groups email. http://us.click.yahoo.com/6pRQfA/fOaOAA/yQLSAA/k7folB/TM --------------------------------------------------------------------~-> 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/
