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

U kunt de DateValue- functie in VBA gebruiken om de datumwaarde uit een bepaalde tekenreeks te retourneren.

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

 Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = DateValue(Range(" A " & i))
Next i
    
End Sub

Deze specifieke macro extraheert de datumwaarde uit datums en tijden in het bereik A2:A7 en retourneert die datumwaarde in het overeenkomstige bereik van B2:B7 .

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

Voorbeeld: hoe u de DateValue-functie in VBA gebruikt

Stel dat we de volgende datum/tijd-kolom in Excel hebben:

Stel dat we de datum uit elke datetime in kolom A willen extraheren en deze in kolom B willen weergeven.

We kunnen hiervoor de volgende macro maken:

 Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = DateValue(Range(" A " & i))
Next i
    
End Sub

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

Kolom B toont de datumwaarde voor elke datetime in kolom A.

Bijvoorbeeld:

• De functie DateValue retourneert 01/01/2023 vanaf 01/01/2023 10:15:34
• De functie DateValue retourneert 01/03/2023 vanaf 01/03/2023 12:34:18 PM
• De functie DateValue retourneert 01/05/2023 vanaf 01/05/2023 8:23:00

Enzovoort.

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

Aanvullende bronnen

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

VBA: datums vergelijken
VBA: Hoe de maandnaam van de datum te krijgen
VBA: getal groter dan datum