Imports System.Globalization Module MainClass Public Sub Main() Dim july28 As Date = #7/28/2009 5:23:15# Dim longJuly28Formats() As String = july28.GetDateTimeFormats("D"c) For Each format As String In longJuly28Formats Console.WriteLine(format) Next End Sub End Module