Jahr, Monat, Tag eines Datums | DatumHinzufügen | Aktuelles Datum und Uhrzeit | Stunde, Minute, Sekunde | Zeitwert
Erfahren Sie, wie Sie mit . arbeiten Daten und Uhrzeiten In Excel VBA.
Platzieren Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt, und fügen Sie die folgenden Codezeilen hinzu. Um die Codezeilen auszuführen, klicken Sie auf die Befehlsschaltfläche auf dem Blatt.
Jahr, Monat, Tag eines Datums
Das folgende Makro ruft das Jahr eines Datums ab. Um ein Datum zu deklarieren, verwenden Sie die Dim-Anweisung. Um ein Datum zu initialisieren, verwenden Sie die DateValue-Funktion.
Code:
Dim exampleDate As Date
exampleDate = DateValue("Jan 19,2021-2022")
MsgBox-Jahr (BeispielDatum)
Ergebnis:
Hinweis: Verwenden Sie Monat und Tag, um Monat und Tag eines Datums abzurufen.
DatumHinzufügen
Um einem Datum eine Anzahl von Tagen hinzuzufügen, verwenden Sie die Funktion DateAdd. Die DateAdd-Funktion hat drei Argumente. Geben Sie "d" für das erste Argument ein, um Tage hinzuzufügen. Geben Sie 3 für das zweite Argument ein, um 3 Tage hinzuzufügen. Das dritte Argument stellt das Datum dar, zu dem die Anzahl der Tage addiert wird.
Code:
Dim firstDate As Date, secondDate As Date
firstDate = DateValue("Jan 19,2021-2022")
secondDate = DateAdd("d", 3, firstDate)
MsgBox secondDate
Ergebnis:
Hinweis: Ändern Sie "d" in "m", um einem Datum eine Anzahl von Monaten hinzuzufügen. Platzieren Sie Ihren Cursor im Visual Basic-Editor auf DateAdd, und klicken Sie auf F1, um Hilfe zu den anderen Intervallbezeichnern zu erhalten. Die Daten sind im US-Format. Monate zuerst, Tage dann. Diese Art von Format hängt von Ihren Windows-Regionaleinstellungen ab.
Aktuelles Datum und Uhrzeit
Um das aktuelle Datum und die aktuelle Uhrzeit abzurufen, verwenden Sie die Jetzt-Funktion.
Code:
MsgBox Now
Ergebnis:
Stunde, Minute, Sekunde
Um die Stunde einer Uhrzeit zu erhalten, verwenden Sie die Stundenfunktion.
Code:
MsgBox-Stunde (jetzt)
Ergebnis:
Hinweis: Verwenden Sie Minute und Sekunde, um die Minute und Sekunde einer Zeit zu erhalten.
Zeitwert
Die Funktion TimeValue konvertiert eine Zeichenfolge in eine Zeitseriennummer. Die Seriennummer der Uhrzeit ist eine Zahl zwischen 0 und 1. Zum Beispiel wird Mittag (die Hälfte des Tages) als 0,5 dargestellt.
Code:
MsgBox TimeValue("9:20:01 am")
Ergebnis:
Um nun klar zu sehen, dass Excel Zeiten intern als Zahlen zwischen 0 und 1 behandelt, fügen Sie die folgenden Codezeilen hinzu:
Dim y As Double
y = Zeitwert("09:20:01")
MsgBox y
Ergebnis:
