Sekedar sharing lagi. Berhubung dengan kerjaan saya sebagai programmer di Indonesia, terkadang customer menginginkan format currency yang sesuai dengan format yang berlaku di Indonesia, yaitu xx.xxx.xxx,xx
Jika menggunakan format luar negeri maka dengan mudah kita dapat menggunakan syntax berikut
Text1.Text = Format(1000000000, “currency”) atau
‘Text1.Text = Format(1000000000, “$##,##0.00″)
‘ menghasilkan output yg sama dengan format currency
Namun setelah mencari-cari format untuk Indonesia tidak ada, sehingga harus dimodif sendiri. Berikut cara yang saya lakukan
Text1.Text = Format(1000000000, “currency”)
Text2.Text = Replace(Text1.Text, “$”, “Rp. “) ‘ Rp. 1,000,000,000.00
Text2.Text = Replace(Text2.Text, “.00″, “;00″) ‘ Rp. 1,000,000,000;00
Text2.Text = Replace(Text2.Text, “,”, “.”) ‘ Rp.1.000.000.000;00
Text2.Text = Replace(Text2.Text, “;00″, “,00″) ‘ Rp. 1,000,000,000;00
Jika ada yang bisa mengubah ke format Indonesia dengan menggunakan syntax format langsung, tolong dishare disini y.
berikut syntax mengubah format currency Indonesia secara langsung.
A$ = FormatCurrency(12000, 1) ‘A$ = “$12,000.0”
A$ = FormatCurrency(12000, 2) ‘A$ = “$12,000.00”
Catatan, untuk mengubah mata uang, gunakan Regional Settings Currency dari sistem operasi Windows
Oleh: mike on Mei 31, 2010
at 8:13 am
Saya pake begini :
Me.Text1.Tag = Val(Me.Text1.Text)
Me.Text1.Text = Format(Val(Me.Text1.Text), “###,###,###”)
Oleh: Jackysan on Agustus 4, 2010
at 3:15 am
ato begini :
Me.Text1.Text = FormatCurrency(Me.Text1.Text, 0)
Oleh: Jackysan on Agustus 4, 2010
at 3:19 am
Syntax itu ditaruh di event Lost Focus aja….
Oleh: Jackysan on Agustus 4, 2010
at 3:20 am