Hoe de tijdwaardefunctie in vba te gebruiken (met voorbeeld)

U kunt de functie TimeValue in VBA gebruiken om de tijdswaarde van een bepaalde tekenreeks te retourneren.

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

 Sub GetTimeValue()
    
Dim i As Integer

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

Deze specifieke macro extraheert de tijdswaarde van datums en tijden in het bereik A2:A7 en retourneert die tijdswaarde 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 TimeValue-functie in VBA gebruikt

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

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

We kunnen hiervoor de volgende macro maken:

 Sub GetTimeValue()
    
Dim i As Integer

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

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

Kolom B toont de tijdwaarde voor elke datum/tijd in kolom A.

Bijvoorbeeld:

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

Enzovoort.

Opmerking : u kunt hier de volledige documentatie van de TimeValue- 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
Een tijdstempel invoegen met VBA
Hoe tijd te formatteren in VBA