Oleh: denysutani | Oktober 7, 2008

Mengubah format currency di visual basic 6

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.


Responses

  1. 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

  2. Saya pake begini :

    Me.Text1.Tag = Val(Me.Text1.Text)
    Me.Text1.Text = Format(Val(Me.Text1.Text), “###,###,###”)

  3. ato begini :

    Me.Text1.Text = FormatCurrency(Me.Text1.Text, 0)

    • Syntax itu ditaruh di event Lost Focus aja….


Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Kategori

%d blogger menyukai ini: