Mega Code Archive

 

Categories / VB.Net / Data Types

 

Parse currency value using en-GB culture

Imports System.Globalization Imports System.Threading Module Example    Public Sub Main()         Dim value As String         Dim style As NumberStyles         Dim culture As CultureInfo         Dim number As Double         value = "1,222.63"         style = NumberStyles.Number Or NumberStyles.AllowCurrencySymbol         culture = CultureInfo.CreateSpecificCulture("en-GB")         If Double.TryParse(value, style, culture, number) Then            Console.WriteLine("Converted '{0}' to {1}.", value, number)         Else            Console.WriteLine("Unable to convert '{0}'.", value)         End If        End Sub End Module