yah.. tiap lostfocus event, diformat... kalu mau dipake, tinggal di
typecasting aja..
jadi contohnya (kalu agak salah harap dimaklumi.. bikinnya langsung gak pake
vb) :
private sub text1_lostfocus()
text1.text=format(cdbl(text1.text),"#,##0.00")
end sub
lalu kalu misalnya mau dipake waktu click command button :
private sub command1_click()
msgbox ccur(text2.text) * ccur(text1.text)
end sub
kira2 gitu d.
=======================
http://www.fire888.com
-----Original Message-----
From: [email protected]
[mailto:[EMAIL PROTECTED] Behalf Of Darsana
Sent: Monday, July 16, 2007 1:11 PM
To: [email protected]
Subject: Re: [Programmer-VB] Format Currency
Sdr Ronal BH,
Kl saya, saya pake 2 textbox. 1 textbox berisi nilai yg dimasukkan,
textbox yg satunya lagi dihiden.
lostfocus text1 :
text2 = isi dari text1
text1 = format(val(text2),"###,###,##0.#0") '---misalnya
tiap gotfocus :
text1=text2
saat disimpan, gunakan nilai dari text2.
demikian , mungkin cara diatas sangat konvensional.
salam,
nyom2
----- Original Message -----
From: Ronal Baharuddin Hutagaol
To: [email protected]
Sent: Friday, July 13, 2007 1:46 PM
Subject: [Programmer-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
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.476 / Virus Database: 269.10.6/902 - Release Date: 7/15/2007
2:21 PM
