السلام عليكم ورحمة الله وبركاتة
برجاء من الأخوه الأحباء تكميل هذه المعادلة لتصبح لأربع متغيرات
بحيث من 0 إلى 0.25
و
من 0.26 إلى 0.50
و
من 0.51 إلى 0.75
و
من 0.76 إلى 1.00
وهذه هي المعادلة
( في هذه المعادلة لمتغير واحد فقط )
Public Function RoundUpTo5(ByVal S) As Double
On Error Resume Next
Select Case S - Fix(S)
Case 0: RoundUpTo5 = S
Case 0 To 0.5: RoundUpTo5 = Fix(S) + 0.5
Case Is > 0.5: RoundUpTo5 = Round(S, 0)
End Select
End Function
جزاكم الله خيرا