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 vote162 views1 answer
Filesystemobject vba reference
VBA
0 vote162 views1 answer
Label de tableau dans des label.text en VBA
VBA
0 vote149 views1 answer
Open application from vbnet
VBA
0 vote187 views1 answer
Vba foreach 2d array
VBA
0 vote155 views1 answer
Vba array of integers
VBA
8 votes282 views1 answer
Vba convert 2 bytes to an integer
VBA
1 vote163 views1 answer
Shortcut to apply a formula to an entire column in excel
VBA
0 vote153 views1 answer
Vb net show lines for all axis labels in chart
VBA
0 vote151 views1 answer
Vb get ip address
VBA
0 vote144 views1 answer
Faire appel à la mise en forme conditionnelle vba excel
VBA