14-11-17, 07:54 PM
Private Sub Command1_Click()
Dim n1
n1 = Val(Text1)
Text2 = MRound(n1, 1000)
End Sub
Function MRound(n, r)
MRound = Round(n / r, 0) * r
End Function
Dim n1
n1 = Val(Text1)
Text2 = MRound(n1, 1000)
End Sub
Function MRound(n, r)
MRound = Round(n / r, 0) * r
End Function

