VBA Datum toevoegen - Datums optellen en aftrekken met de functie Dateadd

Inhoudsopgave

Excel VBA DateAdd-functie

Excel VBA DateAdd-functie

DateAdd- functie is gecategoriseerd onder de datum- en tijdfunctie in VBA en deze functie heeft een uitvoerwaarde als een datum, het neemt invoer als een datumformaat en voegt het toe aan de huidige datum om een nieuwe datum te retourneren, de syntaxis voor deze functie neemt drie argumenten interval, het nummer en de datum.

Met de functie DateAdd kunnen we dagen, maanden en jaren optellen en aftrekken van de opgegeven datum. Date in Excel is een essentieel onderdeel van ons dagelijkse werk; we kunnen niet in Excel werken zonder datum, tijd en andere belangrijke dingen. De ene datum bij een andere datum optellen, de ene datum van de andere aftrekken, is het gebruikelijke proces. In het gewone werkblad doen we gewoon rekenkundige bewerkingen en krijgen we het resultaat. In VBA hebben we de functie DateAdd, die het werk zal doen.

Syntaxis

Interval: Interval is niets anders dan het soort waarde dat u wilt optellen of aftrekken. Bijvoorbeeld, of u een maand wilt optellen of aftrekken, of u dagen wilt optellen of aftrekken, of u een jaar wilt optellen of aftrekken, of u een kwartaal wilt optellen of aftrekken, enz. …

Hieronder vindt u een lijst met codes en beschrijvingen.

Getal: het aantal maanden, dagen of weken (zoals opgegeven in het interval) dat we bij de datum willen optellen of aftrekken.
Datum: de werkelijke datumwaarde waarop we de rekenkundige bewerking uitvoeren.

Als je bijvoorbeeld de datum "14-mrt-2019" hebt en je wilt twee dagen bij de datum optellen, gebruik dan de onderstaande code:

DateAdd ("d," 2; "14-03-2019")

Het resultaat van bovenstaande code is: 16-03-2019

Hoe de Dateadd-functie in VBA te gebruiken?

Voorbeeld # 1 - Datum toevoegen

Om de procedure te starten, passen we de eenvoudige DateAdd-functie toe. Stel dat u werkt met de datum “14-03-2019”.

Stap 1: Start de subprocedure door een macronaam te maken.

Stap 2: Definieer de variabele als Datum.

Code:

Sub DateAdd_Example1 () Dim maand als einde datum Sub

Stap 3: Wijs waarde toe aan deze variabele.

Code:

Sub DateAdd_Example1 () Dim NewDate As Date NewDate = End Sub

Stap 4: Start de DateAdd- formule.

Code:

Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd (End Sub

Stap 5: Wat is de operatie die we willen doen. We willen een dag voor de date. Het interval is dus " d".

Code:

Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", End Sub

Stap 6: Hoeveel dagen moeten we toevoegen? Ik moet 5 dagen toevoegen.

Code:

Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, End Sub

Stap 7: Onze datum is “ 14-03-2019. "

Code:

Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") End Sub

Stap 8: toon het resultaat van de variabele in het VBA-berichtvenster.

Code:

Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") MsgBox NewDate End Sub

Als ik deze code uitvoer, zou ik de datum moeten krijgen als 19-03-2019.

In mijn systeem is datumnotatie "mm-dd-jjjj", dus het resultaat wordt weergegeven volgens de systeemdatuminstellingen.

We kunnen dit echter wijzigen door de VBA FORMAT-functie toe te passen.

Code:

Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") MsgBox-indeling (NewDate, "dd-mmm-jjjj") End Sub

Nu zou het resultaat er zo uit moeten zien " 19-Mar-2019 ".

Voorbeeld # 2 - Maanden toevoegen

Om maanden toe te voegen, staat hieronder de code

Code:

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

The result will be:

Example #3 - Add Years

To add years using DateAdd, use the below code.

Code:

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

The Result will be:

Example #4 - Add Quarter

To add quarter below is the code.

Code:

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

The Result will be:

Example #5 - Add Weekday

To add weekdays below is the 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 the 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, and we need to supply negative numbers that are all.

Om 3 maanden van de opgegeven datum af te trekken, staat hieronder de code.

Code:

Sub DateAdd_Example3 () 'Om uur toe te voegen Dim NewDate As Date NewDate = DateAdd ("m", -3, "14-03-2019") MsgBox-indeling (NewDate, "dd-mmm-jjjj") End Sub

Het resultaat van deze code is: