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