Pada event Text1_LostFocus isikan: Private Sub Text1_LostFocus() If Len(Text1.Text)=0 Then Text1.Text = 0 Else Text1.Text = Format(CCur(Text1.Text),"#,##0") End If End Sub
Sedangkan pada saat akan dibaca nilai dari Text1 tersebut gunakan: CCur( Text1.Text) CCur = Fungsi untuk merubah tipe data dari Character ke Currency On 13/07/07, Ronal Baharuddin Hutagaol <[EMAIL PROTECTED]> wrote:
Dear VB Mania... Sampai sekarang saya masih bingung nih untuk menampilkan format uang. Misalnya di TEXT1.TEXT saya input 20000 Nah, omotatis angkat itu terlihat dilayar menjadi 20.000 Nah, komputer tetap membaca 20.000 itu adalah 20000 agar dapat dilakukan perkalian atau penjumlahan bilangan. Nah hal ini juga berlaku ketika kita masukkan ke LABEL1.CAPTION atau MSFLEXGRID1, dll... Kira2 ada solusi untuk permasalahan ini. Terima KASIH b-4
-- Best Regard, [zZzz]
