VBA DateAdd - Dodajanje in odštevanje datumov s funkcijo Dateadd

Kazalo

Excel VBA DateAdd Function

Excel VBA DateAdd Function

Funkcija DateAdd je kategorizirana pod funkcijo datuma in časa v VBA, ta funkcija pa ima kot datum izhodno vrednost, vnese obliko zapisa datuma in jo doda trenutnemu datumu, da vrne nov datum, sintaksa za to funkcijo pa interval treh argumentov, število in datum.

S pomočjo funkcije DateAdd lahko od navedenega datuma dodajamo in odštevamo dneve, mesece in leta. Date in excel je del našega vsakdanjega dela; v Excelu ne moremo delati brez datuma, ure in drugih pomembnih stvari. Skupni postopek je dodajanje enega datuma drugemu, odštevanje enega datuma drugemu. V običajnem delovnem listu preprosto izvajamo aritmetične operacije in dobimo rezultat. V VBA imamo funkcijo, imenovano DateAdd, ki bo opravila delo.

Sintaksa

Interval: Interval ni nič drugega kot kakšno vrednost želite dodati ali odšteti. Na primer, ali želite dodati ali odšteti mesec, ali želite dodati ali odšteti dneve, ali želite dodati ali odšteti leto, ali želite dodati ali odšteti četrtletje itd.…

Spodaj je seznam kod in opisov.

Število: število mesecev, dni ali tedna (kot je določeno v intervalu), ki ga želimo dodati ali odšteti datumu.
Date: Dejanska vrednost datuma, v katerem izvajamo aritmetično operacijo.

Če imate na primer datum »14. marec 2019« in želite datumu dodati dva dni, uporabite spodnjo kodo:

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

Rezultat zgornje kode je: 16-03-2019

Kako uporabiti funkcijo Dateadd v VBA?

Primer # 1 - Dodaj datum

Za začetek postopka uporabimo preprosto funkcijo DateAdd. Recimo, da delate z datumom “14-03-2019”.

1. korak: Zaženite podproces z ustvarjanjem imena makra.

2. korak: Spremenljivko določite kot Datum.

Koda:

Sub DateAdd_Example1 () Zatemni mesec kot datum konca Sub

3. korak: tej spremenljivki dodelite vrednost.

Koda:

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

4. korak: zaženite formulo DateAdd .

Koda:

Sub DateAdd_Example1 () Zatemni NewDate kot datum NewDate = DateAdd (End Sub

5. korak: Kakšno operacijo želimo narediti. Želimo dan do datuma. Interval je torej " d".

Koda:

Sub DateAdd_Example1 () Zatemni NewDate kot datum NewDate = DateAdd ("d", End Sub

6. korak: Koliko dni moramo dodati? Dodati moram 5 dni.

Koda:

Sub DateAdd_Example1 () Zatemni NewDate kot datum NewDate = DateAdd ("d", 5, End Sub

7. korak: Naš datum je “ 14-03-2019. "

Koda:

Sub DateAdd_Example1 () Zatemni NewDate kot datum NewDate = DateAdd ("d", 5, "14-03-2019") End Sub

8. korak: Rezultat spremenljivke pokažite v polju za sporočila VBA.

Koda:

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

Če zaženem to kodo, bi moral dobiti datum 19-03-2019.

V mojem formatu sistemskega datuma je »mm-dd-llll«, zato je rezultat prikazan v skladu z nastavitvami sistemskega datuma.

Vendar pa lahko to spremenimo z uporabo funkcije VBA FORMAT.

Koda:

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

Zdaj bi moral biti rezultat všeč ta " 19. marec 2019 ".

2. primer - dodajte mesece

Če želite dodati mesece, spodaj je koda

Koda:

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.

Za odštevanje 3 mesecev od navedenega datuma je spodaj koda.

Koda:

Sub DateAdd_Example3 () 'Če želite dodati uro Dim NewDate kot datum NewDate = DateAdd ("m", -3, "14-03-2019") MsgBox Format (NewDate, "dd-mmm-yyyyy)) End Sub

Rezultat te kode je: