كود التقريب إلى أقرب عدد عشري

السلام عليكم : أخي الكريم استخدم الدالة fix ...

مثال :

dim a 

a=1.50

fix(a)   :msgbox a

لو أردنا تقريب اي عدد لحد معين

يعني

يقربها بعد الفاصلة بخانتين والعدد الصحيح لا يغير فيه شيء مثل ما هو

ويبقى ما بعد الخانة فقط رقمين ..

فمثلا : الرقم 12.23425 يقربها إلى 12.23

والرقم الرقم 12.23655 يقربها إلى 12.24

وشكرا لكم

السلام عليكم ورحمة الله وبركاته

الدالة Round تفى بالغرض وتحتاج لمعاملين الاول هو العدد الذى نريد تقريبه والثانى هو عدد الارقام العشرية بعد العلامة

Private Sub Command1_Click()
Text1.Text = Round(17.567, 1)
End Sub