السلام عليكم ورحمة الله
اخوتي الكرام
ارجو المساعدة في تحويل صيغة الرقم من 0.8958333
الى رقم 0.89
ارجو المساعدة بكود
ولكم جزيل الشكر
وعليكم السلام ورحمة الله وبركاته
إن كنت لا تريد التقريب أبداً : استخدم الوظيفة (Floor)
ولا تنسى تحديد عدد الخانات التي تريد إظهاراها من خلال الضرب والتقسيم (على واحد جانبه أصفار بعدد الخانات المطلوبة) قبل وبعد الوظيفة
كتبسيط للفهم .. نكتب الكود التالي في حال ارقم الذي ذكرته أعلاه :
كود :
Dim X As Double = 0.8958333
Me.Text = Math.Floor(X * 100) / 100
(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)
وعليكم السلام و رجمة الله و بركاته
جربها بهذه الصيغة
PHP كود :
Dim y As Double = Math.Floor(Val(TextBox3.Text) * 100D) / 100D
TextBox3.Text = y
(29-07-24, 08:48 PM)asmarsou كتب : [ -> ]وعليكم السلام و رجمة الله و بركاته
جربها بهذه الصيغة
PHP كود :
Dim y As Double = Math.Floor(Val(TextBox3.Text) * 100D) / 100D
TextBox3.Text = y
مشكور اخي الكريم تم بنجاح