Как получить текущую дату и время?

В этом уроке мы изучим различные способы получения сегодняшней даты и времени с помощью кода VBA.

Сегодняшняя дата в VBA

В VBA есть функция « ДАТА », которую можно использовать для получения текущей даты. Когда вы используете эту функцию, как в следующем примере, она возвращает текущую дату на основе настройки системной даты.

 Sub myMacro() Range("A1") = Date End Sub

Когда вы запускаете этот код , он вводит текущую дату в ячейку A1 и использует текущий формат даты, который есть в Excel.

Вы также можете использовать эту функцию, чтобы получить сегодняшнюю дату в окне сообщения , как показано в следующем коде.

 Sub myMacro() MsgBox Date End Sub

Сегодняшняя дата и текущее время

Точно так же существует функция « СЕЙЧАС », которую вы можете использовать для получения сегодняшней даты и времени. Как видите, мы использовали его в следующем коде, чтобы получить текущую дату и время в ячейке A1.

 Sub myMacro() Range("A1") = Now End Sub

Текущий час

Теперь, если вы хотите получить только текущее время вместо даты и времени, вам нужно использовать еще одну функцию «Формат» ( подробнее об этой функции можно прочитать здесь ) вместе с функцией now.

В приведенном выше коде мы использовали функцию now для предоставления значения функции формата, а затем использовали формат только для времени.

 Sub myMacro() Range("A1") = Format( Now , "HH:MM Am/Pm") End Sub

Изменение формата сегодняшней даты (пример: ГГГГММДД)

Вы также можете использовать функцию формата, чтобы изменить формат текущей даты. В следующем коде мы использовали функцию формата и указали формат как «ГГГГММДД».

 Sub myMacro() Range ("A1"). Value = Format ( Date , "YYYY/MM/DD") End Sub

Примечание. В приведенном выше коде мы использовали свойство value для ввода даты в ячейку A1.