تقريب ارقام عشرية الى رقمين فقط

استخدم Math.Round

حمزة كتب:

استخدم Math.Round

طيب ممكن مثال

اتفضل

جربها وادعي لي

tamer229 كتب:

اتفضل

MsgBox(Math.Round(3.3333, 2))

جربها وادعي لي

مرحبا

مشكور على ردك يا أخى

ولكن لى تعقيب

هذا الكود بالاعلى به مشكلة وهو يظهر القيم بدون علامة عشرية وحرفين بعدها

وزى ما قولت فى اول مشاركة

تقريب القيمة 5.3633333

عايز أقرب الارقام الى 5.37

او

5.3336533

النتيجة تكون=

5.33

شكرا لسعة صدركم

اخي العزيز نفرض ان لديك متغير يحمل قيمة بها كسر طويل مثل

Dim xx As Decimal = 5.3563333

اذا اخذنا المتغير xx ووضعناة في TextBox سيكون الناتيجة 5.3563333

ولكن لتقريب الكسر استعمل التالي

Dim xx As Decimal = 5.3563333

TextBox1.Text = xx.ToString("#.00")

في هذة الحالة يكون الناتج 5.36

طبعاً يمكنك التحكم في عدد الكسر من خلال الاصفار قم بوضع 000 بعد العلامة العشرية ليتم تقريبها لثلاث ارقام او كما تريد

ارجو ان اكون اوضحت لك الفكرة

Ahmed Wahb كتب:

اخي العزيز نفرض ان لديك متغير يحمل قيمة بها كسر طويل مثل

Dim xx As Decimal = 5.3563333

اذا اخذنا المتغير xx ووضعناة في TextBox سيكون الناتيجة 5.3563333

ولكن لتقريب الكسر استعمل التالي

Dim xx As Decimal = 5.3563333
TextBox1.Text = xx.ToString("#.00")

في هذة الحالة يكون الناتج 5.36

طبعاً يمكنك التحكم في عدد الكسر من خلال الاصفار قم بوضع 000 بعد العلامة العشرية ليتم تقريبها لثلاث ارقام او كما تريد

ارجو ان اكون اوضحت لك الفكرة

مرحبااا

نعم أخى لقد اوضحت الحل 100 * 100 أشكرك

جزاك الله خير انت وحمزة وtamer229 فى مساعدتى

تحياتى