Imports System.Globalization
Module Example
Public Sub Main()
Dim cultureNames() As String = { "en-US", "fr-FR", "de-DE", "es-ES" }
Dim dateToDisplay As Date = #9/1/2009 6:32PM#
Dim value As Double = 9164.32
For Each cultureName As String In cultureNames
Dim culture As New CultureInfo(cultureName)
Console.WriteLine(culture)
Console.WriteLine(culture.Name)
Console.WriteLine(dateToDisplay)
Console.WriteLine(value)
Next
End Sub
End Module
|