Funcția Excel VBA DateAdd
Funcția DateAdd este clasificată în funcția de dată și oră în VBA și această funcție are o valoare de ieșire ca dată, ia intrarea ca format de dată și o adaugă la data curentă pentru a returna o nouă dată, sintaxa pentru această funcție ia interval de trei argumente, numărul și data.
Folosind funcția DateAdd, putem adăuga și scădea zile, luni și ani de la data dată. Data in excel este parte integrantă a muncii noastre zilnice; nu putem lucra în Excel fără dată, oră și alte lucruri importante. Adăugarea unei date la alta, scăderea unei date de la alta, este procesul obișnuit. În foaia de lucru obișnuită, facem pur și simplu operații aritmetice și obținem rezultatul. În VBA, avem funcția numită DateAdd, care va face treaba.
Sintaxă
Interval: Intervalul nu este altceva decât ce fel de valoare doriți să adăugați sau să scădeți. De exemplu, dacă doriți să adăugați sau să scădeți o lună, dacă doriți să adăugați sau să scădeți zile, dacă doriți să adăugați sau să scădeți un an, dacă doriți să adăugați sau să scăpați un trimestru etc.
Mai jos este o listă de coduri și descrieri.
- Număr: numărul de luni, zile sau săptămâni (așa cum este prevăzut în interval) pe care dorim să îl adăugăm sau să scădem la dată.
- Data: valoarea reală a datei în care efectuăm operația aritmetică.
De exemplu, dacă aveți data „14-Mar-2019” și doriți să adăugați două zile la dată, utilizați codul de mai jos:
DateAdd („d”, 2, „14-03-2019”)
Rezultatul codului de mai sus este: 16-03-2019
Cum se folosește funcția Dateadd în VBA?
Exemplul 1 - Adăugați o dată
Pentru a începe procedura, să aplicăm funcția simplă DateAdd. Să presupunem că lucrați cu data „14-03-2019”.
Pasul 1: Porniți subprocedura prin crearea unui nume de macro.
Pasul 2: definiți variabila ca dată.
Cod:
SubDatăAdăugare_Exemplu1 () Dim lună ca dată de sfârșit Sub
Pasul 3: Pentru această variabilă, atribuiți valoare.
Cod:
Sub DateAdd_Example1 () Dim NewDate Ca dată NewDate = End Sub
Pasul 4: Porniți formula DateAdd .
Cod:
Sub DateAdd_Example1 () Dim NewDate Ca dată NewDate = DateAdd (End Sub
Pasul 5: Care este operația pe care vrem să o facem. Vrem o zi până la întâlnire. Deci intervalul este „ d”.
Cod:
Sub DateAdd_Example1 () Dim NewDate Ca dată NewDate = DateAdd ("d", End Sub
Pasul 6: Câte zile trebuie să adăugăm? Trebuie să adaug 5 zile.
Cod:
Sub DateAdd_Example1 () Dim NewDate Ca dată NewDate = DateAdd ("d", 5, End Sub
Pasul 7: Data noastră este „ 14-03-2019. ”
Cod:
Sub DateAdd_Example1 () Dim NewDate as Date NewDate = DateAdd ("d", 5, "14-03-2019") End Sub
Pasul 8: Afișați rezultatul variabilei în caseta de mesaj VBA.
Cod:
Sub DateAdd_Example1 () Dim NewDate Ca dată NewDate = DateAdd ("d", 5, "14-03-2019") MsgBox NewDate End Sub
Dacă execut acest cod, ar trebui să primesc data 19-03-2019.
În formatul de dată al sistemului meu este „mm-zz-aaaa”, deci rezultatul se afișează conform setărilor datei sistemului.
Cu toate acestea, putem modifica acest lucru aplicând funcția VBA FORMAT.
Cod:
Sub DateAdd_Example1 () Dim NewDate as Date NewDate = DateAdd ("d", 5, "14-03-2019") Format MsgBox (NewDate, "dd-mmm-aaaa") End Sub
Acum, rezultatul ar trebui să fie în acest fel „ 19-Mar-2019 ”.
Exemplul nr. 2 - Adăugați luni
Pentru a adăuga luni, mai jos este codul
Cod:
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.
Pentru a scădea 3 luni de la data furnizată, mai jos este codul.
Cod:
Sub DateAdd_Example3 () 'To add hour Dim NewDate As Date NewDate = DateAdd ("m", -3, "14-03-2019") Format MsgBox (NewDate, "dd-mmm-aaaa") End Sub
Rezultatul acestui cod este:
Am deduce 3 luni de la data de 14 th martie 2019. Acesta va reveni la anul precedent.
