Die Funktion VBA Second gibt eine Ganzzahl zurück, die den Sekunden des angegebenen Datums oder der angegebenen Uhrzeit entspricht.
Second(date_time)
Verwenden der Funktion Second, um die relevanten Zeitinformationen abzurufen:
Sub SecondExample1()
myHour = #6:36:45 PM#
MsgBox Second(myHour) 'Rückgabe: 45
End Sub
Oder nach Datum und Uhrzeit (für das gleiche Ergebnis):
Sub SecondExample2()
myDate = #10/31/2020 6:36:45 PM#
MsgBox Second(myDate) 'Rückgabe: 45
End Sub
Diese Funktion akzeptiert auch eine Uhrzeit oder ein Datum mit Uhrzeit im Textformat:
Sub SecondExample3()
myDate = "31.10.2020 18:36:45"
MsgBox Second(myDate) 'Rückgabe: 45
End Sub