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
Related examples in the same category