Функция 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