Precision bug

[alander]

i did cint(99.5) and it becomes 99? aint it supposed to be 100?

 

[JohnH]

I get 100.

 

[alander]

uh.... u sure/ i googled and find that vb.net rounds down .5 =s

I am dealing with money here i need to get over this help pls
nvm got around this stupid bug

    Private Function getAroundPrecisionBug(ByVal value As Decimal)
        Dim x As Decimal
        'get decimal value 
        Dim y As Decimal = value - Math.Floor(value)

        If y >= 0.5 Then
            x = Math.Ceiling(value)
        Else
            x = Math.Floor(value)
        End If

        Return x
    End Function

 

[JohnH]

Bug? Cint uses the Math.Round method for rounding:

The integer nearest parameter d. If d is halfway between two integers, one of which is even and the other odd, then the even number is returned.

The behavior of this method follows IEEE Standard 754, section 4. This kind of rounding is sometimes called rounding to nearest, or banker's rounding.

So CInt(99.5) is 100 and CInt(98.5) is 98, you see? Since it's "banker's rounding" it should be exactly what you need for your money.

There also exist an overloads of Math.Round where you can specify MidpointRounding method, for example:

Dim i As Integer = Math.Round(98.5, MidpointRounding.AwayFromZero) '=99

 

[yulyos]

Hi,

I have two ways:

    MsgBox(Val(TextBox1.Text \ 1))

        Dim A, B As Double
        B = Val(TextBox1.Text)
        A = Fix(B) + IIf(B - Fix(B) >= 0.5, 1, 0)
        MsgBox(A)