الدالة Fix و الدالة Int

الدالتان Fix و InT  من الدوال الرياضية المهمة و الكثيرة الاستخدام .

ملاحظة :الأعداد العشرية مثل: 12.3 ، 1.68456 ، 0.454 ، 15.6-

وظيفة الدالة Fix: تقوم بارجاع الجزء الصحيح من العدد العشري دون تقريب أو بعبارة أخرى تقوم  بحذف الأرقام العشرية الموجودة بعد العلامة العشرية بدون تقريب و ارجاع الجزء الصحيح من العدد 

 بمعنى لو كان لدينا العدد 1.33  وقمنا باستخدام الدالة Fix فان الناتج يكون 1  و هكذا...


الآن قم بانشاء مشروع جديد في الفيجوال بيسك و أضف Button ثم انقر عليه بالماوس نقرا مزدوجا للدخول الى نافذة الكود و اكتب الكود التالي: 

        MsgBox(Fix(-1.992)) 'الناتج -1

        MsgBox(Fix(5.999999)) ' 5 الناتج

        MsgBox(Fix(99.222)) '99 الناتج

        MsgBox(Fix(-15.7)) '-15 الناتج

        MsgBox(Fix(0.32992)) '0 الناتج

أما الدالة InT فلها نفس وظيفة الدالة Fix تماما الا أن الاختلاف بينها يظهر مع الأرقام السالبة .


فالدالتان ترجعان نفس القيمة اذا كان العدد العشري موجبا .مثال: 

         Dim new_number As Integer

        new_number = Fix(9.9) ' الناتج 9

        new_number = Int(9.9) ' الناتج 9

        new_number = Fix(10.99) ' الناتج 10

        new_number = Int(10.33) ' الناتج 10

أما اذا كان العدد العشري سالبا فهنا الاختلاف :


لاحظ المثال: 

       Dim new_number As Integer

        new_number = Fix(-9.9) ' -الناتج 9
        new_number = Fix(-10.99) ' -الناتج 10
        new_number = Fix(-3.55) ' -الناتج 3
        new_number = Fix(-100.2) ' -الناتج 100

       

        '''''''''''''''''''''''''''''''''''''''''

        '''''''''''''''''''''''''''''''''''''''''

        new_number = Int(-9.9) ' -الناتج 10
        new_number = Int(-9.3) ' -الناتج 10
        new_number = Int(-44.67567) ' -الناتج 45
        new_number = Int(-10.33) ' -الناتج 11
        new_number = Int(-0.9) ' -الناتج 1

أتمنى يكون المثال واضح .