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 accetta 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. L'aggiunta di una data a un'altra data, sottraendo 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 si desidera 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 si desidera 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 due 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?
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 è riportato 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: aggiungere 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 # 5 - Aggiungi giorno della settimana
Per aggiungere i giorni feriali di seguito è il codice.
Codice:
Sub DateAdd_Example2 () 'Per aggiungere i giorni della settimana Dim NewDate As Date NewDate = DateAdd ("W", 5, "14-03-2019") MsgBox Format (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 () 'Per aggiungere l'ora 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 aggiungere, abbiamo fornito numeri positivi; per sottrarre e dobbiamo fornire numeri negativi che siano tutti.
Per sottrarre 3 mesi dalla data fornita, di seguito è riportato il codice.
Codice:
Sub DateAdd_Example3 () 'Per aggiungere l'ora Dim NewDate As Date NewDate = DateAdd ("m", -3, "14-03-2019") Formato MsgBox (NewDate, "dd-mmm-yyyy") End Sub
Il risultato di questo codice è:
Ho togliere 3 mesi dalla data di 14 ° marzo 2019. Si tornerà al precedente esercizio.
