Dagen toevoegen aan vandaag in vba (met voorbeelden)

U kunt de DateAdd- functie in VBA gebruiken om een specifiek aantal dagen aan een datum toe te voegen.

Hier is een gebruikelijke manier om deze functie in de praktijk te gebruiken:

 SubAddDays ()

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

Deze specifieke macro voegt vier dagen toe aan elke datum in het bereik A2:A10 en geeft de nieuwe datums weer in het bereik B2:B10 .

Houd er rekening mee dat het argument „d“ in de functie DateAdd aangeeft dat we dagen aan datums willen toevoegen in plaats van aan een andere tijdseenheid.

Raadpleeg de VBA-documentatiepagina voor een volledige lijst met eenheden die u kunt gebruiken in de DateAdd- functie.

Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.

Voorbeeld: Voeg dagen toe aan deze dag in VBA

Stel dat we de volgende lijst met datums in Excel hebben:

Stel dat we aan elke datum vier dagen willen toevoegen en de nieuwe datums in kolom B willen weergeven.

We kunnen hiervoor de volgende macro maken:

 SubAddDays ()

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

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Merk op dat kolom B elk van de datums in kolom A plus vier dagen bevat.

Voel je vrij om de numerieke waarde in de DateAdd- functie te wijzigen om aan elke datum een ander aantal dagen toe te voegen.

Opmerking : u kunt hier de volledige documentatie van de DateAdd- functie in VBA vinden.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

Datums vergelijken in VBA
Hoe string naar datum te converteren in VBA
Hoe dagen tussen twee datums in VBA te berekenen