• led
  • Восстановленный участник
  • На форуме с 18 июня 2008г.
  • Сообщений: 4
  • Спасибо: 0

Тема: Значения настроек региональных стандартов

Можно ли средствами VBA получить значения настроек региональных стандартов?
Конкретно интересует "Разделитель целой и дробной части"

  • Откуда: Украина / Киев
  • На форуме с 15 апреля 2005г.
  • Сообщений: 8,666
  • Спасибо: 158

Re: Значения настроек региональных стандартов

https://www.caduser.ru/forum/topic39384.html

  • Михаил
  • Восстановленный участник
  • На форуме с 9 марта 2008г.
  • Сообщений: 55
  • Спасибо: 0

Re: Значения настроек региональных стандартов

Может быть не совсем по теме, но если вас интересует преобразование строки в число, то :

Function NuStrToNoom(aValueStr As String, Optional defaultDbl As Double = 0) As Double
'функция преобразует строку в вещественное число, сама следит за разделителями
'aValue - сстрока
'default - значение в случае ошибки (например если строка не является числом)
Dim tmpDbl      As Double
Dim sepratorStr As String
Dim fndStr      As String
Dim tmpStr      As String
Dim posLng      As Long
    tmpStr = Trim(aValueStr)
    sepratorStr = Mid$(Format(1.1, "General Number"), 2, 1)
    If sepratorStr = "." Then fndStr = "," Else fndStr = "."
    tmpStr = Replace$(aValueStr, sepratorStr, fndStr)
    tmpStr = Trim(tmpStr)
    On Error GoTo ErrEvent
        tmpDbl = Val(tmpStr)
        NuStrToNoom = tmpDbl
    Exit Function
ErrEvent:
    NuStrToNoom = defaultDbl
End Function