Question

Whats the best way to round in VBA Access?

My current method utilizes the Excel method

Excel.WorksheetFunction.Round(... 

But I am looking for a means that does not rely on Excel.

Answer 1

Be careful, the VBA Round function uses Banker’s rounding, where it rounds .5 to an even number, like so:

Round (12.55, 1) would return 12.6 (rounds up)  Round (12.65, 1) would return 12.6 (rounds down)  Round (12.75, 1) would return 12.8 (rounds up)    

Whereas the Excel Worksheet Function Round, always rounds .5 up.

I’ve done some tests and it looks like .5 up rounding (symmetric rounding) is also used by cell formatting, and also for Column Width rounding (when using the General Number format). The ‘Precision as displayed’ flag doesn’t appear to do any rounding itself, it just uses the rounded result of the cell format.

I tried to implement the SymArith function from Microsoft in VBA for my rounding, but found that Fix has an error when you try to give it a number like 58.55; the function giving a result of 58.5 instead of 58.6. I then finally discovered that you can use the Excel Worksheet Round function, like so:

Application.Round(58.55, 1)

This will allow you to do normal rounding in VBA, though it may not be as quick as some custom function. I realize that this has come full circle from the question, but wanted to include it for completeness.