Excel VBA Datum und Uhrzeit
Erfahren Sie, wie mit Daten und Zeiten in Excel VBA zu arbeiten.
Legen Sie eine Befehlstaste auf dem Arbeitsblatt und fügen Sie die Codezeilen unten. Um die Codezeilen auszuführen, klicken Sie auf das Befehlsschaltflächen auf dem Blatt.
Jahr, Monat, Tag eines Date
Der folgende Makro wird das Jahr eines Datums. Um ein Datum zu deklarieren, verwendet die Dim-Anweisung. Um ein Datum zu initialisieren, verwenden Sie die DatWert Funktion.
Code:
Dim exampleDate As Date
exampleDate = DateValue("Jan 19, 2020")
MsgBox Year(exampleDate)
Ergebnis:
Hinweis: Verwenden Sie Monat und Tag den Monat und Tag von einem Datum zu erhalten.
DateAdd
Um eine Anzahl von Tagen zu einem Datum hinzuzufügen, verwenden Sie die DateAdd-Funktion. Die DateAdd Funktion hat drei Argumente. Füllen Sie „d“ für das erste Argument Tage hinzuzufügen. Füllen Sie 3 für das zweite Argument 3 Tage hinzuzufügen. Das dritte Argument steht für das Datum, an dem die Anzahl der Tage hinzugefügt werden.
Code:
Dim firstDate As Date, secondDate As Date
firstDate = DateValue("Jan 19, 2020")
secondDate = DateAdd("d", 3, firstDate)
MsgBox secondDate
Ergebnis:
Hinweis: Ändern Sie „d“ bis „m“ eine Anzahl von Monaten zu einem Datum hinzuzufügen. Setzen Sie den Cursor auf DateAdd in Visual Basic-Editor und klicken Sie auf F1, um Hilfe zu anderen Intervall Planern. Termine sind in US-Format. Monate ersten, zweiten Tage. Diese Art von Format ist abhängig von Ihrer Windows-Ländereinstellungen.
Aktuelles Datum und Uhrzeit
Um das aktuelle Datum und die Uhrzeit zu erhalten, verwenden Sie die Funktion jetzt.
Code:
MsgBox Now
Ergebnis:
Stunde, Minute, Sekunde
Die bekommen die Stunde einer Zeit, verwenden Sie die Stunden-Funktion.
Code:
MsgBox Hour(Now)
Ergebnis:
Hinweis: Verwenden Sie Minute und Sekunde der Minute und Sekunde einer Zeit zu erhalten.
ZeitWert
Die ZeitWert Funktion wandelt eine Zeichenkette in eine Zeit, Seriennummer. Die Zeit der Seriennummer ist eine Zahl zwischen 0 und 1. Zum Beispiel Mittag (auf halbem Weg durch den Tag) als 0,5 dargestellt.
Code:
MsgBox TimeValue("9:20:01 am")
Ergebnis:
Nun sehen Sie, zu deutlich, dass Excel behandelt mal intern als Zahlen zwischen 0 und 1, fügen Sie die folgenden Codezeilen:
Dim y As Double
y = TimeValue("09:20:01")
MsgBox y
Ergebnis:
