[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)