Функция даты в VBA

Существует дата работы рабочего листа, которая работает следующим образом:

Date(2016;03;01) => 01.03.2016

Однако я не могу найти эту функцию в vba. Application.WorksheetFunction.Date не существует. И просто Date() можно использовать без аргументов, чтобы получить сегодняшнюю дату.

Где найти точную версию этой функции Date, которая принимает год, месяц и день в качестве аргументов?

EDIT: мне не нужна текущая дата. Мне нужна эта функция для использования с аргументами.

CDate может преобразовывать String в Date, он поддерживает различные форматы ввода. Однако я предлагаю сначала проверить строку IsDate .

DateSerial может генерировать дату, DateSerial Year, Month, Day как integer.

Используя DateSerial с вашим примером:

 Dim myDate As Date myDate = DateSerial(2016, 3, 1) 

CDate является ближайшим аналогом, хотя правила синтаксического анализа и локали не гарантируют того же, что и функция рабочего листа.

Если вам нужна текущая дата, используйте Fix(Now) или Date без круглых скобок.

Лично, хотя я бы ограничил себя DateSerial который занимает год, месяц и день как числовые входы.

Interesting Posts

Обновить таблицу JTable с данными из файла Excel

Попытка копирования и вставки фильтрованных данных с использованием передовых методов

открытие файла excel в том же каталоге

VBA Excel – введите строку таблицы с тем же форматированием, что и строка над ней

.find vba работает медленно

Выберите все листы для печати: Excel VBA

Отбросить текст в столбце до 60 символов

«Нет ячеек» После применения автофильтра: Excel VBA

Расчет медианного абсолютного отклонения с условием

Как использовать SUMIF в Excel VB для вычисления сводной таблицы из таблицы подробностей

Как можно проверить с помощью VBA, является ли диапазон Excel целой строкой или столбцом?

Как изменить разрешения на выход, сброшенные в браузер?

Формула подтверждения пользовательских данных Excel

Макрос VBA для копирования результата на другой рабочий лист

Как добавить вертикальную линию между текстами в ячейке, vba excel

Давайте будем гением компьютера.