Mega Code Archive

 

Categories / VB.Net / Data Types

 

NumberStyles AllowDecimalPoint Or NumberStyles AllowThousands

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.345,978"         style = NumberStyles.AllowDecimalPoint Or NumberStyles.AllowThousands         culture = CultureInfo.CreateSpecificCulture("es-ES")         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