Imports System.Math
Public Class clsRound
 
    Public Sub Main()
 
 
        '********************************************************************************
        ' Purpose: takes a decimal or double as input parameter1
        ' and returns the number rounded to the specified number
        ' of fractional decimals. If parameter 2 is not used,
        ' result is rounded to whole number. Parameter3 specifies
        ' rounding mode
        '
        ' Syntax: 	1. Round(decimal)
        ' 2. Round(decimal, int32)
        ' 3. Round(decimal, mode)
        ' 4. Round(decimal, int32, mode)
        ' 5. Round(double)
        ' 6. Round(double, int32)
        ' 7. Round(double, mode)
        ' 8. Round(double, int32, mode) 
        '  
        ' Parameter1: decimal - Any valid System.Decimal data type number
        ' double - any valid System.Double data type.
        ' Parameter1 specifies the number to be rounded
        '
        ' Parameter2: int32 or mode - 1. int32 specifies the number of fractional
        ' digits to be returned in the result. If 
        ' there is no parameter2 or if it is mode,
        ' the result is rounded to a whole number.
        ' 2. mode - The mode parameter controls how 
        ' value is rounded if the first decimal 
        ' digit in value is 5
        ' 
        ' Parameter3: mode - The mode parameter controls how value 
        ' is rounded if the first decimal digit in value is 5
        ' There are two possible modes:
        ' 1. MidpointRounding.ToEven. If the one's digit 
        ' is odd, it is changed to an even digit. 
        ' Otherwise, it is left unchanged. This is 
        ' often called rounding to nearest, or banker's 
        ' rounding. It minimizes rounding errors that 
        ' result from consistently rounding a midpoint 
        ' value in a single direction.
        ' 2. MidpointRounding.AwayFromZero. The 
        ' one's digit is always rounded up to the 
        ' next digit.  This is the most popular 
        ' rounding method. 
        ' 
        ' Result: decimal or double - depends on data type
        ' of parameter1. It is decimal, if parameter1 is 
        ' decimal. If parameter1 is double, result is double.
        '
        '********************************************************************************
        ' This example is from http://idealprogrammer.com
 
        Console.WriteLine("Example #1: 	Round(decimal)")
 
        Console.WriteLine("Round(3.5) = {0}", Round(3.5)) ' Returns 4
 
        'write blank line to make output easier to read
        Console.WriteLine()
 
        Console.WriteLine("Example #2: 	Round(double, mode)")
        Dim myDouble As Double = 6.5
        Console.WriteLine("Round(myDouble, MidpointRounding.ToEven) = {0}", _
                          Round(myDouble, MidpointRounding.ToEven)) ' Returns 6
        'write blank line to make output easier to read
        Console.WriteLine()
 
        Console.WriteLine("Example #3: 	Round(double, mode)")
 
 
 
        Console.WriteLine("Round(myDouble, MidpointRounding.AwayFromZero) = {0}", _
                          Round(myDouble, MidpointRounding.AwayFromZero)) ' Returns 7
 
        'Prevent console from closing before you press enter
        Console.ReadLine()
 
    End Sub
 
End Class

Module Module1
 
    Sub Main()
 
 
        Dim myclsRound As New clsRound
        myclsRound.Main()
 
 
 
    End Sub
 
End Module