الرجاء من الإخوة الكرام تكميل هذه المعادلة

[محمد السباعي]

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

برجاء من الأخوه الأحباء تكميل هذه المعادلة لتصبح لأربع متغيرات

بحيث من 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

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

[محمد السباعي]

فين الردود يا إخواني

[حازم حسين]

السلام عليكم يا اخ محمد

ممكن توضح السؤال اكثر لاني مش فاهمه

شكراً

[منذر عساج]

أخي الكريم

ستكون الكود بالشكل التالي مع تغيير نتيجة تحقق الشرط بما تريد .

Public Function RoundUpTo5(ByVal S) As Double
On Error Resume Next
Select Case S - Fix(S)
Case 0 To 0.25: RoundUpTo5 = Fix(S) + 0.5
Case 0.26 To 0.5: RoundUpTo5 = Fix(S) + 0.5
Case 0.51 To 0.75: RoundUpTo5 = Fix(S) + 0.5
Case 0.76 To 1: RoundUpTo5 = Fix(S) + 0.5
End Select
End Function

[a1d]

راجع هذا المثال يمكن يكون الحل

12.rar