لقد استخدمت هذا الكود ولكن دون جدوى وحاولت ان اجعل السعر دابل او ديسمل ولكن نفس المشكله اعلم انكم دائما في دعم المبرمجين المبتدئين
[
attachment=24011]
(20-02-20, 07:26 AM)alshandodi كتب : [ -> ]لقد استخدمت هذا الكود ولكن دون جدوى وحاولت ان اجعل السعر دابل او ديسمل ولكن نفس المشكله اعلم انكم دائما في دعم المبرمجين المبتدئين
استخدم /
مثل م كال [b]alsalamoni [/b]
كود :
TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
شكرا جزيلا على تفاعلكم ومساعدتي
(20-02-20, 12:27 PM)alshandodi كتب : [ -> ]شكرا جزيلا على تفاعلكم ومساعدتي
العفو اخي
إذا كان الناتج 1.08333333333
هل يمكن تقريبه الى 1.084
(20-02-20, 01:08 PM)alshandodi كتب : [ -> ]إذا كان الناتج 1.08333333333
هل يمكن تقريبه الى 1.084
كود :
Dim r = Val(TextBox1.Text) / Val(TextBox2.Text)
TextBox3.Text = r.ToString("0.000")
اخي صار عندي ولكن صار انه 1.083
(20-02-20, 01:54 PM)alshandodi كتب : [ -> ]اخي صار عندي ولكن صار انه 1.083
كود :
Dim r = Val(TextBox1.Text) / Val(TextBox2.Text)
r = Math.Ceiling(r * 1000) / 1000
TextBox3.Text = r.ToString("0.000")
شكرا جزيلا اخي alsalamoni
واكرر شكري لك اعضاء المنتدى الرائع