' Visual Basic 2008 9.0 .NET Examples - Datatypes - Introduction to Visual Basic : 
Module Example10
    Sub Main()
        ' Default & Minimum Value :
        ' January 1, 0001, 12:00:00 AM ( midnight ) :
        Dim someDate As Date
        Console.WriteLine(someDate)
        '
        ' Maximum Literal Value :
        ' December 31, 9999, 11:59:59 PM ( 1 second before midnight ) :
        someDate = #12/31/9999 11:59:59 PM#
        Console.WriteLine(someDate)
        '
        ' Minimum ( Literal ) Value :
        ' January 1, 0001, 12:00:00 AM ( midnight ) :
        someDate = #12:00:00 AM#
        Console.WriteLine(someDate)
        '
        ' October 17, 2000, 12:00:00 AM ( midnight ) :
        someDate = #10/17/2007#
        Console.WriteLine(someDate)
        '
        ' October 17, 2000, 12:00:01 AM ( 1 seconde after midnight ) :
        someDate = #10/17/2007 12:00:01 AM#
        Console.WriteLine(someDate)
        '
        ' October 17, 2007, 1:00:00 AM ( 1 o'clock in the morning ) :
        someDate = #10/17/2007 1:00:00 AM#
        Console.WriteLine(someDate)
        '
        ' October 17, 2007, 11:59:59 AM ( 1 second before noon ) :
        someDate = #10/17/2007 11:59:59 AM#
        Console.WriteLine(someDate)
        '
        ' October 17, 2007, 12:00:00 PM ( noon ) :
        someDate = #10/17/2007 12:00:00 PM#
        Console.WriteLine(someDate)
        '
        ' October 17, 2007, 12:00:01 PM ( 1 second after noon ) :
        someDate = #10/17/2007 12:00:01 PM#
        Console.WriteLine(someDate)
        '
        ' October 17, 2007, 1:00:00 PM ( 1 o'clock in the afternoon ) :
        someDate = #10/17/2007 1:00:00 PM#
        Console.WriteLine(someDate)
        '
        ' October 17, 2007, 11:59:59 PM ( 1 second before midnight ) :
        someDate = #10/17/2007 11:59:59 PM#
        Console.WriteLine(someDate)
        '
        ' October 18, 2007, 12:00:00 AM ( midnight ) :
        someDate = #10/18/2007#
        Console.WriteLine(someDate)
        '
        Console.ReadLine()
    End Sub
End Module
' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.