В этом руководстве будет показано, как использовать функцию CDbl VBA для преобразования выражений в тип данных double.
Функция CDbl
VBA CDbl преобразовать выражение в целое число
Функцию VBA CDbl можно использовать для преобразования выражений в двойной тип данных внутри кода VBA.
| 123456 | Sub CDblExample_1 ()MsgBox CDbl (12.345) 'Результат: 12.345MsgBox CDbl (-124) 'Результат: -124MsgBox CDbl (0.000034) 'Результат: 0.000034MsgBox CDbl (-12.000034) 'Результат: -12.000034Конец подписки |
VBA CDbl преобразование строки в двойную
Функцию VBA CDbl можно использовать для преобразования строк в двойные, если символы в строке имеют значение как числа.
| 123456789101112131415161718 | Sub CDblExample_2 ()Dim StrEx как строкаStrEx = "112"MsgBox CDbl (StrEx)Результат: 112StrEx = "0,0003"MsgBox CDbl (StrEx)Результат: 0,0003StrEx = "11,00002"MsgBox CDbl (StrEx)'Результат: 1100002, игнорируетсяStrEx = "112 долларов"MsgBox CDbl (StrEx)Результат: 112 $ игнорируетсяКонец подписки |
Программирование на VBA | Генератор кода действительно работает для вас!
Ошибка времени выполнения VBA CDbl 13 Несоответствие типов
Использование функции VBA CDbl со строками, содержащими нечисловые символы или символы, не имеющие значения в числовом контексте, приведет к ошибке времени выполнения ’13’: Несоответствие типов.
| 1234567 | Sub CDblExample_3 ()'Приведенный ниже код приведет к сообщению об ОШИБКЕ'CDbl не может обрабатывать нечисловые символыDim StrEx как строкаStrEx = "Ab13"MsgBox CDbl (StrEx)Конец подписки |
Региональные настройки VBA CDbl
Функция VBA CDbl имеет другое поведение, преобразуя строки с запятой или точкой. Он использует региональные настройки операционной системы для десятичного разделителя и разделителя цифр.
| 12345678910111213141516 | Sub CDblExample_4 ()Dim StrEx как строкаStrEx = "1,9"MsgBox CDbl (StrEx)'Если в региональных настройках в качестве разделителя группировки указаноРезультат: 19'Если в региональных настройках есть десятичный разделитель, тоРезультат: 1,9StrEx = "1.9"MsgBox CDbl (StrEx)'Если в региональных настройках есть. как разделитель группировки, тогдаРезультат: 19'Если в региональных настройках есть. как десятичный разделитель, тогдаРезультат: 1.9Конец подписки |
VBA CDbl преобразование логических значений в двойные
Функция VBA CDbl может преобразовывать логические переменные в двойные. Если вычисленное выражение истинно, результирующее двойное значение равно -1, а если вычисленное выражение ложно, результирующее двойное значение равно 0.
| 12345678910 | Sub CDblExample_5 ()Dim BoolEx как логическоеBoolEx = TrueMsgBox CDbl (BoolEx) 'Результат: -1MsgBox CDbl (2 = 2) 'Результат: -1BoolEx = ЛожьMsgBox CDbl (BoolEx) 'Результат: 0MsgBox CDbl (1 = 2) 'Результат: 0Конец подписки |
Устали искать примеры кода VBA? Попробуйте AutoMacro!
VBA CDbl преобразование дат в двойные
Функция VBA CDbl может преобразовывать переменную даты в целое число. Возвращаемое значение - это внутреннее число, используемое Excel для округления даты хранения.
| 123456789101112 | Sub CDblExample_6 ()Dim DateEx как датаDateEx = # 2/3/1940 #MsgBox CDbl (DateEx)Результат: 14644DateEx = # 8/7/1964 22:41:00 #MsgBox CDbl (DateEx)Результат: 23596.9451388889DateEx = # 3/7/1934 11:32:04 #MsgBox CDbl (DateEx)Результат: 12485.4806018519Конец подписки |
