Die Funktion VBA Time gibt die aktuelle Systemzeit zurück.
Time
Speichern wir die Zeit, die die Funktion Time in Zelle A1 erhält:
Sub TimeExample1()
Range("A1") = Time
End Sub
Anzeige der von der Funktion Time erhaltenen Zeit im Textformat:
Sub TimeExample2()
MsgBox Format(Time, "hh\hnn") 'Gibt zum Beispiel zurück: 13h24
End Sub
Wir werden die Aktion nur durchführen, wenn es jetzt mindestens 17:00 Uhr ist:
Sub TimeExample3()
If Hour(Time) >= 17 Then
MsgBox "Der Tag ist fast vorbei!"
End If
End Sub