Почему возникает ошибка несоответствия типов у функции Cdbl?

[baston]

В макросе для Word использую две переменные V1 as Double и xC2 as string.
Я присваивают этим переменным следующие выражения:
xC2 = SourceTable.Rows(cmbFood1.ListIndex + 1).Cells(2).Range.Text
V1 = Left(xC2, Len(xC2) - 2)
V1 = CDbl(V1)
Если в ячейке таблицы, откуда берутся данные, есть число, то преобразование происходит корректно.
Но если в ячейке пусто (нет никаких данных), то возвращается 0 и возникает ошибка несоответствия типов.
Почему и как исправить?
Спасибо.

[alibek]

А почему CDbl? Не Val?

[baston]

А почему CDbl? Не Val?

Потому что разделителем дробных чисел у меня запятая, а VAL работает только с точками.

[alibek]

Лично я бы заменял текущий системный разделитель на точку и использовал Val.
CDbl слишком уж непредсказуемо себя ведет.
Но если хочется CDbl, то почему бы тогда не проверять преобразуемое значение?
If IsNumeric(Left(xC2, Len(xC2) - 2)) Then V1=0 Else V1=CDbl(Left(xC2, Len(xC2) - 2))

[alibek]

V1 = Left(xC2, Len(xC2) - 2)
V1 = CDbl(V1)

Какой в этом смысл?
Убери V1=CDbl(V1).

[baston]

Так мне нужны цифры для работы с ними, а не строка.

[baston]

Вопрос решен. Убедился, что функция Cdbl просто уродец по сравнению с VAL. Лишние проверки и другие неудобства. А с ВАЛом можно сделать больше и с меньшими затратами.

[Viper]

baston, просветляйся.

[baston]

baston, просветляйся.

Отличная статья, спасибо за ссылку. Узнал много нового для себя об этих злосчастных функциях. Тем не менее, в моем случае VAL логичнее и проще, чем Cdbl. Статью даже распечатал для себя.

[GDK]

Про , и . Я обычно делаю типа:

Код: Выделить всё

MyText=Replace(MyText, "," ".")
MyNumb = Cdbl(MyText)

[Viper]

Про , и . Я обычно делаю типа:

Код: Выделить всё

MyText=Replace(MyText, "," ".")
MyNumb = Cdbl(MyText)

Это конечно замечательно, но неплохо бы для начала знать, какой разделитель дробной и целой части установлен на компьюере. Почитай статью то.

[GDK]

Просветлился. Сознаю свою вину: меру, степень, глубину. Надо сначала узнать настройку системы, затем в зависимости от этого заменить либо точку на запятую, либо наоборот, затем вызывать Val().