[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