كيفية التقريب إلى مضاعفات رقم معين كالخمسة

وعليكم السلام

استخدم هذا الكود البرمجي

Dim Var As Integer
Var = Right(num, 1)
Select Case Var
Case Is <= 5
Me.num1 = Me.num - Var + 5
Case Is >= 5
Me.num1 = Me.num - Var + 10
End Select

وان رغبت ان لايطبق الكود على العدد 5 مثل 125 ؟ تبقى كما هي فاستبدله بهذا الكود

Dim Var As Integer
Var = Right(num, 1)
Select Case Var
Case Is < 5
Me.num1 = Me.num - Var + 5
Case Is > 5
Me.num1 = Me.num - Var + 10
End Select

وهذا مثال مرفق على ماطلبت .. موفق

Ek_Num.rar

لا أستطيع إلا قول كود رائع من أستاذ أكثر روعة.

تحياتى

محمد ندا

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

بداية أشكرك على ردك على موضوعي ولكن استفساري سوف أشرحه بطريقة مفصلة أكثر :

في التقرير يوجد ثلاثة حقول مثلاً :

الكمية السعر الافرادي المبلغ

3 13

حقل المبلغ هو عبارة عن الكمية * السعر الافرادي ( بإضافة تعبير ) أي الناتج سوف يكون 39 وأنا أريد أن أقرب الناتج إلى مضاعفات الخمسة أي أريد أن يكون الناتج 40 .

فأرجو منك توضيح الحل لهذه المسألة بسبب أن خبرتي بالبرمجة قليلة ، ولكم مني جزيل الشكر و الامتنان .

lما شاء الله فكرة جميلة جدا ولكن اسمحلي أستاذي العزيز أبو عبدالله بإضافة هذا السطر الى مثالك الجميل ..

في حالة كانت النتيجة = 0 مثلا 180 او 40 فإن المبلغ لا يتغير أعتقد أن هذا ما يطلبه الأخ السائل ..

أخي الكريم أبو يزن أهلا بك أخا عزيزا كريما ..

ارجو ان يكون مثال أخي أبو عبدالله أكسير يفي بالغرض ..

تقبلوا جميعا تحياتي ..

أبو عدنان ..

Ek_Num.rar