Math.Round (Double) rounds a double-precision floating-point value to the nearest integral value.
Module Example Public Sub Main() Dim value As Double = 11.1
value = RoundValueAndAdd(value) End Sub
Private Function RoundValueAndAdd(value As Double) As Double
Console.WriteLine("{0} --> {1}", value, Math.Round(value))
Return value + .1 End Function End Module