Tijdwaarde in VBA is een ingebouwde functie die ook is gecategoriseerd onder de datum- en tijdfunctie in VBA, deze functie, zoals de naam doet vermoeden, geeft ons de numerieke waarde van de datum die als argument is opgegeven, er is een enkel argument nodig dat de datum is en geeft de numerieke waarde uit het argument terug.
Wat doet de functie Time Value in VBA?
De tijdwaardefunctie in VBA Excel retourneert het tijdwaardedeel van de volledige datum en tijd. Datum en tijd worden in Excel opgeslagen als serienummers. Het serienummer vertegenwoordigt de DATUM en het decimaal geeft de tijd weer. Met behulp van de functie TimeValue kunnen we alleen het serienummer van de tijd krijgen, dwz het decimale getal.
Syntaxis van VBA TimeValue-functie
De syntaxis van de VBA TimeValue-functie als volgt.
Zoals we al zeiden, retourneert de functie TimeValue het serienummergedeelte van de opgegeven datum, dat wordt opgeslagen als een tekstwaarde. Tijd is niets anders dan de werkelijke tijd waarop we het serienummer zoeken. Onthoud dat Time Value alleen het serienummer van de tijd kan krijgen, die als tekst wordt opgeslagen, niet als TIME.
Voorbeelden van TimeValue-functie met Excel VBA
Hieronder staan de voorbeelden van de VBA TimeValue-functie.
VBA TimeValue Voorbeeld # 1
Bekijk nu het eenvoudige voorbeeld van de VBA TimeValue-functie.
Code:
Sub TIMEVALUE_Function_Example1 () 'Converteer de gegeven invoerstring naar een geldige tijd en toon op het scherm' Variabele declaratie Dim MyTime As Date 'Wijs tijd toe aan een variabele MyTime = TimeValue ("28-05-2019 16:50:45")' Weergave op het scherm MsgBox "Huidige tijd is:" & MyTime, vbInformation, "VBA TIMEVALUE Function" End Sub
Allereerst heb ik de variabele "MyTime" gedeclareerd als Date.
Dim MyTime als datum
Vervolgens heb ik de waarde aan de variabele toegewezen door TimeValue toe te passen.
MyTime = TimeValue ("28-05-2019 16:50:45")
Vervolgens heb ik in het berichtvenster het variabele resultaat toegewezen.
MsgBox "Geleverde tijd is:" & MyTime, vbInformation, "TIMEVALUE Function".
Als ik de code uitvoer met de F5-toets of handmatig, krijgen we het resultaat als volgt.
VBA TimeValue Voorbeeld # 2
Voor dezelfde code zal ik de VBA-variabele declareren als 'Dubbel'.
Code:
Sub TIMEVALUE_Function_Example1 () 'Converteer de gegeven invoerstring naar een geldige tijd en toon op het scherm' Variabele declaratie Dim MyTime As Double 'Wijs tijd toe aan een variabele MyTime = TimeValue ("28-05-2019 16:50:45")' Weergave op het scherm MsgBox "Huidige tijd is:" & MyTime, vbInformation, "VBA TIMEVALUE Function" End Sub
Als ik de VBA-code nu handmatig uitvoer of door op de F5-toets te drukken, wordt het serienummer van de tijd 16:50:45 weergegeven.
Voor een beter begrip zal ik eerst de cijfers invoeren die door het VBA-berichtvenster aan een van de cellen zijn gegeven.
Nu zal ik het tijdformaat toepassen om het exacte resultaat te controleren.
When you convert it into a time format, you can see the exact time.
VBA TimeValue Example #3
Now, look at the below data.
We have data and time together from A1 to A14 cells. For the second column, we need to extract only the time value. Since we have more than one cell to deal with, we need to employ loops to perform the same set of tasks for all the cells.
We have data from 1st cell to 14th cell, so our loop should run for 14 times. We need to use FOR NEXT loop in VBA to mention the lower limit and upper limit. The Below code is the already written code to extract time value from the date & time combination.
Code:
Sub TimeValue_Example3() Dim k As Integer For k = 1 To 14 Cells(k, 2).Value = TimeValue(Cells(k, 1).Value) Next k End Sub
When we run the code, we will get the values like below.
Als u de tijd wilt zien, past u het TIME-formaat erop toe.
Dit is dus hoe de functie TIJDWAARDE werkt in VBA en Excel.
