vba round number

The solution for “vba round number” can be found here. The following code will assist you in solving the problem.

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

Thank you for using DeclareCode; We hope you were able to resolve the issue.

More questions on [categories-list]

Similar Posts