Функция VBA Now возвращает текущую системную дату и время.
Но
Сохраним дату, возвращаемую функцией Now, в ячейке A1:
Sub NowExample1() Range("A1") = Now End Sub
Отразим дату, которую возвращает функция Now, в текстовом формате:
Sub NowExample2() MsgBox Format(Now, "d mmmm yyyy hh:nn") 'Возвращает, например: 2 ноября 2020 г. 13:08. End Sub
Выполним действие только если сейчас по крайней мере 17:00 и будний день:
Sub NowExample3() If Hour(Now) >= 17 And Weekday(Now, vbMonday) < 6 Then MsgBox "Рабочий день почти закончился!" End If End Sub