Class Sample
Public Shared Sub Main()
Dim tDate As New Date(2010, 4, 15, 20, 30, 40, 333)
Dim cultureNames() As String = { "en-US", "fr-FR", "ja-JP", "nl-NL", "ru-RU", "ur-PK" }
Console.WriteLine("Converting the date {0}: ",Convert.ToString(tDate,System.Globalization.CultureInfo.InvariantCulture))
For Each cultureName As String In CultureNames
Dim culture As New System.Globalization.CultureInfo(cultureName)
Dim dateString As String = Convert.ToString(tDate, culture)
Console.WriteLine(" {0}: {1,-12}", _
culture.Name, dateString)
Next
End Sub
End Class