Come aggiungere giorni a oggi in vba (con esempi)

È possibile utilizzare la funzione DateAdd in VBA per aggiungere un numero specifico di giorni a una data.

Ecco un modo comune per utilizzare questa funzione nella pratica:

 SubAddDays ()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = DateAdd(" d ", 4, Range(" A " & i))
    Next i
    
End Sub

Questa particolare macro aggiungerà quattro giorni a ciascuna data nell’intervallo A2:A10 e visualizzerà le nuove date nell’intervallo B2:B10 .

Tieni presente che l’argomento “d” nella funzione DateAdd specifica che vogliamo aggiungere giorni alle date anziché un’altra unità di tempo.

Fare riferimento alla pagina della documentazione VBA per un elenco completo delle unità che è possibile utilizzare nella funzione DateAdd .

L’esempio seguente mostra come utilizzare questa sintassi nella pratica.

Esempio: aggiungi giorni a questo giorno in VBA

Supponiamo di avere il seguente elenco di date in Excel:

Supponiamo di voler aggiungere quattro giorni a ciascuna data e visualizzare le nuove date nella colonna B.

Per fare ciò possiamo creare la seguente macro:

 SubAddDays ()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = DateAdd(" d ", 4, Range(" A " & i))
    Next i
    
End Sub

Quando eseguiamo questa macro, riceviamo il seguente output:

Tieni presente che la colonna B contiene ciascuna delle date della colonna A più quattro giorni.

Sentiti libero di modificare il valore numerico nella funzione DateAdd per aggiungere un numero diverso di giorni a ciascuna data.

Nota : la documentazione completa della funzione DateAdd in VBA si trova qui .

Risorse addizionali

I seguenti tutorial spiegano come eseguire altre attività comuni in VBA:

Come confrontare le date in VBA
Come convertire la stringa fino ad oggi in VBA
Come calcolare i giorni tra due date in VBA