Solved

# VBA Rounding Issue

Posted on 2011-03-09
709 Views
Last Modified: 2012-06-10
in VBA i used Round() function to round off a number to 2 decimal.

For 2.855 the 2 decimal rounding should be 2.86, however using Round(2.855,2) gives 2.85 !!!

How to get round half up working ?

Help appreciated, Thanks.
0
Question by:cynx
• 4
• 3
• 2
• +1
13 Comments

LVL 85

Expert Comment

Use Application.Round to get the worksheet function version of Round rather than the VBA Round.
0

LVL 33

Accepted Solution

jppinto earned 167 total points
Use the Application.Round function instead, like this:

Application.Round(2.855, 2)

jppinto
0

LVL 9

Expert Comment

I just checked and found that VBA rounding as mentioned in the question works just fine.

I am attaching a sample XL file with the code here.  Please check it out and let me know.

VBA-Rounding.xls
0

LVL 85

Assisted Solution

Rory Archibald earned 167 total points
VBA's Round function uses banker's rounding, the worksheet function ROUND uses arithmetic rounding. (the example given by the asker I suspect was a typo)
In a worksheet =ROUND(2.865,2) will give 2.87
In VBA Round(2.865,2) will give 2.86

If you want arithmetic rounding (consistent with the worksheet functions) you need either Application.Round or Application.WorksheetFunction.Round

Regards,
Rory
0

LVL 9

Assisted Solution

felixdsouza earned 166 total points
Ok, rorya,

I agree with you on the point that Application.Round or Application.Worksheetfunction.Round needs to be used.

However, please look at the attached file:
VBA round correctly computes Round(2.855,2) as 2.86 and Round(2.875,2) as 2.88.

I suspect VBA alternates between rounding up and rounding down... where the last significant digit to be rounded off (in this case the second decimal digit) is odd, it rounds up (arithmetic rounding, which is want we want and expect), and where that particular digit is even, VBA round down.

I have attached sample file.
VBA-Rounding-2.xls
0

LVL 85

Expert Comment

That's what I said - it's called Banker's Rounding. :)
0

LVL 1

Author Comment

sorry was away for a while, missed out on assigning points.
rorya's first post solved my issue, hence all 500 for him :), thanks all for help.
0

LVL 1

Author Comment

I am not able to allocate points as this was abandoned.
i get following error
This question already has an auto close request. You must cancel the previous request before creating another.

all 500 points should rightly be assigned to rorya. mods plz help sorting this out.
0

LVL 1

Author Comment

I am not able to allocate points as this was abandoned.
i get following error
This question already has an auto close request. You must cancel the previous request before creating another.

all 500 points should rightly be assigned to rorya. mods plz help sorting this out.
0

LVL 85

Expert Comment

Somebody care to explain this allocation which goes directly against what the asked wanted?
0

## Join & Write a Comment Already a member? Login.

A little background as to how I came to I design this code: Around 5 years ago I designed an add-in that formatted Excel files to a corporate standard, applying different cell colours and font type depending on whether the cells contained inputs,…
PaperPort has a feature called the "Send To Bar". It provides a convenient, drag-and-drop interface for using other installed software, such as Microsoft Office. However, this article shows that the latest Office 2016 apps (installed with an Office …
Graphs within dashboards are meant to be dynamic, representing data from a period of time that will change each time the dashboard is updated with new data. Rather than update each graph to point to a different set within a static set of data, t…
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…

#### 763 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

#### Need Help in Real-Time?

Connect with top rated Experts

9 Experts available now in Live!