Funzione DateAdd VBA

Funzione DateAdd di Excel VBA

La funzione DateAdd è classificata sotto la funzione data e ora in VBA e questa funzione ha un valore di output come data, prende l'input come formato di data e lo aggiunge alla data corrente per restituire una nuova data, la sintassi per questa funzione prende tre argomenti intervallo, il numero e la data.

Utilizzando la funzione DateAdd possiamo aggiungere e sottrarre giorni, mesi e anni dalla data specificata. La data in Excel è parte integrante del nostro lavoro quotidiano, non possiamo lavorare in Excel senza data, ora e altre cose importanti. Aggiungere una data a un'altra data, sottrarre una data da un'altra è il processo comune. Nel normale foglio di lavoro, eseguiamo semplicemente operazioni aritmetiche e otteniamo il risultato. In VBA abbiamo la funzione chiamata DateAdd che farà il lavoro.

Sintassi

Intervallo: l' intervallo non è altro che il tipo di valore che vuoi aggiungere o sottrarre. Ad esempio, se si desidera aggiungere o sottrarre un mese, se si desidera aggiungere o sottrarre giorni, se si desidera aggiungere o sottrarre un anno, se si desidera aggiungere o sottrarre trimestre, ecc ...

Di seguito è riportato un elenco di codici e descrizioni.

  • Numero: il numero di mesi, giorni o settimana (come fornito nell'intervallo) che vogliamo aggiungere o sottrarre alla data.
  • Data: il valore della data effettiva in cui stiamo eseguendo l'operazione aritmetica.

Ad esempio, se hai la data "14-Mar-2019" e desideri aggiungere 2 giorni alla data, utilizza il codice seguente:

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

Il risultato del codice sopra è: 16-03-2019

Come utilizzare la funzione Dateadd in VBA?

Puoi scaricare questo modello VBA DateAdd Excel qui - VBA DateAdd Excel Template

Esempio n. 1 - Aggiungi data

Per avviare il procedimento applichiamo la semplice funzione DateAdd. Supponi di lavorare con la data "14-03-2019".

Passaggio 1: avviare la sottoprocedura creando un nome di macro.

Passaggio 2: definire la variabile come Data.

Codice:

 Sub DateAdd_Example1 () Dim Month As Date End Sub 

Passaggio 3: per questa variabile assegnare un valore.

Codice:

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

Passaggio 4: avviare la formula DateAdd .

Codice:

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

Passaggio 5: qual è l'operazione che vogliamo fare. Vogliamo un giorno alla data. Quindi l'intervallo è " d ".

Codice:

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

Passaggio 6: quanti giorni dobbiamo aggiungere, devo aggiungere 5 giorni.

Codice:

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

Passaggio 7: la nostra data è " 14-03-2019 "

Codice:

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

Passaggio 8: mostra il risultato della variabile nella finestra di messaggio VBA.

Codice:

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

Se eseguo questo codice dovrei ottenere la data come 19-03-2019.

Nel mio formato di data di sistema è "mm-gg-aaaa", quindi il risultato viene visualizzato secondo le impostazioni della data di sistema.

Tuttavia, possiamo modificarlo applicando la funzione FORMATO VBA.

Codice:

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

Ora il risultato dovrebbe essere così " 19-Mar-2019 ".

Esempio n. 2 - Aggiungi mesi

Per aggiungere mesi di seguito è il codice

Codice:

 Sub DateAdd_Example2 () 'Per aggiungere mesi Dim NewDate As Date NewDate = DateAdd ("m", 5, "14-03-2019") Formato MsgBox (NewDate, "dd-mmm-yyyy") End Sub 

Il risultato sarà:

Esempio n. 3 - Aggiungi anni

Per aggiungere anni utilizzando DateAdd utilizzare il codice seguente.

Codice:

 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 

Il risultato sarà:

Esempio # 4 - Aggiungi un quarto

Per aggiungere un quarto di seguito è il codice

Codice:

 Sub DateAdd_Example2 () 'Per aggiungere un trimestre Dim NewDate As Date NewDate = DateAdd ("Q", 5, "14-03-2019") Formato MsgBox (NewDate, "dd-mmm-yyyy") End Sub 

Il risultato sarà:

Esempio n. 5 - Aggiungi giorno della settimana

Per aggiungere i giorni feriali di seguito è il codice

Codice:

 Sub DateAdd_Example2 () 'Per aggiungere i giorni feriali Dim NewDate As Date NewDate = DateAdd ("W", 5, "14-03-2019") Formato MsgBox (NewDate, "dd-mmm-yyyy") End Sub 

Il risultato sarà:

Esempio # 6 - Aggiungi settimana

Per aggiungere la settimana di seguito è il codice

Codice:

 Sub DateAdd_Example2 () 'To add Week Dim NewDate As Date NewDate = DateAdd ("WW", 5, "14-03-2019") Formato MsgBox (NewDate, "dd-mmm-yyyy") End Sub 

Il risultato sarà:

Esempio # 7 - Aggiungi ora

Per aggiungere l'ora di seguito è il codice

Codice:

 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 

Il risultato sarà

Esempio # 8: sottrarre la data

Per sommare abbiamo fornito numeri positivi, per sottrarre dobbiamo fornire numeri negativi che sono tutti.

In order to subtract 3 months from the supplied date below is the code.

Code:

 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 

The result of this code is:

If deduct 3 months from the date 14th March 2019 it will go back to the previous year.