VBA DateAdd-Funktion

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 addieren und subtrahieren. 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 Vorgang. Im regulären Arbeitsblatt führen wir einfach arithmetische Operationen durch und erhalten das Ergebnis. In VBA haben wir die Funktion DateAdd, die den Job 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 2 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?

Sie können diese VBA DateAdd Excel-Vorlage hier herunterladen - VBA DateAdd Excel-Vorlage

Beispiel 1 - Datum hinzufügen

Um das Verfahren zu starten, wenden Sie eine 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 dieser Variablen 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 wir hinzufügen müssen, muss ich 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 unten hinzuzufügen, ist 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() 'To add weekdays Dim NewDate As Date NewDate = DateAdd("W", 5, "14-03-2019") MsgBox Format(NewDate, "dd-mmm-yyyy") End Sub 

The Result will be:

Example #6 – Add Week

To add week below is the code

Code:

 Sub DateAdd_Example2() 'To add Week Dim NewDate As Date NewDate = DateAdd("WW", 5, "14-03-2019") MsgBox Format(NewDate, "dd-mmm-yyyy") End Sub 

The Result will be:

Example #7 – Add Hour

To add hour below is the code

Code:

 Sub DateAdd_Example2() 'To add hour Dim NewDate As Date NewDate = DateAdd("h", 5, "14-03-2019") MsgBox Format(NewDate, "dd-mmm-yyyy hh:mm:ss ") End Sub 

The Result will be

Example #8 – Subtract Date

In order to add we have supplied positive numbers, to subtract we need to supply negative numbers that are all.

In order to subtract 3 months from the supplied date below is the code.

Code:

 Sub DateAdd_Example3() 'To add hour Dim NewDate As Date NewDate = DateAdd("m", -3, "14-03-2019") MsgBox Format(NewDate, "dd-mmm-yyyy") End Sub 

The result of this code is:

If deduct 3 months from the date 14th March 2019 it will go back to the previous year.