VBA – Zeit formatieren

In diesem Tutorial zeigen wir Ihnen, wie Sie die VBA-Funktion Format verwenden können, um die Uhrzeit zu formatieren.

Die Format-Funktion und die Zeit

VBA – Die Zeit mit vordefinierten Formaten formatieren

Die VBA-Funktion Format kann verwendet werden, um eine Zahl in eine Zeichenfolge mit einem vordefinierten Format umzuwandeln. Die verfügbaren Formate für die Zeit sind long time, medium time und short time.

Sub ZeitFormatierenBeispiel_1()
Dim DatumBeisp As Date

DatumBeisp = #4/18/2020 6:05:07 PM#
MsgBox Format(DatumBeisp, "Long Time") 'Das Ergebnis ist: 6:05:07 PM
MsgBox Format(DatumBeisp, "Medium Time") 'Das Ergebnis ist: 06:05 PM
MsgBox Format(DatumBeisp, "Short Time") 'Das Ergebnis ist: 18:05

DatumBeisp = #2/18/2021 6:05:07 AM#
MsgBox Format(DatumBeisp, "Long Time") 'Das Ergebnis ist: 6:05:07 AM
MsgBox Format(DatumBeisp, "Medium Time") 'Das Ergebnis ist: 06:05 AM
MsgBox Format(DatumBeisp, "Short Time") 'Das Ergebnis ist: 06:05

End Sub

VBA – Zeit mit benutzerdefinierten Formaten formatieren

Die VBA-Funktion Format kann verwendet werden, um eine Zahl in eine Zeichenfolge mit benutzerdefinierten Formaten umzuwandeln. Die Symbole h und hh werden für Stunden, n und nn für Minuten, s und ss für Sekunden, ttttt für die volle Zeit je nach Systemeinstellung und AM/PM, am/pm, A/P, a/p oder AMPM für das AM-PM-System verwendet.

Sub ZeitFormatierenBeispiel_2()
Dim DatumBeisp As Date
DatumBeisp = #4/18/2020 6:05:07 PM#

MsgBox Format(DatumBeisp, "hh:nn:ss") 'Ergebnis ist: 18:05:07
MsgBox Format(DatumBeisp, "h:n:s AM/PM") 'Ergebnis ist: 6:5:7 PM

MsgBox Format(DatumBeisp, "h") 'Das Ergebnis ist: 18
MsgBox Format(DatumBeisp, "hh") 'Das Ergebnis ist: 18
MsgBox Format(DatumBeisp, "h:n") 'Das Ergebnis ist: 18:5
MsgBox Format(DatumBeisp, "hh:nn") 'Das Ergebnis ist: 18:05
MsgBox Format(DatumBeisp, "hh:nn:s") 'Das Ergebnis ist: 18:05:7
MsgBox Format(DatumBeisp, "hh:nn:ss") 'Das Ergebnis ist: 18:05:07

MsgBox Format(DatumBeisp, "\T\i\m\e\ \i\s\:\ hh:nn:ss")
'Ergebnis ist: Time is: 18:05:07
End Sub