komi2004 قام بنشر أبريل 1, 2020 مشاركة قام بنشر أبريل 1, 2020 بحاجة الى كود يقوم تقريب الرقم كما في المثال المذكور ادناه مثل 6.2=6 6.3 = 6.5 6.5=6.5 6.69=6.5 6.7=7 مع الشكر رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر أبريل 1, 2020 مشاركة قام بنشر أبريل 1, 2020 8 ساعات مضت, komi2004 said: بحاجة الى كود يقوم تقريب الرقم كما في المثال المذكور ادناه مثل 6.2=6 6.3 = 6.5 6.5=6.5 6.69=6.5 6.7=7 مع الشكر بحثت لك فوجدت هذا الملف .. إن شاء الله يكون ما أردت . تقريب1.mdb رابط هذا التعليق شارك More sharing options...
Hawiii قام بنشر أبريل 7, 2020 مشاركة قام بنشر أبريل 7, 2020 (معدل) جرب هذه الدالة: Function myRound(ByVal Num As Double) As Double Dim DecOld As Double Dim DecNew As Double DecOld = Num - Int(Num) Num = Int(Num) 'If DecOld < 0.3 Then If DecOld < 0.29999999999 Then DecNew = 0 ElseIf DecOld >= 0.7 Then DecNew = 1 Else DecNew = 0.5 End If myRound = Num + DecNew End Function تم تعديل أبريل 7, 2020 بواسطه Hawiii رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.