[Ahmed Gandos]

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


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

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

[Ahmed_Mansoor]

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

كود :

Text1.Text = FormatNumber$(Val(Text1.Text ), 2, True, True, True)

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

[Ahmed Gandos]

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

كود :

Text1.Text = FormatNumber$(Val(Text1.Text ), 2, True, True, True)

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

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