Цей підручник покаже, як використовувати функцію CDbl VBA для перетворення виразів у подвійний тип даних.
Функція 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.000034End Sub |
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 $ ігноруєтьсяEnd Sub |
Програмування VBA | Генератор коду працює для вас!
Помилка під час виконання VBA CDbl 13 Невідповідність типу
Використання функції VBA CDbl з рядками, що містять нечислові символи або символи, що не мають значення в числовому контексті, призведе до помилки під час виконання "13": Невідповідність типу.
| 1234567 | Sub CDblExample_3 ()'Код нижче призведе до повідомлення про помилку'CDbl не може обробляти нечислові символиDim StrEx як рядокStrEx = "Ab13"MsgBox CDbl (StrEx)End Sub |
Регіональні налаштування 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.9End Sub |
VBA CDbl Перетворення булевих чисел у подвійне
Функція VBA CDbl може перетворювати булеві змінні в подвійні. Якщо обчислюваний вираз є істинним, подвійний результат дорівнює -1, а якщо виражений вираз -хибним, отриманий подвійний результат дорівнює 0.
| 12345678910 | Sub CDblExample_5 ()Dim BoolEx як булевеBoolEx = ІстинаMsgBox CDbl (BoolEx) 'Результат: -1MsgBox CDbl (2 = 2) 'Результат: -1BoolEx = НеправдаMsgBox CDbl (BoolEx) 'Результат: 0MsgBox CDbl (1 = 2) 'Результат: 0End Sub |
Втомилися від пошуку прикладів коду VBA? Спробуйте AutoMacro!
VBA CDbl Перетворення дат на подвійні
Функція VBA CDbl може перетворити змінну дати в ціле число. Повернене значення - це внутрішній номер, який Excel використовує для заокруглення сховища дат.
| 123456789101112 | Sub CDblExample_6 ()Затемнити DateEx як датуDateEx = #2/3/1940 #MsgBox CDbl (DateEx)Результат: 14644DateEx = #8/7/1964 10:41:00 PM #MsgBox CDbl (DateEx)Результат: 23596.9451388889DateEx = #3/7/1934 11:32:04 AM #MsgBox CDbl (DateEx)Результат: 12485.4806018519End Sub |
