Imports System.Math
Public Class clsFloor
 
    Public Sub Main()
 
 
        '********************************************************************************
        ' Purpose: takes a decimal or double number and returns a value 
        ' that represents the next equal or lower whole number.  
        ' Although the result is a whole number, it is returned as a
        ' the same data type that was passed in.  Math.Ceiling is different 
        ' in that it rounds up to the next whole number that is equal 
        ' or greater than the number that is given.
        ' 
        ' Syntax: 	Floor(decimalnumber)
        '
        ' Parameter1: decimalnumber - decimal number
        '
        ' Result: decimal - closest whole number equal or lower
        '
        ' Syntax2: 	Floor(doublenumber)
        '
        ' Parameter1: doublenumber - double  precision floating point number
        '
        ' Result: double precision floating point number - closest whole number equal or lower
        '
        '********************************************************************************
        ' This example is from http://idealprogrammer.com
 
        Console.WriteLine("Example #1: 	Floor(expression) - rounds up to closest whole number")
        Dim decNumber1 As Decimal = 1.32D
        Console.WriteLine(Floor(decNumber1)) ' Returns 1
 
        'write blank line to make output easier to read
        Console.WriteLine()
        Dim douNumber2 As Double = 1.9
        Console.WriteLine("Example #2: 	Floor(expression) - rounds up to closest whole number")
 
        Console.WriteLine(Floor(douNumber2)) ' Returns 1
        'write blank line to make output easier to read
        Console.WriteLine()
 
        Console.WriteLine("Example #3: Floor(expression) - rounds up to closest whole number")
 
        Dim decNumber3 As Decimal = -1.32D
 
        Console.WriteLine(Floor(decNumber3)) ' Returns -2
 
        Console.WriteLine("Example #4: 	Ceiling(expression) - rounds down to closest whole number")
        Dim decNumber4 As Decimal = 1.32D
        Console.WriteLine(Ceiling(decNumber4)) ' Returns 2
 
        'write blank line to make output easier to read
        Console.WriteLine()
        Dim douNumber5 As Double = 1.9
        Console.WriteLine("Example #5: 	Ceiling(expression) - rounds down to closest whole number")
 
        Console.WriteLine(Ceiling(douNumber5)) ' Returns 2
        'write blank line to make output easier to read
        Console.WriteLine()
 
        Console.WriteLine("Example #6: 	Ceiling(expression) - rounds down to closest whole number")
 
        Dim decNumber6 As Decimal = -1.32D
 
        Console.WriteLine(Ceiling(decNumber3)) ' Returns -1
 
        'Prevent console from closing before you press enter
        Console.ReadLine()
 
    End Sub
 
End Class

Module Module1
 
    Sub Main()
 
 
        Dim myclsFloor As New clsFloor
        myclsFloor.Main()
 
 
 
    End Sub
 
End Module