Imports System.Globalization
Module MainClass
Public Sub Main()
Dim date1 As Date = #6/1/2008 7:47AM#
Console.WriteLine(date1.ToString())
Dim dateOnly As Date = date1.Date
Console.WriteLine(dateOnly.ToString("d"))
Console.WriteLine(dateOnly.ToString("g"))
Console.WriteLine(dateOnly.ToString("MM/dd/yyyy HH:mm"))
End Sub
End Module