Функция VBA Time возвращает текущее системное время.
Time
Сохраним время, полученное функцией Time, в ячейке A1:
Sub TimeExample1()
Range("A1") = Time
End Sub
Отображение времени, полученного функцией Time, в текстовом формате:
Sub TimeExample2()
MsgBox Format(Time, "hh\hnn") 'Возвращает, например: 13:24
End Sub
Выполним действие, только если сейчас не менее 17:00:
Sub TimeExample3()
If Hour(Time) >= 17 Then
MsgBox "День почти закончился!"
End If
End Sub