خطأ فى جمع الأرقام العشرية + التقريب لأقرب خمس قروش

السلام عليكم

في الإكسيل ليس هناك مشكلة يمكنك حل المشكلة من خلال دوال 

roundup التقريب لأعلى رقم صحيح او جزء من عشرة او مائة او الف

rounddown التقريب لأقل رقم صحيح او جزء من العشرة والمائة والالف 

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

Dim numvalue As Double 
numvalue = [Value] 
 'where [Value] is the field name on the form containing the value to be rounded.
 
 'Checks If the value has anything after the decimal point
 'if it does then stop the routine
If (numvalue - Int(numvalue)) = 0 ThenExit Sub 
 
 'otherwise, remove the decimal part of the value and add 1 to it to round it up.
Else 
    numvalue = Int(numvalue) + 1 
    MsgBox numvalue ' display the new value
     
     '[Value] = numvalue
     ' remove the ' from in front of the [Value] to make it the rounded up number
     
End If

الدالة الثانية - الانسب لك بعد التعديل عليها

'Method 2 suggested by MDmackillop. Using the Round function.
 'set the number variable as a double precision number.
Dim numvalue As Double 
numvalue = [Value] 
 'where [Value] is the field name on the form containing the value to be rounded.
 
 'Checks If the value has anything after the decimal point
 'if it does then stop the routine
If (numvalue - Int(numvalue)) = 0 Then Exit Sub 
 
 'otherwise, add 0.05 to the value which will force the round function to round it up.
Else 
    numvalue = Round(numvalue + 0.05) 
    MsgBox numvalue ' display the new value
     
     '[Value] = numvalue
     ' remove the ' from in front of the [Value] to make it the rounded up number
     
End If