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

4 votes138 views1 answer
Excel vba how to programmatically remove the marching ants after range copy
VBA
2 votes134 views1 answer
Excel vba date to string conversion
VBA
0 vote178 views1 answer
Excel vba delete columns in range
VBA
3 votes136 views1 answer
Vba http request json
VBA
0 vote141 views1 answer
Vba check if class implements interface
VBA
0 vote128 views1 answer
Vbscript remove spaces from string
VBA
1 vote127 views1 answer
Excel vba Run a Macro every time sheet is changed
VBA
0 vote131 views1 answer
How to carry text to the next line in a label in vb.net
VBA
0 vote143 views1 answer
Vba registry settings
VBA
0 vote129 views1 answer
Vb net dgv doesn't keep currency format
VBA