تقريب الأعداد

[2saad]

اخواني أعضاء المنتدي الكرام

لو سمحتم عايز اعرف ازاي اقرب الاعداد

5.4         تبقي 5

5.5      تبقي 6

9.44   تبقي 9

9.55    تبقي 10

 

 

 

 

 

[ابوخليل]

round([text1];0)

 

[Moosak]

دالة Round 
تقرب الأعداد الفردية للأعلى والزوجية للأسفل

مثال:
1.2 > 1
1.5 >2
1.9 > 2
2.2 > 2
2.5 >2
2.9 >3
-----------------------------------------------------
ولجعل هذه الدالة ترفع دائما للأعلى نستخدم الصيغة التالية :

-Int(-Number)

حيث Number هو الرقم أو الحقل المطلوب

1.2 > 2
1.5 >2
1.9 > 2
2.2 > 3
2.5 >3
2.9 >3
-------------------------------------------------
دالة Int
تقرب للأسفل

مثال:
1.2 > 1
1.5 >1
1.9 > 1
2.2 > 2
2.5 >2
2.9 >2
-------------------------------------------------
دالة Fix
تقرب للرقم الأقرب للصفر
بمعنى الأعداد الموجبة تنزلها
والسالبها ترفعها

مثال:
1.2 > 1
1.5 >1
1.9 > 1
2.2 > 2
2.5 >2
2.9 >2
-1.2 > -1
-1.5 >-1
-1.9 > -1
-2.2 > -2
-2.5 >-2
-2.9 >-2

-------------------------------------------------
دالة Fix
تقرب للرقم الأقرب للصفر
بمعنى الأعداد الموجبة تنزلها
والسالبها ترفعها

مثال:
1.2 > 1
1.5 >1
1.9 > 1
2.2 > 2
2.5 >2
2.9 >2
-1.2 > -1
-1.5 >-1
-1.9 > -1
-2.2 > -2
-2.5 >-2
-2.9 >-2

[Foksh]

ومشاركة مع أساتذتي ، لتقريب الأرقام لأقرب عدد صحيح إذا كان الجزء الكسري = أو أكبر أو أصغر من 0.5 

Function RoundFoksh(Number As Double) As Integer
    If Number - Int(Number) >= 0.5 Then
        RoundFoksh = Int(Number) + 1
    Else
        RoundFoksh = Int(Number)
    End If
End Function

 

ولاستدعاء الدالة كالآتي :-

RoundFoksh(5.4) ' ستكون القيمة 5
RoundFoksh(5.5) ' ستكون القيمة 6
RoundFoksh(9.44) ' ستكون القيمة 9
RoundFoksh(9.55) ' ستكون القيمة 10

 

تم تعديل April 18 بواسطه Foksh

[2saad]

شكرا جزيلا لكم جميعا وبارك الله فيكم

لي سؤال : كيف اطبق الدالة علي الارقام في التقرير ؟

[Foksh]

12 دقائق مضت, 2saad said:

لي سؤال : كيف اطبق الدالة علي الارقام في التقرير ؟

ارفق ملفك أخي الكريم .

[kkhalifa1960]

مساهمة مع الزملاء ومستخدم موديول استاذ @Foksh تفضل استاذ @2saad محاولتي . بالتقرير (Report1) الحقل (Total Price after Rounding) .

DDTestRound.rar

[عبدالقدوس48]

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

نفضل أخي

التقريب بعد التعديل.mdb

[2saad]

شكرا لكم جميعا وبارك الله فيكم

لس سؤال أخي عبدالقدوس 48

لما بفتح ملفك المرفق يأتي نموذج بالتقريب 

السؤال : كيف اطبق هذ الملف علي ملفي ؟

[Foksh]

12 دقائق مضت, 2saad said:

 

السؤال : كيف اطبق هذ الملف علي ملفي ؟

اخي @2saad لاحظ انك غير مهتم بحل المشكلة رغم متابعة عدد كبير من الأساتذة في الردود وتعدد الحلول.

وما زلت تسأل دون إرفاق ملفك الذي تعمل عليه .

 

شكراً بالنيابة عن المتابعة.

[2saad]

والله يا أخي هحاول افصل حاجات من الملف وهرسله لحضرتك

وشكرا جزيلا لمجهوداتكم