Funcția VBA DateAdd

Funcția Excel VBA DateAdd

DateAdd funcția 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 durează trei intervalul de argumente, numărul și data.

Table of Contents

Toggle

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 altă dată, 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 trimestrul etc.

Mai jos este o listă de coduri și descrieri.

• Număr: Numărul de luni, zile sau săptămână (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 nr. 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:

Sub DateAdd_Example1()

Dim Month As Date

End Sub

Pasul 3: Pentru această variabilă, atribuiți valoare.

Cod:

Sub DateAdd_Example1()
  Dim NewDate As Date

  NewDate =

End Sub

Pasul 4: Porniți DateAdd formulă.

Cod:

Sub DateAdd_Example1()
  Dim NewDate As Date

  NewDate = DateAdd(

End Sub

Pasul 5: Care este operațiunea pe care vrem să o facem. Vrem o zi până la întâlnire. Deci intervalul este „d. ”

Cod:

Sub DateAdd_Example1()
    Dim NewDate As Date

   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 As Date

   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 mesaje VBA.

Cod:

Sub DateAdd_Example1()
  Dim NewDate As Date

  NewDate = DateAdd("d", 5, "14-03-2019")
  MsgBox NewDate

End Sub

Dacă rulez acest cod, ar trebui să primesc data la 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")
  MsgBox Format(NewDate, "dd-mmm-yyyy")

End Sub

Acum, rezultatul ar trebui să fie așa „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

Rezultatul va fi:

Exemplul # 3 – Adăugați ani

Pentru a adăuga ani folosind DateAdd, utilizați codul de mai jos.

Cod:

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

Rezultatul va fi:

Exemplul # 4 – Adăugați trimestru

Pentru a adăuga trimestrul de mai jos este codul.

Cod:

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

Rezultatul va fi:

Exemplul nr. 5 – Adăugați ziua săptămânii

Pentru a adăuga zilele săptămânii de mai jos este codul.

Cod:

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

Rezultatul va fi:

Exemplul nr. 6 – Adăugați o săptămână

Pentru a adăuga săptămâna de mai jos este codul.

Cod:

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

Rezultatul va fi:

Exemplul # 7 – Adăugați ora

Pentru a adăuga ora de mai jos este codul.

Cod:

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

Rezultatul va fi

Exemplul # 8 – Scăderea datei

Pentru a adăuga, am furnizat numere pozitive; pentru a scădea și trebuie să furnizăm numere negative care sunt toate.

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")
  MsgBox Format(NewDate, "dd-mmm-yyyy")

End Sub

Rezultatul acestui cod este:

Deduc 3 luni de la data 14^a Martie 2019. Se va întoarce la anul precedent.

Articole recomandate

Acesta a fost un ghid pentru funcția VBA DateAdd. Aici aflăm cum să folosim funcția VBA DateAdd pentru a adăuga și scădea zile, luni și ani de la data dată, împreună cu exemple practice și un șablon excel descărcabil. Mai jos puteți găsi câteva articole utile Excel VBA –

• Exemple de declarații de caz VBA
• Ziua săptămânii în VBA
• VBA Select Case
• DateSerial în VBA