Imports System.Globalization
Module Example
Public Sub Main()
Dim formats() As String = {"d", "D", "f", "F", "g", "G", "m", "o", "r", _
"s", "t", "T", "u", "U", "Y"}
Dim cultures() As CultureInfo = {CultureInfo.CreateSpecificCulture("de-DE"), _
CultureInfo.CreateSpecificCulture("en-US"), _
CultureInfo.CreateSpecificCulture("es-ES"), _
CultureInfo.CreateSpecificCulture("fr-FR")}
Dim dateToDisplay As Date = #10/1/2010 17:04:32#
For Each formatSpecifier As String In formats
For Each culture As CultureInfo In cultures
Console.WriteLine("{0} Format Specifier {1, 10} Culture {2, 40}", _
formatSpecifier, culture.Name, _
dateToDisplay.ToString(formatSpecifier, culture))
Next
Next
End Sub
End Module