جبر الكسور فى المعادلات الحسابية

[safwatscc]

الاخوة الافاضل

فى برنامج الكنترول المدرسة معادلة

sum_arabic_Asley: [sum_arabic_all]*4/10

الناتج مثلا

14.1

14.2

14.3

14.4

14.5

14.6

14.7

14.8

14.9

المطلوب جبر الكسر الى اقرب نصف او اقرب درجة صحيحة

يعنى 14.1 الى 14.4 تصبح 14.5

ومن 14.6 الى 14.9 تصبح 15

وموجود حل لها فى الاكسيل لاننى لا اعمل حلها فى الاكسيس

الرجاء من الاخوة المساعدة

[safwatscc]

تمت الفائدة والاجابة

من احد الاخوة بارك الله فيهم وندعوا له بظاهر الغيب

حيث وجد وسط ملفاتى مثال به حل هذه المشكلة

وهذا هو الحل لمن اراد الاستفادة

عمل وحدة نمطية بالكود الاتى

Public Function RoundUpTo5(ByVal s) As Double

On Error Resume Next

Select Case s - Fix(s)

Case Is < 0.1: RoundUpTo5 = Fix(s)

Case Is < 0.49: RoundUpTo5 = Fix(s) + 0.5

Case Is = 0.5: RoundUpTo5 = Fix(s) + 0.5

Case Is < 0.99: RoundUpTo5 = Fix(s) + 1

End Select

End Function

وشكرا