View Full Version : سوال: چطور اعداد رو 3تا 3تا جدا کنم مثلا 1000 > 1,000
behnam_tr
پنج شنبه 08 تیر 1391, 19:40 عصر
با سلام ...
من تو برنامم که یه نوع حسابداریه میخوام مبالغ رو به این صورت داشته باشم ...
1000 > 1,0000
2544144 > 2,544,144
, ....
با چه کدی تو تکست باکس میتونم این کارو بکنم ؟
javadt
پنج شنبه 08 تیر 1391, 19:52 عصر
ساده ترین روش برای این کار
Private Sub Text1_Change()
Text1.Text = Format(Text1.Text, "###,###,###"): SendKeys "{End}"
End Sub
محسن واژدی
پنج شنبه 08 تیر 1391, 19:53 عصر
سلام علیکم
بصورت زیر هم:
Private Sub Command1_Click()
Text1 = Format("2544144", "0,0")
End Sub
موفق باشید
behnam_tr
پنج شنبه 08 تیر 1391, 20:13 عصر
ساده ترین روش برای این کار
Private Sub Text1_Change()
Text1.Text = Format(Text1.Text, "###,###,###"): SendKeys "{End}"
End Sub
مرسی داداش لطف کردی عالیه
MohammadGh2011
پنج شنبه 08 تیر 1391, 22:54 عصر
مرسی داداش لطف کردی عالیه
سلام عليکم
لطفا از کليد تشکر استفاده کنيد و توسط پست دادن تشکر نکنيد.
موفق باشيد
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.