منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] اريد كود لايجاد فاصلة الآلاف - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [سؤال] اريد كود لايجاد فاصلة الآلاف (/showthread.php?tid=12045)



اريد كود لايجاد فاصلة الآلاف - Ahmed Gandos - 13-04-15

السلام عليكم
نهديكم اطيب التحيات لاروع منتدى


لدي مشروع محاسبة و اريد كود لاضافة فاصلة الآلاف الى قمية مدخلة في تكست بوكس مثلا

مثل الصورة التالية


RE: اريد كود لايجاد فاصلة الآلاف - Ahmed_Mansoor - 15-04-15

أهلا , إستخدم هذه الدالة :

كود :
Text1.Text = FormatNumber$(Val(Text1.Text ), 2, True, True, True)

- حيث أن الرقم 2 هو عدد الأرقام التي تريدها ان تظهر بعد النقطة الخاصة بالكسور .


RE: اريد كود لايجاد فاصلة الآلاف - Ahmed Gandos - 16-04-15

(15-04-15, 03:50 AM)Ahmed_Mansoor كتب : أهلا , إستخدم هذه الدالة :

كود :
Text1.Text = FormatNumber$(Val(Text1.Text ), 2, True, True, True)

- حيث أن الرقم 2 هو عدد الأرقام التي تريدها ان تظهر بعد النقطة الخاصة بالكسور .

شكرا لك استاذ Ahmed_Mansoor