[تناسيم]

السلام عليكم
اريد في ناتج عملياتي الحسابية في البرنامج تقريب الناتج الذي يحتوي على كسر بالقروش  الي اقرب ٠.٢٥قرش او ٠.٥٠ قرش  او ٠.٧٥ قرش  او ١ جنيه فقط حيث بالفعل اقوم بتقريب الناتج  باستخدام الدالة round لاقرب رقمين عشرين ولكني اريد الان التقريب فقط  لاقرب ٠.٢٥ او ٠.٥٠ او٠,٧٥ او ١
مثلا اريد ٠,١٥ تصبح ٠.٢٥ قرش و ٠.٣٣ تصبح ٠.٥٠ قرش و ٠.٦٦ الى ٠,٧٥  قرش وفيما فوق ٠.٧٥ قرش مثل ٠.٧٦ ،  ٠.٩٩ تصبح ١صحيح فكيف يمكن عمل ذلك
ارجو المساعدة وشكرا

[Done]

PHP كود :

Public Function XRound(c As Double) As Double
    Dim a = Fix(c), b = c - a
    If b > 0 And b < 0.25 Then b = 0.25
    If b > 0.25 And b < 0.5 Then b = 0.5
    If b > 0.5 And b < 0.75 Then b = 0.75
    If b > 0.75 Then b = 0 : a += 1
    Return a + b
End Function 


---

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    MsgBox(XRound(Val(TextBox1.Text)))

End Sub 


[elgokr]

الك كود بسيط يمكنك استخدامه والتعديل عليه

طبقاً للارقام المطلوبة لك

كود :

       Dim MNumber_() As String = Split(Val(TextBox1.Text).ToString("0.00"), ".")
       If MNumber_(1) >= 0 And MNumber_(1) <= 14 Then MNumber_(1) = 0
       If MNumber_(1) >= 15 And MNumber_(1) <= 32 Then MNumber_(1) = 25
       If MNumber_(1) >= 33 And MNumber_(1) <= 65 Then MNumber_(1) = 50
       If MNumber_(1) >= 66 And MNumber_(1) <= 85 Then MNumber_(1) = 75
       If MNumber_(1) >= 86 And MNumber_(1) <= 99 Then
           MNumber_(0) = Val(MNumber_(0)) + 1
           MNumber_(1) = 0
       End If
       Dim VNumber_ As Double = Val(MNumber_(0) & "." & MNumber_(1))
       MsgBox(VNumber_.ToString("0.00"))

تحياتى لك

وتمنياتى لك التوفيق