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.

This entry was posted in Tips n trick, VB 6 and tagged , , , , . Bookmark the permalink.

8 Responses to Mengubah format currency di visual basic 6

  1. mike says:

    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. Jackysan says:

    Saya pake begini :

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

  3. Jackysan says:

    ato begini :

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

  4. V1rz says:

    itukan di text, klau buat di label bsa gakzz????
    plise jawab

    • admin says:

      Hi,

      Belum pernah nyoba yg di label, tapi seharusnya bisa. Cukup pake label1.caption saja, sedangkan kalau di textbox kan pake text1.text

  5. Xocang says:

    nih lebih simple pake aja ini :) goodluck

    Text1.Text = FormatCurrency(Text1.Text, 0)
    Text1.Text = Replace(Text1.Text, “$”, “Rp. “)

  6. YANUAR HADA says:

    kalau dijumlahkan gak mau tu..

Leave a Reply

Your email address will not be published. Required fields are marked *

*

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>