La fonction VBA Time renvoie l'heure système actuelle.
Time
Gardons le temps obtenu par la fonction Time dans la cellule A1 :
Sub TimeExample1()
Range("A1") = Time
End Sub
Affichage de l'heure obtenue par la fonction Time au format texte :
Sub TimeExample2()
MsgBox Format(Time, "hh\hnn") 'Retours, par exemple : 13h24
End Sub
Nous effectuerons l'action uniquement s'il est maintenant au moins 17h00 :
Sub TimeExample3()
If Hour(Time) >= 17 Then
MsgBox "La journée est presque terminée !"
End If
End Sub