Solved

# Rounding Decimals

Posted on 2000-03-03
498 Views
Fairly important to what I'm doing right now . . . .Is there a function that rounds decimals correctly, as Cint() rounds numbers x.5 to the nearest even number and Int() truncates them.

Thanks
0
Question by:G_Thompson
[X]
###### Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

• Help others & share knowledge
• Earn cash & points

LVL 10

Accepted Solution

ID: 2579493
Hello G_Thompson,

I think you can find the suitable function for you from this URL:

http://www.experts-exchange.com/jsp/qShow.jsp?ta=msaccess&qid=10300683

regards,
0

LVL 7

Expert Comment

ID: 2579691
In Acc2000 there is a new function Round(<number>,<precision>), but in online help it is not described. You can find it in object browser.
0

LVL 4

Expert Comment

ID: 2579741
This is a good rounding function:

http://www.mvps.org/access/modules/mdl0054.htm

Wes
0

Author Comment

ID: 2580415
Thank you all for your comments I'm not currently using Acces200 unfortunatly,

I altered one of the functions from a previous answer

Function Round(ToRound As Double) As Double
Dim Multiplier As Double
Dim DecimalP As Integer

DecimalP = 0
If (CInt(ToRound)) Mod 2 = 0 Then ToRound = ToRound + 0.1

Multiplier = 10 ^ DecimalP
Round = CLng(ToRound * Multiplier) / Multiplier
End Function

with out the 0.1 added to even numbers rounding 2.5 gave 2 with the addition of 0.1 it gives 3, correct

because the 0.1  is only added to even no's itdoes not affect other results .

I have just realised i could use

Function Round(value as double)

if cint(value)mod 2 <> 0 then
round = cint(value+0.1)
Else
round = cint(value)
endif

end function

For rounding to 0 dp

Thanks anyway

G Thompson
0

## Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Preparing an email is something we should all take special care with – especially when the email is for somebody you may not know very well. The pressures of everyday working life stacked with a hectic office environment can make this a real challen…
The Windows Phone Theme Colours is a tight, powerful, and well balanced palette. This tiny Access application makes it a snap to select and pick a value. And it doubles as an intro to implementing WithEvents, one of Access' hidden gems.
Basics of query design. Shows you how to construct a simple query by adding tables, perform joins, defining output columns, perform sorting, and apply criteria.
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…
###### Suggested Courses
Course of the Month7 days, 22 hours left to enroll