كيف يتم التقريب لاقرب 5

اخي واستاذي محمد فؤاد هذه دالة في الاستعلام الذي وضعه في المرفق تعمل بشكل صحيح مع الاعداد فوق الرقم عشرة جربها وانا الان في احاول في ايجاد الحل للارقام التي تحت العشرة

emad: IIf(Right([Balance];1)>=3;Left([Balance];1) & 5;[Balance]-Right([Balance];1))

تفضل اخى الكريم

اليك هذه الدالة

Round.rar

أو استخدم هذه مباشرة في الاستعلام

My_Round_Field: Round(IIf(([Balance] Mod 5>=3);([Balance]-([Balance] Mod 5)+5);([Balance]-([Balance] Mod 5))))

تحياتي

أخواني الافاضل ونأسف علي التأخير في الرد

كفيتم ووفيتم

الحل مظبوط 100%

اهدنا الصراط كتب:

اخي واستاذي محمد فؤاد هذه دالة في الاستعلام الذي وضعه في المرفق تعمل بشكل صحيح مع الاعداد فوق الرقم عشرة جربها وانا الان في احاول في ايجاد الحل للارقام التي تحت العشرة

emad: IIf(Right([Balance];1)>=3;Left([Balance];1) & 5;[Balance]-Right([Balance];1))

في هذا المثال أنت تبحث عن الرقم الاخير وتقوم بتعديله . ستواجه مشكلة عند الارقام الصحيحه الأقل من 10 . سوف يقوم باضافة 5 وبالتالي لو كان الرقم 3 سوف يصبح 35 .

تحياتي

سؤال جيد أخي محمد

وحل وموفق أخي mrnooo

وإذا سمحت لي قمت بتعديل بسيييييييييط في الدالة لتصبح هكذا

Function rnd5(x As Double) As Integer
rnd5 = IIf(x - (x \ 5) * 5 >= 2.5, (x \ 5) * 5 + 5, (x \ 5) * 5)
End Function

أتمنى أن أكون قد وفقت في ذلك

وهدية مني لمن استعمل دالة ceiling & floor في إكسل ويريد استعمالها في أكسس

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

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

Function Floor(ByVal x As Double, Optional ByVal Factor As Double = 1) As Double
    Floor = Int(x / Factor) * Factor
End Function

ولا تنسوا أخاكم محمد صالح من صالح دعائكم