[الاستاذ خليل]

يوجد دالة للتقريب يعني ممكن تقص الاعداد العشرية من خلال الامر int()

او التقريب
إستعمل الدالة Round
Round(expression [,numdecimalplaces])

Dim numberRounded as Double
numberRounded = Val(Text1.Text)
Text1.Text = Round(numberRounded)