Excel VBA DateAdd-funktion
DateAdd- funktionen er kategoriseret under dato- og tidsfunktionen i VBA, og denne funktion har en outputværdi som en dato, den tager input som et format af dato og føjer den til den aktuelle dato for at returnere en ny dato, syntaksen for denne funktion tager tre argumenter interval, antallet og datoen.
Ved hjælp af DateAdd-funktionen kan vi tilføje og trække dage, måneder og år fra den givne dato. Dato i excel er en del af vores daglige arbejde; vi kan ikke arbejde i excel uden dato, tid og andre vigtige ting. Tilføjelse af en dato til en anden dato, fratrækning af en dato fra en anden, er den almindelige proces. I det almindelige regneark udfører vi simpelthen aritmetiske operationer og får resultatet. I VBA har vi funktionen DateAdd, som gør jobbet.
Syntaks
Interval: Interval er intet andet end hvad er den slags værdi, du vil tilføje eller trække fra. For eksempel, om du vil tilføje eller trække en måned, om du vil tilføje eller trække dage, om du vil tilføje eller trække et år, om du vil tilføje eller trække kvartal osv. …
Nedenfor er en liste over koder og beskrivelser.
- Antal: Antallet af måneder, dage eller uge (som angivet i intervallet), som vi vil tilføje eller trække fra datoen.
- Dato: Den aktuelle datoværdi, vi udfører den aritmetiske operation.
Hvis du f.eks. Har datoen “14-mar-2019”, og du vil tilføje to dage til datoen, skal du bruge nedenstående kode:
DateAdd (“d,” 2, “14-03-2019”)
Resultatet af ovenstående kode er: 16-03-2019
Hvordan bruges Dateadd-funktion i VBA?
Eksempel # 1 - Tilføj dato
Lad os anvende den enkle DateAdd-funktion for at starte proceduren. Antag, at du arbejder med datoen “14-03-2019”.
Trin 1: Start underproceduren ved at oprette et makronavn.
Trin 2: Definer variablen som dato.
Kode:
Sub DateAdd_Example1 () Dim Måned som Dato End Sub
Trin 3: Tildel denne værdi til denne variabel.
Kode:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = End Sub
Trin 4: Start formlen DateAdd .
Kode:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd (End Sub
Trin 5: Hvad er den operation, vi vil udføre. Vi vil have en dag til datoen. Så intervallet er " d."
Kode:
Sub DateAdd_Example1 () Dim NewDate Som Date NewDate = DateAdd ("d", End Sub
Trin 6: Hvor mange dage skal vi tilføje? Jeg skal tilføje 5 dage.
Kode:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, End Sub
Trin 7: Vores dato er “ 14-03-2019. ”
Kode:
Sub DateAdd_Example1 () Dim NewDate Som Date NewDate = DateAdd ("d", 5, "14-03-2019") End Sub
Trin 8: Vis resultatet af variablen i VBA-meddelelsesfeltet.
Kode:
Sub DateAdd_Example1 () Dim NewDate Som Date NewDate = DateAdd ("d", 5, "14-03-2019") MsgBox NewDate End Sub
Hvis jeg kører denne kode, skal jeg få datoen som 19-03-2019.
I mit system er datoformatet “mm-dd-åååå”, så resultatet vises i henhold til systemdatoindstillingerne.
Vi kan dog ændre dette ved at anvende VBA FORMAT-funktionen.
Kode:
Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy") End Sub
Nu skal resultatet ligesom denne " 19-mar-2019 ".
Eksempel # 2 - Tilføj måneder
For at tilføje måneder er nedenstående kode
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 at trække 3 måneder fra den leverede dato er nedenstående kode.
Kode:
Sub DateAdd_Example3 () 'For at tilføje time Dim NewDate Som Date NewDate = DateAdd ("m", -3, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyy") End Sub
Resultatet af denne kode er:
Jeg fratrække 3 måneder fra 14 th marts 2019. Det vil gå tilbage til det foregående år.
