Excel VBA DateAdd-Funktion
Die DateAdd- Funktion ist in VBA unter der Datums- und Uhrzeitfunktion kategorisiert. Diese Funktion hat einen Ausgabewert als Datum. Sie verwendet Eingaben als Datumsformat und fügt sie dem aktuellen Datum hinzu, um ein neues Datum zurückzugeben. Die Syntax für diese Funktion wird verwendet Intervall mit drei Argumenten, Nummer und Datum.
Mit der DateAdd-Funktion können wir Tage, Monate und Jahre zum angegebenen Datum hinzufügen und davon abziehen. Das Datum in Excel ist ein wesentlicher Bestandteil unserer täglichen Arbeit. Ohne Datum, Uhrzeit und andere wichtige Dinge können wir nicht in Excel arbeiten. Das Hinzufügen eines Datums zu einem anderen Datum und das Subtrahieren eines Datums von einem anderen ist der übliche Prozess. Im regulären Arbeitsblatt führen wir einfach arithmetische Operationen durch und erhalten das Ergebnis. In VBA haben wir die Funktion DateAdd, die die Arbeit erledigt.
Syntax
Intervall: Intervall ist nichts anderes als die Art von Wert, den Sie addieren oder subtrahieren möchten. Zum Beispiel, ob Sie einen Monat addieren oder subtrahieren möchten, ob Sie Tage addieren oder subtrahieren möchten, ob Sie ein Jahr addieren oder subtrahieren möchten, ob Sie ein Viertel addieren oder subtrahieren möchten usw.…
Unten finden Sie eine Liste mit Codes und Beschreibungen.
- Anzahl: Die Anzahl der Monate, Tage oder Wochen (wie im Intervall angegeben), die zum Datum addiert oder subtrahiert werden sollen.
- Datum: Der tatsächliche Datumswert, für den wir die arithmetische Operation ausführen.
Wenn Sie beispielsweise das Datum „14-Mar-2019“ haben und dem Datum zwei Tage hinzufügen möchten, verwenden Sie den folgenden Code:
DateAdd ("d", 2, "14-03-2019")
Das Ergebnis des obigen Codes ist: 16-03-2019
Wie verwende ich die Dateadd-Funktion in VBA?
Beispiel 1 - Datum hinzufügen
Um das Verfahren zu starten, wenden wir die einfache DateAdd-Funktion an. Angenommen, Sie arbeiten mit dem Datum „14-03-2019“.
Schritt 1: Starten Sie die Unterprozedur, indem Sie einen Makronamen erstellen.
Schritt 2: Definieren Sie die Variable als Datum.
Code:
Sub DateAdd_Example1 () Dim Month As Date End Sub
Schritt 3: Weisen Sie für diese Variable einen Wert zu.
Code:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = End Sub
Schritt 4: Starten Sie die DateAdd- Formel.
Code:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd (End Sub
Schritt 5: Was ist die Operation, die wir machen wollen. Wir wollen einen Tag auf dem Laufenden. Das Intervall ist also " d".
Code:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", End Sub
Schritt 6: Wie viele Tage müssen wir hinzufügen? Ich muss 5 Tage hinzufügen .
Code:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, End Sub
Schritt 7: Unser Datum ist „ 14-03-2019. ”
Code:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") End Sub
Schritt 8: Zeigen Sie das Ergebnis der Variablen im VBA-Meldungsfeld an.
Code:
Sub DateAdd_Example1 () NewDate als Datum dimmen NewDate = DateAdd ("d", 5, "14-03-2019") MsgBox NewDate End Sub
Wenn ich diesen Code ausführe, sollte ich das Datum als 19-03-2019 erhalten.
In meinem System ist das Datumsformat "MM-TT-JJJJ", daher wird das Ergebnis gemäß den Systemdatumseinstellungen angezeigt.
Wir können dies jedoch ändern, indem wir die VBA FORMAT-Funktion anwenden.
Code:
Sub DateAdd_Example1 () NewDate als Datum dimmen NewDate = DateAdd ("d", 5, "14-03-2019") MsgBox-Format (NewDate, "TT-MMM-JJJJ") End Sub
Jetzt sollte das Ergebnis so aussehen: " 19-Mar-2019 ".
Beispiel 2 - Monate hinzufügen
Um Monate hinzuzufügen, ist unten der Code
Code:
Sub DateAdd_Example2 () 'Zum Hinzufügen von Monaten Dim NewDate As Date NewDate = DateAdd ("m", 5, "14-03-2019") MsgBox-Format (NewDate, "TT-MMM-JJJJ") End Sub
Das Ergebnis wird sein:
Beispiel 3 - Jahre hinzufügen
Verwenden Sie den folgenden Code, um Jahre mit DateAdd hinzuzufügen.
Code:
Sub DateAdd_Example2 () 'Zum Hinzufügen des Jahres Dim NewDate As Date NewDate = DateAdd ("JJJJ", 5, "14-03-2019") MsgBox-Format (NewDate, "TT-MMM-JJJJ") End Sub
Das Ergebnis wird sein:
Beispiel 4 - Viertel hinzufügen
Um unten ein Viertel hinzuzufügen, ist der Code.
Code:
Sub DateAdd_Example2 () 'Zum Hinzufügen eines Viertels Dim NewDate As Date NewDate = DateAdd ("Q", 5, "14-03-2019") MsgBox-Format (NewDate, "TT-MMM-JJJJ") End Sub
Das Ergebnis wird sein:
Beispiel 5 - Wochentag hinzufügen
Um Wochentage hinzuzufügen, ist unten der Code.
Code:
Sub DateAdd_Example2 () 'So fügen Sie Wochentage hinzu Dim NewDate As Date NewDate = DateAdd ("W", 5, "14-03-2019") MsgBox-Format (NewDate, "TT-MMM-JJJJ") End Sub
Das Ergebnis wird sein:
Beispiel 6 - Woche hinzufügen
Um Woche unten hinzuzufügen, ist der Code.
Code:
Sub DateAdd_Example2 () 'So fügen Sie Week Dim NewDate als Datum hinzu NewDate = DateAdd ("WW", 5, "14-03-2019") MsgBox-Format (NewDate, "TT-MMM-JJJJ") End Sub
Das Ergebnis wird sein:
Beispiel 7 - Stunde hinzufügen
Um die Stunde unten hinzuzufügen, ist der Code.
Code:
Sub DateAdd_Example2 () 'Zum Hinzufügen der Stunde Dim NewDate As Date NewDate = DateAdd ("h", 5, "14-03-2019") MsgBox-Format (NewDate, "TT-MMM-JJJJ HH: MM: SS") End Sub
Das Ergebnis wird sein
Beispiel 8 - Datum subtrahieren
Um hinzuzufügen, haben wir positive Zahlen geliefert; zu subtrahieren, und wir müssen negative Zahlen liefern, die alle sind.
Um 3 Monate vom angegebenen Datum abzuziehen, ist unten der Code.
Code:
Sub DateAdd_Example3 () 'Zum Hinzufügen der Stunde Dim NewDate As Date NewDate = DateAdd ("m", -3, "14-03-2019") MsgBox-Format (NewDate, "TT-MMM-JJJJ") End Sub
Das Ergebnis dieses Codes ist:
Ich Abzug von 3 Monaten ab dem Tag 14 th 2019. März wird es zum Vorjahr zurück.
