+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : خانات الآحاد والعشرات والمئات ... الخ (/showthread.php?tid=31706)
خانات الآحاد والعشرات والمئات ... الخ - أبو عقيل - 10-10-19
السلام عليكم
كيف حالكم ؟؟
احتاج مساعدتكم في كود لإضافات خانات او فواصل الآحاد والعشرات والمئات ....
مثلا من هذا الرقم 5680123 إلى هذا الرقم 5,680,123
RE: خانات الآحاد والعشرات والمئات ... الخ - asemshahen5 - 10-10-19
PHP كود :
Text1.Text = Format(Text1.Text, "00,000.00")
RE: خانات الآحاد والعشرات والمئات ... الخ - أبو عقيل - 10-10-19
اهلا وسهلا أخي الكريم
هذا الكود ضبط مع الارقام الكبيرة من 10000 فما فوق
ولكن مع الارقام الصغيرة مثلا 100 فيظهر بهذا الشكل 00,100
ومع رقم 25 يظهر بهذا الشكل 00,025
هل يوجد مايحذف الاصفار التي قبل الفاصلة
وشاكر لك مرورك الكريم
RE: خانات الآحاد والعشرات والمئات ... الخ - asemshahen5 - 10-10-19
PHP كود :
Dim b As String
b = Text1.Text
Text1.Text = FormatCurrency(CDbl(b), "00,000.00")
RE: خانات الآحاد والعشرات والمئات ... الخ - أبو عقيل - 11-10-19
ألف شكر لك أخي الكريم
ضبط الكود مئة بالمئة
RE: خانات الآحاد والعشرات والمئات ... الخ - asemshahen5 - 11-10-19
PHP كود :
Text1.Text = Format(Text1.Text, "##,###.00")
الحمد الله و الشكر الله .
RE: خانات الآحاد والعشرات والمئات ... الخ - أبو عقيل - 11-10-19
كذلك هذا الكود افضل وممتاز جداً
ولك مني الشكر الجزيل
RE: خانات الآحاد والعشرات والمئات ... الخ - sendbad100 - 11-10-19
اضافة الى ما قدمه الاخ / عاصم مشكوراً
جرب التالي
كود :
Text1.Text = Format(Val(Text1.Text), "0,0.00")