[MOHAMMED ALZWI]

السلام عليكم ورحمة الله 
اخوتي الكرام  
ارجو المساعدة في تحويل صيغة الرقم من  0.8958333

الى رقم 0.89 
 ارجو المساعدة بكود 

ولكم جزيل الشكر

[Taha Okla]

وعليكم السلام ورحمة الله وبركاته
إن كنت لا تريد التقريب أبداً : استخدم الوظيفة (Floor)
ولا تنسى تحديد عدد الخانات التي تريد إظهاراها من خلال الضرب والتقسيم (على واحد جانبه أصفار بعدد الخانات المطلوبة) قبل وبعد الوظيفة
كتبسيط للفهم .. نكتب الكود التالي في حال ارقم الذي ذكرته أعلاه :

كود :

Dim X As Double = 0.8958333
Me.Text = Math.Floor(X * 100) / 100

[MOHAMMED ALZWI]

(28-07-24, 05:34 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته
إن كنت لا تريد التقريب أبداً : استخدم الوظيفة (Floor)
ولا تنسى تحديد عدد الخانات التي تريد إظهاراها من خلال الضرب والتقسيم (على واحد جانبه أصفار بعدد الخانات المطلوبة) قبل وبعد الوظيفة
كتبسيط للفهم .. نكتب الكود التالي في حال ارقم الذي ذكرته أعلاه :

كود :

Dim X As Double = 0.8958333
Me.Text = Math.Floor(X * 100) / 100

شكرا اخي الكريم 
 المطلوب اضهار الرقم والفاصلة العشرية ورقمين فقط دون تقريب العدد
الناتج يصبح هكذا =  0.89

جربت عدة طرق 
TextBox3.Text = Format(Val(TextBox3.Text), "0.00")
 TextBox3.Text = FormatNumber(TextBox3.Text, 2)
TextBox3.Text = Math.Round(Val(TextBox3.Text), 2)

[asmarsou]

وعليكم السلام و رجمة الله و بركاته
جربها بهذه الصيغة

PHP كود :

Dim y As Double = Math.Floor(Val(TextBox3.Text) * 100D) / 100D
        TextBox3.Text = y 


[MOHAMMED ALZWI]

(29-07-24, 08:48 PM)asmarsou كتب : وعليكم السلام و رجمة الله و بركاته
جربها بهذه الصيغة

PHP كود :

Dim y As Double = Math.Floor(Val(TextBox3.Text) * 100D) / 100D
        TextBox3.Text = y 


مشكور اخي الكريم   تم بنجاح