Hoe de dateserial-functie in vba te gebruiken (met voorbeeld)

U kunt de DateSerial- functie in VBA gebruiken om een datum voor een specifieke dag, maand en jaar te retourneren.

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

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

Deze specifieke macro retourneert datumwaarden in het bereik D2:D13 met behulp van de jaarwaarden in kolom C, de maandwaarden in kolom B en de dagwaarden in kolom A.

In het volgende voorbeeld ziet u hoe u de DateSerial- functie in de praktijk kunt gebruiken.

Voorbeeld: hoe u de DateSerial-functie in VBA gebruikt

Stel dat we de volgende kolommen in Excel hebben die de dag, de maand en het jaar voor verschillende datums weergeven:

Stel dat we de datumwaarden in kolom D willen weergeven, met behulp van de dag-, maand- en jaarwaarden in elke rij.

We kunnen hiervoor de volgende macro maken:

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

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

Kolom D geeft de datumwaarde weer die voortvloeit uit het gebruik van de dag-, maand- en jaarwaarden uit respectievelijk de kolommen A, B en C.

Opmerking : u kunt hier de volledige documentatie voor de VBA DateSerial- functie vinden.

Aanvullende bronnen

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

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