Valoarea de timp în VBA este o funcție încorporată, care este, de asemenea, clasificată în funcția de dată și oră în VBA, această funcție, așa cum sugerează și numele, ne oferă valoarea numerică a datei furnizate ca argument, ia un singur argument care este data și returnează valoarea numerică din argument.
Ce face funcția Time Value în VBA?
Funcția Valoare de timp în VBA Excel returnează porțiunea de valoare de timp de la data și ora completă. Data și ora sunt stocate ca numere de serie în Excel. Numărul de serie reprezintă DATA, iar zecimalul reprezintă ora. Folosind funcția TimeValue, putem obține doar numărul de serie al timpului, adică numărul zecimal.
Sintaxa funcției VBA TimeValue
Sintaxa funcției VBA TimeValue, după cum urmează.
După cum am spus, funcția TimeValue returnează partea de număr de serie a datei date, care este stocată ca valoare text. Timpul nu este altceva decât timpul real pe care căutăm să obținem numărul de serie. Amintiți-vă, valoarea timpului poate obține numai numărul de serie din timp, care este stocat ca text, nu ca TIME.
Exemple de funcții TimeValue cu Excel VBA
Mai jos sunt exemplele funcției VBA TimeValue.
VBA TimeValue Exemplul # 1
Acum, uitați-vă la exemplul simplu al funcției VBA TimeValue.
Cod:
Sub TIMEVALUE_Function_Example1 () 'Convertiți șirul de intrare dat într-o oră validă și afișați pe ecran' Declarație variabilă Dim MyTime as Data 'Atribuiți timp unei variabile MyTime = TimeValue ("28-05-2019 16:50:45")' Afișați ieșirea pe ecran MsgBox "Ora curentă este:" & MyTime, vbInformation, "VBA TIMEVALUE Function" End Sub
În primul rând, am declarat variabila „MyTime” ca dată.
Dim MyTime ca dată
Apoi am atribuit valoarea variabilei aplicând TimeValue.
MyTime = TimeValue („28-05-2019 16:50:45”)
Apoi, în caseta de mesaje, am atribuit rezultatul variabilei.
MsgBox "Timpul furnizat este:" & MyTime, vbInformation, "TIMEVALUE Function".
Dacă rulez codul folosind tasta F5 sau manual, atunci vom obține rezultatul după cum urmează.
VBA TimeValue Exemplul nr. 2
Pentru același cod, voi declara variabila VBA ca „Dublă”.
Cod:
Sub TIMEVALUE_Function_Example1 () 'Convertiți șirul de intrare dat într-un timp valid și afișați pe ecran' Declarație variabilă Dim MyTime ca dublu 'Atribuiți timp unei variabile MyTime = TimeValue ("28-05-2019 16:50:45")' Afișați ieșirea pe ecran MsgBox "Ora curentă este:" & MyTime, vbInformation, "VBA TIMEVALUE Function" End Sub
Acum, dacă rulez codul VBA manual sau apăsând tasta F5, acesta va afișa numărul de serie o parte din timp 16:50:45.
Pentru o mai bună înțelegere, voi introduce mai întâi numerele date de caseta de mesaj VBA la una dintre celule.
Acum voi aplica formatul orei pentru a verifica rezultatul exact.
Când îl convertiți într-un format de oră, puteți vedea ora exactă.
VBA TimeValue Exemplul nr. 3
Acum, uitați-vă la datele de mai jos.
Avem date și timp împreună de la celule A1 la A14. Pentru a doua coloană, trebuie să extragem doar valoarea timpului. Deoarece avem mai multe celule cu care să ne ocupăm, trebuie să folosim bucle pentru a efectua același set de sarcini pentru toate celulele.
Avem date de la prima celulă la cea de-a 14- a celulă, deci bucla noastră ar trebui să ruleze de 14 ori. Trebuie să folosim bucla FOR NEXT în VBA pentru a menționa limita inferioară și limita superioară. Codul de mai jos este codul deja scris pentru a extrage valoarea orei din combinația de dată și oră.
Cod:
Sub TimeValue_Example3 () Dim k Întreg pentru k = 1 până la 14 celule (k, 2). Valoare = TimeValue (Celule (k, 1). Valoare) Următorul k End Sub
Când rulăm codul, vom obține valorile de mai jos.
Dacă doriți să vedeți ora, aplicați formatul TIME.
Deci, așa funcționează funcția TIME VALUE în VBA și Excel.
