[@@أبورائد@@]

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




تفضل دالة Round5Digit

PHP كود :

Private Sub Command1_Click()
    Text2.Text = Round5Digit(Val(Text1.Text))
End Sub

Private Function Round5Digit(num As Integer)
    Round5Digit = num Mod 10
    If Round5Digit > 5 Then
        Round5Digit = num - Round5Digit + 10
    Else
        Round5Digit = num - Round5Digit + 5
    End If
    If num = 0 Then Round5Digit = 0
End Function 


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