VBA DateAdd - Kuupäevade liitmine ja lahutamine funktsiooni Dateadd abil

Lang L: none (table-of-contents)

Exceli VBA kuupäeva lisamise funktsioon

Exceli VBA kuupäeva lisamise funktsioon

Funktsioon DateAdd on liigitatud VBA kuupäeva ja kellaaja funktsiooni alla ja sellel funktsioonil on kuupäeva väljundväärtus, see võtab kuupäeva vorminguna sisendi ja lisab selle uue kuupäeva tagastamiseks praegusele kuupäevale, selle funktsiooni süntaks võtab kolme argumendi intervall, number ja kuupäev.

Funktsiooni DateAdd abil saame antud kuupäevast lisada ja lahutada päevi, kuid ja aastaid. Kuupäev excelis on meie igapäevase töö lahutamatu osa; me ei saa excelis töötada ilma kuupäeva, kellaaja ja muu olulise kraamita. Ühe kuupäeva lisamine teisele kuupäevale, ühe kuupäeva teisest lahutamine on tavaline protsess. Tavalises töölehel teeme lihtsalt aritmeetilised toimingud ja saame tulemuse. VBA-s on meil funktsioon DateAdd, mis selle töö ära teeb.

Süntaks

Intervall: Intervall pole midagi muud kui see, millist väärtust soovite lisada või lahutada. Näiteks kas soovite lisada või lahutada kuu, kas soovite lisada või lahutada päevi, kas soovite lisada või lahutada aasta, kas soovite lisada või lahutada kvartali jne …

Allpool on loetelu koodidest ja kirjeldustest.

Number: kuude, päevade või nädalate arv (vastavalt intervallile), mille tahame kuupäevale lisada või lahutada.
Kuupäev: tegelik kuupäeva väärtus, mida teeme aritmeetilise toimingu abil.

Näiteks kui teil on kuupäev „14-märts-2019” ja soovite kuupäevale lisada kaks päeva, kasutage järgmist koodi:

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

Ülaltoodud koodi tulemus on: 16-03-2019

Kuidas kasutada Dateaddi funktsiooni VBA-s?

Näide 1 - kuupäeva lisamine

Menetluse alustamiseks rakendame lihtsat funktsiooni DateAdd. Oletame, et töötate kuupäevaga „14-03-2019“.

1. samm: käivitage alamprotseduur makro nime loomisega.

2. samm: määrake muutuja kuupäevaks.

Kood:

Sub DateAdd_Example1 () Hämarda kuu kuupäeva lõpu alamana

3. samm: määrake selle muutuja jaoks väärtus.

Kood:

Sub DateAdd_Example1 () Dim NewDate As Date NewDate = Lõpeta alam

Etapp 4: Käivitage dateadd valemiga.

Kood:

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

5. samm: mis on toiming, mida me tahame teha. Soovime päeva kuupäevani. Seega on intervall „ d”.

Kood:

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

6. samm: mitu päeva peame lisama? Pean lisama 5 päeva.

Kood:

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

7. samm: meie kuupäev on „ 14-03-2019. ”

Kood:

Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") Lõpp-alam

8. samm: kuvage muutuja tulemus VBA teatekastis.

Kood:

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

Kui käivitan selle koodi, peaksin saama kuupäevaks 19-03-2019.

Minu süsteemis on kuupäevavorming “kk-pp-aaaa”, nii et tulemus kuvatakse vastavalt süsteemi kuupäeva sätetele.

Kuid me saame seda muuta, rakendades funktsiooni VBA FORMAT.

Kood:

Sub DateAdd_Example1 () Dim NewDate As Date NewDate = DateAdd ("d", 5, "14-03-2019") MsgBoxi vorming (NewDate, "pp-kk-aaaa") Lõpp alam

Nüüd peaks tulemus olema selline “ 19. märts-2019 ”.

Näide # 2 - lisage kuud

Kuude lisamiseks on kood allpool

Kood:

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.

Tarnitud kuupäevast 3 kuu lahutamiseks on kood allpool.

Kood:

Sub DateAdd_Example3 () 'Tundide lisamiseks Dim NewDate As Date NewDate = DateAdd ("m", -3, "14-03-2019") MsgBoxi vorming (NewDate, "dd-mmm-yyyy") Lõpp-alam

Selle koodi tulemus on: