Функция Excel VBA Now
NOW - это функция даты и времени в обоих VBA, которая используется для получения текущей системной даты и времени, точно так же, как функция рабочего листа, которая не принимает в ней никаких аргументов, в VBA функция now также не принимает никаких аргументов, возвращаемый вывод для этой функции есть дата.
Функция VBA NOW похожа на функцию рабочего листа Excel. Подобно функции DATE в VBA «NOW» тоже не имеет параметров для передачи, нам просто нужно передать функцию с закрытыми круглыми скобками или без скобок. Используя функцию DATE в VBA, мы можем сгенерировать текущую дату, показывающую систему, над которой мы работаем. Однако я встречал ситуации, когда нам нужно также текущее время вместе с датой. В Excel мы можем делать много разных вещей, точно так же мы можем генерировать текущую дату и время с помощью простой функции, называемой СЕЙЧАС в excel.
Формула VBA NOW проста.
СЕЙЧАС ()
Пример функции NOW в VBA Excel
Посмотрите на простой пример функции NOW в VBA. Выполните следующие шаги, чтобы написать код VBA и получить немного знаний о СЕЙЧАС, а также о написании кода.
Шаг 1: Запустите подпроцедуру, указав имя макроса.
Код:
Sub Now_Example1 () End Sub
Шаг 2: Объявите переменную как «Дата». Причина, по которой нам нужно объявить переменную как «Дата», потому что наш конечный результат находится в формате даты и времени.
Код:
Sub Now_Example1 () Dim k As Date End Sub
Шаг 3: Назначьте значение переменной «k», применив функцию VBA NOW.
Код:
Sub Now_Example1 () Dim k As Date k = Now End Sub
Шаг 4: Теперь покажите значение функции СЕЙЧАС, которую мы присвоили переменной «k» в окне сообщения в VBA.
Код:
Sub Now_Example1 () Dim k As Date k = Now MsgBox k End Sub
Хорошо, мы закончили.
Запустите код с помощью клавиши F5 или вручную и посмотрите, каков результат.
Результат показывает 15.04.2019 в 5:03:35.
Формат даты на моем компьютере - «мм-дд-гггг».
Мы также можем изменить формат даты с помощью функции FORMAT. Ниже приведен код для изменения формата даты.
Код:
Sub Now_Example1 () Dim k As Date k = Now MsgBox Format (k, «ДД-МММ-ГГГГ ЧЧ: ММ: СС») End Sub
Запустите код и увидите разницу.
Теперь у нас есть правильный формат даты и времени. С этим форматом любой может понять формат даты и времени.
Летучие в природе:
Как вы можете видеть в первом примере, мы получили результат времени как 5:03:35, а во втором примере мы получили результат как 17:19:02. Таким образом, это показывает, что функция NOW - это непостоянная функция, которая меняется каждую секунду.
Альтернатива функции таймера в VBA
В качестве альтернативы VBA TIMER мы можем использовать функцию «VBA NOW» для расчета общего времени, затрачиваемого макросом на выполнение задачи.
Используйте приведенный ниже код, чтобы рассчитать время, затраченное на ваш код.
C0de:
Sub TotalDuration () Dim k As Date k = Now '' 'Введите здесь свой код' '' MsgBox "Общее время, затраченное макросом на выполнение задачи:" & _ Format ((Now - k), "HH: MM : SS ") End Sub
В зеленой области скопируйте и вставьте свой код.
Выполните код, нажав клавишу F5 или кнопку запуска. Как только он завершит выполнение, мы получим время, затраченное макросом на завершение сообщения о задаче в окне сообщения. Ниже приведен пример того же.
Таким образом, мы можем использовать функцию NOW по-разному в VBA.
Вы можете скачать этот шаблон функции Excel VBA Now здесь - Шаблон функции VBA Now