تقريب الارقام لاقرب 5 جنيه

[محمد أبوعبدالله]

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

هل يمكن تصميم استعلام لتقريب الارقام لاقرب 5 جنيه

مثال : 941.15 = 941
946.15 = 950

تحياتي

[Gamal.Saad]

جرب

 Int(-0.2*[n])/-0.2

 

round_5_up.rar

[محمد أبوعبدالله]

جزاك الله خيرا اخي الفاضا جمال

هذا هو المطلوب سلمت يداك

تحياتي

[أ / محمد صالح]

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

بعد إذن الأستاذ الفاضل جمال سعد

بالنسبة للتقريب في الرياضيات هو ما كان أكبر من نصف الرقم الذي نقرب إليه يتم جبره لأعلى

وما كان أصغر من نصف الرقم الذي نقرب إليه يتم جبره لأسفل

مثال 

141 الواحد أقل من نصف 5 لذلك تجبر لأسفل فتصير 140

أما 143 فتجبر لأعلى فتصير 145

وكنت قد صممت دالة لهذا الغرض تساوي دالة mround الموجودة في إكسل 

Function masround(ByVal n As Double, Optional ByVal m As Double = 1) As Double
masround = IIf(n - (m * (n \ m)) >= (m / 2), m * (n \ m + 1), m * (n \ m))
End Function

وهي مرنة بحيث يتم تمرير العدد والمضاعف فمثلا لأقرب 5

masround([n],5)

ولأقرب 20

masround([n],20)

ولأقرب نصف

masround([n],0.5)

وهكذا

أما إذا كان المطلوب هو الرفع لأقرب أعلى 5 وهو دور دالة ceiling في إكسل

فهذه أيضا دالة لهذا الغرض

Function masCeiling(ByVal X As Double, Optional ByVal Factor As Double = 1) As Double
masCeiling = (Int(X / Factor) - (X / Factor - Int(X / Factor) > 0)) * Factor
End Function

ودورها رفع 121 إلى 125

ورفع 126 إلى 130

لأقرب أعلى 5

فاختر لنفسك أي الطريقتين تريد في حساباتك

 

وفقنا الله وإياكم لكل ما يحب ويرضى

[Gamal.Saad]

أ / محمد صالح ممتاز مشاركتك أستاذنا @

دالتين جميلتين

أعتذر لانتهاء رصيدي من اللايك اليوم

لك عندي واحدة

[أ / محمد صالح]

ولا يهمك يا غالي

أنا رصيدي مبيخلصش من اللايكات

زي ما برمجة المنتدى بتسمح

أول مرة أعرف معلومة محدودية رصيد اللايكات دي

المهم نشر العلم النافع للنفس وللغير

وفقنا الله وإياكم لكل خير

[Gamal.Saad]

فعلا والله

وهذه صورة الرسالة

http://

ومع زيادة النشاط وكثرة الموضوعات والمشاركات بالمنتدى المفروض العدد ده قليل ولازم يزيد

53 minutes ago, أ / محمد صالح said:

أول مرة أعرف معلومة محدودية رصيد اللايكات دي

المهم نشر العلم النافع للنفس وللغير

وفقنا الله وإياكم لكل خير

 

[محمد أبوعبدالله]

جزاك الله خيرا استاذنا محمد صالح