Horas Lae... Untuk menampilkan format uang di display (tentu pake label, atau text) harus dipahami dahulu model format yang dinginkan, jika format yag diinginkan 20.000,00 maka formatnya #,###.00 (perhatikan penulisan koma dan titiknya, program vb menganut sistem format amerika, sesuai asal program), klu yang diinginkan seperti 20.000,98 maka formatnya #,###.##
untuk menampilkannya dilayar dengan menggunakan label1.caption = format(label1.caption,"#,###.00") atau text1.text = format(label1.caption,"#,###.00") untuk proses penambahan/pengalian/pengurangan dll, tidak bisa menjumlahkan langsung seperti text1.text + text2.text, karena hasilnya akan digabungkannya. Untuk itu hasil yang ada ti text atau label lebih baik disimpan didalam memori dahulu. dim nilaiA as double (kenapa paka double, krn type data double itu bisa menyimpan nilai yang ada koma nya, seperti 20.000,98) nilaiA = format(text.text,number) knapa number? krn untuk mengembalikan nilai text tersebut kedalam numerik. setelah itu jumlahkan nilaiA itu dengan nilai apapun, Jika data disimpan didalam database, yg disimpan adalah nilaiA bukan text1.text, walaupun sudah diberi format seperti format(text1.text,number), aku jg ngk tau knapa hasil yg disimpan didalam database tidak benar, khususnya yang ada komanya itu seperti 20.000,98 yg disimpannya slalu 20.000 jika nilainya disimpan dalam msflexgrid, nilai yang diberikan didalamnya jagan diformat. lebih baik kolom msflexgridnya itu yang diformat. Klu yang diformat kolomnya, maka setiap angka yang isikan di kolom tersebut akan ditampilkan sesuai format, dan bisa langsung di sum didalam msflexgrid itu. Semoga membantu: =(oVo)= ==================== BaceInside Publisher Copyright @2007 Not for reproduced, republished. Thank You ==================== ----- Original Message ---- From: Ronal Baharuddin Hutagaol <[EMAIL PROTECTED]> To: [EMAIL PROTECTED] Sent: Friday, July 13, 2007 1:46:06 PM Subject: [indoprog-vb] Format Currency 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 [Non-text portions of this message have been removed] ____________________________________________________________________________________ Don't get soaked. Take a quick peak at the forecast with the Yahoo! Search weather shortcut. http://tools.search.yahoo.com/shortcuts/#loc_weather
