Автор:
Алексей Немиро | добавлено: 05.03.2010, 19:32 | просмотров: 2873 (2+) | комментариев:
0 | рейтинг:
x10
Иногда, особенно в мультиязычных проектах, может возникнуть проблема, когда требуется преобразовать строку в число, при этом в качестве разделителя может использоваться либо точка, либо запятая, что может стать причиной возникновения исключений, из-за использования различных национальных установок системы. Данный пример показывает, как решить эту проблему.
Public Function StrToDouble(ByVal value As String) As Double
Dim Result As Double = 0
Dim Separator As String = System.Globalization.NumberFormatInfo.CurrentInfo.CurrencyDecimalSeparator
Double.TryParse(System.Text.RegularExpressions.Regex.Replace(value.Trim, ",|\.", Separator), System.Globalization.NumberStyles.Any, System.Threading.Thread.CurrentThread.CurrentCulture, Result)
Return Result
End Function