Mega Code Archive

 

Categories / VB.Net / Data Types

 

NumberStyles AllowParentheses Or NumberStyles AllowTrailingSign Or NumberStyles Float Or NumberStyles AllowThousands

Imports System.Globalization Imports System.Threading Module Example     Public Sub Main()        Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture("en-US")        Dim value As String        Dim styles As NumberStyles        value = "(4,999.64)"        styles = NumberStyles.AllowParentheses Or NumberStyles.AllowTrailingSign Or NumberStyles.Float Or NumberStyles.AllowThousands        ShowNumericValue(value, styles)          End Sub          Private Sub ShowNumericValue(value As String, styles As NumberStyles)        Dim number As Double        Try           number = Double.Parse(value, styles)           Console.WriteLine("Converted '{0}' using {1} to {2}.",value, styles.ToString(), number)        Catch e As FormatException           Console.WriteLine("Unable to parse '{0}' with styles {1}.",value, styles.ToString())        End Try        Console.WriteLine()                                End Sub End Module