Imports System.Globalization
Imports System.Collections.Generic
Dim fmtList As New List(Of String)
Dim dtRT As DateTime = DateTime.Now
Dim thisCult As New CultureInfo("it-IT")
Dim dtInfo = DateTimeFormatInfo.GetInstance(thisCult)
console.WriteLine("All DateTime Formats for {0}:",thisCult.DisplayName)
For Each fmt As String In dtInfo.GetAllDateTimePatterns()
If fmtList.Contains(fmt) = False Then
strRT = dtRT.ToString(fmt, thisCult)
bRT = DateTime.TryParseExact(strRT, fmt, thisCult, DateTimeStyles.None, dtRT)
Console.WriteLine("{0} {1} (Parse from: {2})", n.ToString("000"), fmt.PadRight(42), bRT.ToString)