La función VBA Now devuelve la fecha y hora actual del sistema.
Now
Guardemos la fecha devuelta por la función Now en la celda A1:
Sub NowExample1()
Range("A1") = Now
End Sub
Mostremos la fecha devuelta por la función Now en formato de texto:
Sub NowExample2()
MsgBox Format(Now, "d mmmm yyyy hh:nn") 'Devoluciones, por ejemplo: 2 noviembre 2020 13:08
End Sub
Realizaremos la acción solo si son al menos las 17:00 y un día laborable:
Sub NowExample3()
If Hour(Now) >= 17 And Weekday(Now, vbMonday) < 6 Then
MsgBox "¡La jornada laboral casi ha terminado!"
End If
End Sub