La fonction VBA Now renvoie la date et l'heure actuelles du système.
Now
Nous stockons la date renvoyée par la fonction Now dans la cellule A1 :
Sub NowExample1()
Range("A1") = Now
End Sub
Affichons la date renvoyée par la fonction Now au format texte :
Sub NowExample2()
MsgBox Format(Now, "d mmmm yyyy hh:nn") 'Retours, par exemple : 2 novembre 2020 13h08
End Sub
Nous effecteurons l'action seulement s'il est au moins 17h00 et un jour de semaine :
Sub NowExample3()
If Hour(Now) >= 17 And Weekday(Now, vbMonday) < 6 Then
MsgBox "La journée de travail est presque terminée !"
End If
End Sub