Imports System Imports System.Globalization Imports Microsoft.VisualBasic
Public Class SamplesDTFI
Public Shared Sub Main() Dim myDTFI As DateTimeFormatInfo = New CultureInfo("en-US", False).DateTimeFormat Dim myDT As New DateTime(2010, 1, 3)
Console.WriteLine(" {0} {1}", myDTFI.MonthDayPattern, "(MonthDayPattern)") End Sub End Class