[ابو ليلى]

السلام عليكم
دالة التقريب استخدم     Math.Round
بفرض ان لديك TextBox1 يحتوي على قيمة عددية و اردت تقريب القيمة فيه  استخدم TextBox2 لاستقبال القيمة المقربة عبر زر امر ينفذ الكود التالي

PHP كود :

       TextBox2.Text = Math.Round(CDec(TextBox1.Text), 0, MidpointRounding.AwayFromZero) 


حيث العدد 0 يمثل عدد الارقام بعد الفاصلة

بالنسبة للتفقيط سارفق لك ملف جاهز استورده الى المراجع لديك ثم تعامل معه كما في الكود 
في بداية الكلاس الخاصة بك

PHP كود :

Imports mero5000 


ثم في المكان الذي تريد فيه تطبيق التفقيط كما يلي

PHP كود :

       Dim M As New mero

        Label1.Text = M.mero5000(TextBox1.Text) 


لا تنسى صاحب الملف من دعوة صالحة
بالتوفيق اخي الكريم