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 vote167 views1 answer
Vba loop through table
VBA
0 vote161 views1 answer
Vba like with wildcard
VBA
3 votes174 views1 answer
Vba make long from two words
VBA
0 vote176 views1 answer
Reset border color textbox vba
VBA
5 votes200 views1 answer
Vba low word from Long Integer
VBA
0 vote202 views1 answer
Vbnet check if string is only letters
VBA
0 vote158 views1 answer
How to set location and size of new from vb
VBA
1 vote159 views1 answer
Vba declare api 64 bit 32 bit
VBA
5 votes188 views1 answer
Excel vba get low byte from INTEGER
VBA
0 vote170 views1 answer
Vba code for cutoff time
VBA