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 TemplateEsempio 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.