يوجد دالة للتقريب يعني ممكن تقص الاعداد العشرية من خلال الامر int()
او التقريب
إستعمل الدالة Round
Round(expression [,numdecimalplaces])
Dim numberRounded as Double
numberRounded = Val(Text1.Text)
Text1.Text = Round(numberRounded)
__________________
هذا من فضل ربي
|