Vba round number

Function RoundTo(pNumber As Long, pFactor As Long)
    RoundTo = Round(pNumber / pFactor) * pFactor 
End Function
' ---------------------------------------------------------------
Sub TestMe()
    Debug.Print RoundTo(2543, 10)    			' => 2540
    Debug.Print RoundTo(2546, 10)    			' => 2550
    Debug.Print Application.RoundUp(10.1, 0) 	' => 10
    Debug.Print Application.RoundUp(10.6, 0) 	' => 11
    Debug.Print Application.RoundDown(10.6, 0) 	' => 10
End Sub

Similar codes

0 vote266 views2 answers
Get unique random number in vb.net
VBA
0 vote232 views1 answer
Vba first cell in range
VBA
0 vote244 views1 answer
How to get value from clipboard in vbnet
VBA
0 vote271 views2 answers
Delete all controls from list of control vb.net
VBA
0 vote217 views1 answer
Vba argument is set
VBA
2 votes224 views1 answer
Vba split string
VBA
3 votes316 views1 answer
Excel vba make long from two shorts
VBA
0 vote240 views1 answer
How to extract a file from an ISO:
VBA
0 vote228 views1 answer
Select case vba
VBA
0 vote249 views1 answer
Vba html document reference
VBA