whats up with round() and cint() returning even

lcsgeek · August 19th, 2003, 10:15 AM

Is there a round function that will round 4.5 to 5? Seems we have CInt() which returns even numbers only as well as Round() which also returns even numbers. I'm in desperate need of a function that returns the next higher value if argument is n.5 even if return value is odd. Thanks

sidneyfuerte · August 19th, 2003, 10:37 AM

What i usually do is i just create my own function. I dont know if there's a built-in function for this kind of problem, but incase somebody know's post it here as well :)

Anyways a sample code of what i do to this:

Dim sTemp
Dim nDbl
sTemp = "4.0"
decval = Mid(sTemp, InStr(1, sTemp, ".") + 1)
Whole = CDbl(sTemp)
If decval >= 5 Then
Whole = CInt(sTemp)
Whole = Whole + 1
End If

Hope this helps.

Thanks/Regards
Sidney

kilika · August 19th, 2003, 10:46 AM

Code:

Round(4.5,0)

should = 5

Code:

formatnumber(4.5,0)

should = 4

formatnumber just truncates where round actually rounds. Did you put in the second parameter of 0 so it rounded to a whole number.

Chris

lcsgeek · August 19th, 2003, 03:10 PM

Give it a whirl my friend and see for yourself.

lcsgeek · August 19th, 2003, 03:14 PM

Thank you Sidney, your code is what I need, if I wasn't so confident that Microsoft's code was flawless I'd say Round() has a bug.

kilika · August 19th, 2003, 03:23 PM

It appears the functions are switched. You can use the formatnumber function to give you what you need without having to reinvent the wheel on your own.

Chris

pgtips · August 20th, 2003, 02:55 AM

Its a strange one - Round() should round up, but as lcsgeek says, Round(4.5, 0) => 4. Maybe its just the old problem of not being able to represent decimals perfectly in binary, because Round(4.5000001, 0) => 5

rodmcleay · August 20th, 2003, 03:09 AM

This is being discussed in another topic now.
I always thought you must round to the even and was very confused by everyones confusion.
I thought 4.5 to 4, 5.5 to 6 is correct but there appears to be two schools of thought.
Check out:
http://p2p.wrox.com/topic.asp?TOPIC_ID=3122
http://www.xbeat.net/vbspeed/i_BankersRounding.htm

======================================
They say, best men are moulded out of faults,
And, for the most, become much more the better
For being a little bad.
======================================