Tidsværdi i VBA er en indbygget funktion, som også er kategoriseret under dato- og tidsfunktionen i VBA, denne funktion som navnet antyder giver os den numeriske værdi af den dato, der er angivet som et argument, det tager et enkelt argument, som er datoen og returnerer den numeriske værdi fra argumentet.
Hvad gør tidsværdifunktion i VBA?
Funktionen Time Value i VBA Excel returnerer tidsværdien fra den fulde dato og tid. Dato og klokkeslæt gemmes som serienumre i Excel. Serienummeret repræsenterer DATOEN, og decimalen repræsenterer tiden. Ved hjælp af TimeValue-funktionen kan vi kun få tidsserienummeret, dvs. decimaltal.
Syntaks for VBA TimeValue-funktion
Syntaksen for VBA TimeValue-funktionen fungerer som følger.
Som vi sagde, returnerer TimeValue-funktionen serienummerdelen af den givne dato, som er gemt som en tekstværdi. Tid er intet andet end det faktiske tidspunkt, vi ser efter for at få serienummeret. Husk, tidsværdi kan kun hente serienummeret fra det tidspunkt, der er gemt som tekst, ikke som TID.
Eksempler på TimeValue-funktion med Excel VBA
Nedenfor er eksemplerne på VBA TimeValue-funktionen.
VBA TimeValue eksempel # 1
Se nu på det enkle eksempel på VBA TimeValue-funktionen.
Kode:
Sub TIMEVALUE_Function_Example1 () 'Konverter den givne inputstreng til et gyldigt tidspunkt og vises på skærmen' Variabel erklæring Dim MyTime som dato 'Tildel tid til en variabel MyTime = TimeValue ("28-05-2019 16:50:45")' Vis output på skærmen MsgBox "Aktuel tid er:" & MyTime, vbInformation, "VBA TIMEVALUE Funktion" End Sub
Først og fremmest har jeg erklæret variablen “MyTime” som dato.
Dæmp MyTime som dato
Så har jeg tildelt værdien til variablen ved at anvende TimeValue.
MyTime = TimeValue ("28-05-2019 16:50:45")
Så i meddelelsesboksen har jeg tildelt variabelresultatet.
MsgBox "Leveret tid er:" & MyTime, vbInformation, "TIMEVALUE-funktion".
Hvis jeg kører koden ved hjælp af F5-tasten eller manuelt, får vi resultatet som følger.
VBA TimeValue-eksempel # 2
For den samme kode erklærer jeg VBA-variablen som "Dobbelt".
Kode:
Sub TIMEVALUE_Function_Example1 () 'Konverter den givne inputstreng til et gyldigt tidspunkt og vises på skærmen' Variabel erklæring Dim MyTime som dobbelt 'Tildel tid til en variabel MyTime = TimeValue ("28-05-2019 16:50:45")' Display output på skærmen MsgBox "Aktuel tid er:" & MyTime, vbInformation, "VBA TIMEVALUE Funktion" End Sub
Hvis jeg nu kører VBA-koden manuelt eller ved at trykke på F5-tasten, vises serienummeret del af tiden 16:50:45.
For din bedre forståelse indtaster jeg først de numre, der er angivet i VBA-meddelelsesboksen til en af cellerne.
Nu vil jeg anvende tidsformatet for at kontrollere det nøjagtige resultat.
Når du konverterer det til et tidsformat, kan du se det nøjagtige tidspunkt.
VBA TimeValue-eksempel # 3
Se nu på nedenstående data.
Vi har data og tid sammen fra A1 til A14 celler. I den anden kolonne skal vi kun udtrække tidsværdien. Da vi har mere end en celle at håndtere, er vi nødt til at anvende sløjfer til at udføre det samme sæt opgaver for alle cellerne.
Vi har data fra en st celle til 14 th celle, så vores løkke bør køre i 14 gange. Vi skal bruge FOR NEXT loop i VBA for at nævne den nedre grænse og øvre grænse. Nedenstående kode er den allerede skrevne kode for at udtrække tidsværdi fra kombinationen dato og tid.
Kode:
Sub TimeValue_Example3 () Dim k som heltal For k = 1 til 14 celler (k, 2). Value = TimeValue (Cells (k, 1). Value) Next k End Sub
Når vi kører koden, får vi værdierne som nedenfor.
Hvis du ønsker at se klokkeslættet, skal du anvende TIME-format på det.
Så det er sådan, TIME VALUE-funktionen fungerer i VBA & Excel.
