Mega Code Archive

 
Categories / VB.Net / Date Time
 

Iterate each standard format specifier and combine them with different cultures

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