VBA DateAdd - Legg til og trekk fra datoer ved hjelp av Dateadd-funksjonen

Innholdsfortegnelse

Excel VBA DateAdd-funksjon

Excel VBA DateAdd-funksjon

DateAdd- funksjonen er kategorisert under dato- og tidsfunksjonen i VBA, og denne funksjonen har en utgangsverdi som en dato, den tar input som et format for dato og legger den til den gjeldende datoen for å returnere en ny dato, syntaksen for denne funksjonen tar tre argumenter intervall, tallet og datoen.

Ved hjelp av DateAdd-funksjonen kan vi legge til og trekke fra dager, måneder og år fra den gitte datoen. Dato i Excel er en del av vårt daglige arbeid; vi kan ikke jobbe i excel uten dato, tid og andre viktige ting. Å legge til en dato til en annen dato, trekke en dato fra en annen, er den vanlige prosessen. I det vanlige regnearket gjør vi ganske enkelt regneoperasjoner og får resultatet. I VBA har vi funksjonen kalt DateAdd, som vil gjøre jobben.

Syntaks

Intervall: Intervall er ikke annet enn hva slags verdi du vil legge til eller trekke fra. For eksempel om du vil legge til eller trekke fra en måned, om du vil legge til eller trekke fra dager, om du vil legge til eller trekke fra et år, om du vil legge til eller trekke fra kvartal osv. …

Nedenfor er en liste over koder og beskrivelser.

Antall: Antall måneder, dager eller uke (som angitt i intervallet) vi vil legge til eller trekke fra datoen.
Dato: Den faktiske datoverdien vi utfører den aritmetiske operasjonen.

Hvis du for eksempel har datoen “14-mar-2019” og du vil legge til to dager til datoen, bruker du koden nedenfor:

DateAdd (“d,” 2, “14-03-2019”)

Resultatet av ovennevnte kode er: 16-03-2019

Hvordan bruke Dateadd-funksjonen i VBA?

Eksempel 1 - Legg til dato

For å starte prosessen, la oss bruke den enkle DateAdd-funksjonen. Anta at du jobber med datoen “14-03-2019”.

Trinn 1: Start delprosedyren ved å opprette et makronavn.

Trinn 2: Definer variabelen som Dato.

Kode:

Sub DateAdd_Example1 () Dim Måned som Dato Slutt Sub

Trinn 3: For denne variabelen, tildel verdi.

Kode:

Sub DateAdd_Example1 () Dim NewDate Som Date NewDate = Slutt Sub

Trinn 4: Start DateAdd- formelen.

Kode:

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

Trinn 5: Hva er operasjonen vi vil gjøre. Vi vil ha en dag til datoen. Så intervallet er " d."

Kode:

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

Trinn 6: Hvor mange dager må vi legge til? Jeg må legge til 5 dager.

Kode:

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

Trinn 7: Datoen vår er “ 14-03-2019. ”

Kode:

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

Trinn 8: Vis resultatet av variabelen i VBA-meldingsboksen.

Kode:

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

Hvis jeg kjører denne koden, bør jeg få datoen som 19-03-2019.

I systemdatoformatet mitt er "mm-dd-åååå", så resultatet vises i henhold til systemdatoinnstillingene.

Vi kan imidlertid endre dette ved å bruke VBA FORMAT-funksjonen.

Kode:

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

Nå skal resultatet være slik " 19-Mar-2019 ".

Eksempel 2 - Legg til måneder

For å legge til måneder, nedenfor er koden

Kode:

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.

For å trekke tre måneder fra den leverte datoen, er koden nedenfor.

Kode:

Sub DateAdd_Example3 () 'For å legge til time Dim NewDate Som Date NewDate = DateAdd ("m", -3, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy") End Sub

Resultatet av denne koden er: