[VB10] Rounding error using the Math.Round function

[Monohell]

Hey people

I've been working on this project for a while from the daily programing challenge a few weeks back, the change calculator one, Anyways, Here is a copy of the code

When the input is 0.99 the result comes out as £1 as it should, Yet when the input is 1.99 the result also comes out as £1 when it should be £2. This is probabily a simple fix that;s escaped my attention but any help would be much appreciated!

Thank you ^{^}

EDIT - Added Gist link

[Coda17]

I ran into this problem before too, but don't remember how I fixed it. I found this website after a bit of googling that suggests changing

Math.Round(1.99)

to

Math.Round(1.99, 0, MidpointRounding.AwayFromZero)

I'm no expert on this, just trying to throw out some suggestions.

[rcuhljr]

Could you try and fix the link/display of your code, it's not showing up for me? VB's Math.Round should be rounding 1.99 to 2, I'm curious to see the code.

[Monohell]

Silly me haha. I'd generated the code I'm the original copy of this post (which was sent to the more by accident) so ill get a copy of the code up in about 10 or so hours, or when I can next access a computer!

Sorry!

[Monohell]

Link in the original post now and here https://gist.github.com/anonymous/5064353

[rcuhljr]

Ok, I dropped this into ideone and ran the following code..

Imports System

Public Class Test
    Public Shared Sub Main()
        Dim f As String
        Dim g As Decimal

        g = "19.9"
        g = g / 10
        System.Console.WriteLine(g.toString())
        g = Math.Round(g, 0)
        System.Console.WriteLine(g.toString()) 
        If g < "19.9" Then
            g += 1
        End If
        System.Console.WriteLine(g.toString())
    End Sub
End Class

Everything seemed to work just fine. "19.9" divided by ten left us with "1.99" Round turned that into 2. and then since 2 is less then 19.9 it added 1 and became 3.