Как преобразовать поле из таблицы в вещественное число?

[Mixasik]

Уважаемые, подскажите как можно преобразовать строку в вещественное число, например в целое есть функция Val а вот в вещественное в справке не нашел Мне нужно работать в VBA.
И второй вопросик, вот есть функция Round которая может округлять для заданного числа знаков после запятой, но чем можно воспользоваться, чтобы округлять для заданного числа знаков и выводить именно столько знаков после запятой, например число 3 округлится до 3. Или же как это число преобразовать в текст в ворде чтобы было 3,00?

[Sasha_Smirnov]

MsgBox FormatNumber(3, 2)

выведет ваше число (3) с нужным количеством цифр (2) в его дробной части.

Что касается извлечения числа из строки, то вот:

MsgBox Val("3.2 бла-бла-бла") 'даст 3,2 (при том, что разделитель в Региональных стандартах — запятая)'
MsgBox Val("3.0") 'даст 3'

И уточните, надо ли совмещать формат и округление: по-моему, первое включает в себя второе!

[Mixasik]

Спасибо, один вопрос решен, а туда можно передать также дробное число и можно написать так:

a=3
...
tables(1).cells[1,1].range.text = FormatNumber(Round(a,2),2)

?

[Mixasik]

Сообщение от Sasha_Smirnov

MsgBox FormatNumber(3, 2)

выведет ваше число (3) с нужным количеством цифр (2) в его дробной части.

Что касается извлечения числа из строки, то вот:

MsgBox Val("3.2 бла-бла-бла") 'даст 3,2 (при том, что разделитель в Региональных стандартах — запятая)'
MsgBox Val("3.0") 'даст 3'

И уточните, надо ли совмещать формат и округление: по-моему, первое включает в себя второе!

Не знаю, но у меня Val берет данные из ячейки где значения разделены запятой, но в результате берет их как целые. Например задано число 2,3265 MsgBox (Val(ThisDocument.Tables(1).Cell(1, 1).Range.Text)) выдает 2, но если там точка Val выдает 2,3265 но ведь сам VBA преобразовывает с точкой может надо настроить? Нет при окргулениии числа 3,000000001 будет число 3, а мне
надо 3,00
p.s У меня 2003 оффис.

[EducatedFool]

Попробуйте что-то вроде этого:

Sub test()
    a = "3,1425"
    число1 = Val(Replace(a, ",", ".")): Debug.Print число1
    Debug.Print FormatNumber(a, 2)
    
    b = "3.6547"
    число2 = Val(b): Debug.Print число2
    Debug.Print FormatNumber(Replace(b, ".", ","), 2)
End Sub

[Mixasik]

Спасибо. Буду пробывать.

[Sasha_Smirnov]

Сообщение от Sasha_Smirnov

...уточните, надо ли совмещать формат и округление: по-моему, первое включает в себя второе!

Сообщение от Mixasik

Нет при окргулениии числа 3,000000001 будет число 3, а мне надо 3,00

Вот я и предлагал — не округляя, сразу форматировать. Округляется само!