Imports System.Globalization
Imports System.Threading
Module Example
Public Sub Main()
Dim value As Double = 9999.62901
Dim specifier As String
Dim culture As CultureInfo
specifier = "F"
culture = CultureInfo.CreateSpecificCulture("fr-FR")
Console.WriteLine(value.ToString(specifier, culture))
culture = CultureInfo.CreateSpecificCulture("en-CA")
Console.WriteLine(value.ToString(specifier, culture))
End Sub
End Module
|