تقريب مبالغ

إذا كان الرقم مخزن في A ونتيجة التقريب نريد أن نضعها في B

نكتب هذا الكود :

    B = -(Int(-[A] / 500) * 500)

هذا الكود يقرب أي رقم إلى أقرب أعلى 500

إذا كان ما تريده غير ذلك يرجى الايضاح أكثر

مشكور اخ مهند

وضحت لي التقريب الثاني اما التقريب الاول والثالث

الاول تقريب المبلغ الى اصفار بعد الدينار مثل 147000 دينار

الثالث تقريب الى 147250 او ((147500 هذا واضح كما ذكرت ))و 147750

لك الشكر

اخي مهند

تحية طيبة

بعد تطبيق الكود اتضح مايلي

انه يقرب المبلغ الى الاعلى فقط

المطلوب اى مبلغ اقل من 500 فلس يرجع الى الوراء واكثر من 500 فلي يصعد الى الاعلى مثال

147350 يصبح 147000 وهكذا مبلغ 147650 يصبح 148000

أخي الكريم ، هذا ما تريد

  B = (Int(([A] / 1000) + 0.5) * 1000)

اخي مهند.... تعبتك

مشكور

وصلنا للحل لكن اريد ان يبقي المبلغ 500 كما هي اى ماهو اقل وما هو اكثر يتغير كما تفضلت ووضعت الكود لكن عند كتابة 500 فلس مثال 147500 عليه ان يبقى ولا يتغير

 B = iif(right(str(A),3)="500",A ,Int(([A] / 1000) + 0.5) * 1000)

الف شكر

الف شكر

الكود لا يعمل اعتقد يوجد خط في الكود ( الاقواس او الفواصل)

أخي الكريم الكود يعمل بشكل صحيح

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

مشكور اخي مهند

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

(INT([A]/25+0.5)*25)