عاجل مطوب مني الحل هذا المساء ، عملية رياضية ( عامل خمسه)

X = 27.4999999

Result = (X - X Mod 5) + (CLng(((X Mod 5) * 2 / 10) + (1 / 10 ^ 15)) * 5)

أشكرك اخي أبو هادي على المساعدة

ولكن للاسف جربت الكود لم ينفع

ارجو ان تدخل الارقام التي كتبتها في المثال فانه لابد ان تظهر النتيجة كما هو موضح في المثال

وشكرا

ارجو منك معاوة المحاولة وجزاك الله خيرا

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

وشكرا

في أي وحدة نمطية عامة الصق الكود

Function NewNN(OldNN As Currency) As Currency

Dim MyMod As Currency

MyMod = OldNN - (CLng(OldNN) - OldNN Mod 5)

OldNN = OldNN - MyMod

If MyMod < 2.5 Then MyMod = 0 Else MyMod = 5

NewNN = OldNN + MyMod

End Function

ثم سوي استعلام جديد

واعمل حقل جديد اكتب فيه

Expr1: NewNN([NUMBER])

طبعا بدلا من كلمة NUMBER اكتب حقل الرقم اللي تبغى تحويله

جزاك الله خيرا اخي osama457

وكثر الله من امثالك

نعم اخي جربت الكود ونفع معي والحمد لله ، فجزاك الله عني كل خير .

غفر الله لك ولوالديك .

السلام عليكم

آسف لم أنتبه أن ناتج الـ Mod يكون رقما صحيحا بدون كسر

والحقيقة لما رأيتك في مأزق ولم يرد عليك أحد وضعت الحل على عجالة ولم أقم بفحص النتائج لاقتناعي بمنطقية الكود .

على كل حال أنا طبعي أميل إلى الإختصار في كتابة الكود ولكن هذه الطريقة قد تكون لها عواقبها أيضا وهو عمليات الضرب والقسمة حيث تجهد المعالج في عمليات المعالجة ويفضل تجنبها بقدر الإمكان بعكس عمليات الجمع والطرح فهي عمليات بسيطة وخفيفة في المعالجة .

تحياتي