Časovna vrednost v VBA je vgrajena funkcija, ki je prav tako razvrščena pod funkcijo datuma in časa v VBA; ta funkcija, kot že ime pove, nam daje numerično vrednost datuma, ki je naveden kot argument, vzame en argument, ki je datum in vrne številčno vrednost iz argumenta.
Kaj v VBA deluje funkcija časovne vrednosti?
Funkcija časovne vrednosti v programu VBA Excel vrne del časovne vrednosti s celotnega datuma in časa. Datum in čas sta v Excelu shranjena kot serijska številka. Serijska številka predstavlja DATUM, decimalna pa čas. S funkcijo TimeValue lahko dobimo le časovno zaporedno številko, tj. Decimalno število.
Sintaksa funkcije VBA TimeValue
Sintaksa funkcije VBA TimeValue je naslednja.
Kot smo že rekli, funkcija TimeValue vrne del serijske številke danega datuma, ki je shranjen kot besedilna vrednost. Čas ni nič drugega kot dejanski čas, ko iščemo serijsko številko. Ne pozabite, da lahko Time Value dobi serijsko številko samo iz časa, ki je shranjen kot besedilo, ne pa kot TIME.
Primeri funkcije TimeValue z Excelovim VBA
Spodaj so primeri funkcije VBA TimeValue.
Primer VBA TimeValue št. 1
Zdaj pa poglejte preprost primer funkcije VBA TimeValue.
Koda:
Sub TIMEVALUE_Function_Example1 () 'Pretvori dani vhodni niz v veljaven čas in na zaslonu prikaži' Izjava spremenljivke Dim MyTime As Date 'Določi čas spremenljivki MyTime = TimeValue ("28-05-2019 16:50:45")' Prikaz izhoda na zaslonu MsgBox "Current Time is:" & MyTime, vbInformation, "VBA TIMEVALUE Function" End Sub
Najprej sem spremenljivko »MyTime« razglasil za datum.
Zatemni MyTime kot datum
Nato sem spremenljivki dodelil vrednost z uporabo TimeValue.
MyTime = TimeValue ("28-05-2019 16:50:45")
Nato sem v okence za sporočila dodelil spremenljivko rezultat.
MsgBox "Priloženi čas je:" & MyTime, vbInformation, "TIMEVALUE funkcija".
Če zaženem kodo s tipko F5 ali ročno, bomo rezultat dobili, kot sledi.
VBA TimeValue Primer št. 2
Za isto kodo bom spremenljivko VBA razglasil kot »Double«.
Koda:
Sub TIMEVALUE_Function_Example1 () 'Pretvori dani vhodni niz v veljaven čas in na zaslonu prikaži' Izjava spremenljivke Dim MyTime As Double 'Določi čas spremenljivki MyTime = TimeValue ("28-05-2019 16:50:45")' Prikaz izhoda na zaslonu MsgBox "Current Time is:" & MyTime, vbInformation, "VBA TIMEVALUE Function" End Sub
Zdaj, če zaženem kodo VBA ročno ali s pritiskom na tipko F5, bo del časa prikazal serijsko številko 16:50:45.
Za boljše razumevanje najprej vnesem številke, ki jih v polje za sporočila VBA vpišem v eno od celic.
Zdaj bom uporabil časovno obliko za preverjanje natančnega rezultata.
Ko ga pretvorite v časovno obliko, lahko vidite natančen čas.
VBA TimeValue Primer št. 3
Zdaj si oglejte spodnje podatke.
Skupaj imamo podatke in čas od celic A1 do A14. Za drugi stolpec moramo izluščiti samo časovno vrednost. Ker imamo več celic za obravnavo, moramo uporabiti zanke za izvajanje enakega nabora nalog za vse celice.
Imamo podatke iz 1. st celice do 14 th celic, tako da bi naša zanka teči 14-krat. Za omembo spodnje in zgornje meje moramo uporabiti zanko FOR NEXT v VBA. Spodnja koda je že napisana koda za pridobivanje časovne vrednosti iz kombinacije datuma in časa.
Koda:
Sub TimeValue_Example3 () Dim k kot celo število za k = 1 do 14 celic (k, 2) .Value = TimeValue (Celice (k, 1) .Value) Naslednji k End Sub
Ko zaženemo kodo, bomo dobili vrednosti, kot so spodaj.
Če želite videti čas, uporabite zanj format TIME.
Torej, tako deluje funkcija ČASOVNA VREDNOST v VBA in Excelu.
