Vrijednost vremena u VBA-u je ugrađena funkcija koja je također kategorizirana pod funkcijom datuma i vremena u VBA-u. Ova funkcija, kao što naziv sugerira, daje nam numeričku vrijednost datuma navedenog kao argument, uzima jedan argument koji je datum i vraća numeričku vrijednost iz argumenta.
Što funkcija Vrijednost vrijedi u VBA?
Funkcija vrijednosti vremena u VBA Excelu vraća dio vrijednosti vremena s punog datuma i vremena. Datum i vrijeme pohranjuju se kao serijski brojevi u Excelu. Serijski broj predstavlja DATUM, a decimalni vrijeme. Pomoću funkcije TimeValue možemo dobiti samo vremenski serijski broj, tj. Decimalni broj.
Sintaksa funkcije VBA TimeValue
Sintaksa funkcije VBA TimeValue kako slijedi.
Kao što smo rekli, funkcija TimeValue vraća dio serijskog broja datog datuma, koji je pohranjen kao tekstualna vrijednost. Vrijeme nije ništa drugo nego stvarno vrijeme kada želimo dobiti serijski broj. Zapamtite, Time Value može dobiti serijski broj samo iz vremena koje je pohranjeno kao tekst, a ne kao VRIJEME.
Primjeri funkcije TimeValue s programom Excel VBA
Ispod su primjeri funkcije VBA TimeValue.
Primjer VBA vremenske vrijednosti # 1
Sada pogledajte jednostavni primjer funkcije VBA TimeValue.
Kodirati:
Sub TIMEVALUE_Function_Example1 () 'Pretvori zadani ulazni niz u valjano vrijeme i prikaži na ekranu' Deklaracija varijable Dim MyTime As Date 'Dodijeli vrijeme varijabli MyTime = TimeValue ("28-05-2019 16:50:45")' Prikazati izlaz na zaslonu MsgBox "Trenutno vrijeme je:" & MyTime, vbInformation, "VBA TIMEVALUE funkcija" Kraj Sub
Prvo, promjenljivu "MyTime" proglasio sam datumom.
Zatamni MyTime kao datum
Tada sam varijabli dodijelio vrijednost primjenom TimeValue.
MyTime = TimeValue ("28-05-2019 16:50:45")
Tada sam u okviru za poruke dodijelio varijablu rezultat.
MsgBox "Isporučeno vrijeme je:" & MyTime, vbInformation, "TIMEVALUE funkcija".
Ako kôd pokrenem pomoću tipke F5 ili ručno, rezultat ćemo dobiti na sljedeći način.
Primjer VBA vremenske vrijednosti # 2
Za isti kod proglasit ću VBA varijablu kao "Double".
Kodirati:
Sub TIMEVALUE_Function_Example1 () 'Pretvori zadani ulazni niz u valjano vrijeme i prikaži na ekranu' Deklaracija varijable Dim MyTime As Double 'Dodijeli vrijeme varijabli MyTime = TimeValue ("28-05-2019 16:50:45")' Prikazati izlaz na zaslonu MsgBox "Trenutno vrijeme je:" & MyTime, vbInformation, "VBA TIMEVALUE funkcija" Kraj Sub
Sada, ako VBA kôd pokrenem ručno ili pritiskom na tipku F5, prikazat će serijski broj dijela vremena 16:50:45.
Za vaše bolje razumijevanje prvo ću unijeti brojeve dane u VBA okviru za poruke u jednu od ćelija.
Sada ću primijeniti format vremena kako bih provjerio točan rezultat.
Kada ga pretvorite u vremenski format, možete vidjeti točno vrijeme.
Primjer VBA vremenske vrijednosti # 3
Sada pogledajte podatke u nastavku.
Imamo podatke i vrijeme zajedno od stanica A1 do A14. Za drugi stupac moramo izdvojiti samo vremensku vrijednost. Budući da imamo više od jedne ćelije s kojom moramo izaći na kraj, trebamo upotrijebiti petlje da bismo izvršili isti skup zadataka za sve stanice.
Imamo podatke iz 1. st ćeliji do 14 -og stanica, tako da naš petlja trebao raditi za 14 puta. Moramo koristiti FOR NEXT petlju u VBA da bismo spomenuli donju i gornju granicu. Ispod koda je već napisani kôd za izdvajanje vrijednosti vremena iz kombinacije datuma i vremena.
Kodirati:
Sub TimeValue_Example3 () Dim k kao cjelovito za k = 1 do 14 ćelija (k, 2) .Value = TimeValue (ćelije (k, 1) .Value) Sljedeće k Kraj Sub
Kada pokrenemo kod, dobit ćemo vrijednosti kao u nastavku.
Ako želite vidjeti vrijeme, primijenite TIME format na njega.
Dakle, tako funkcionira funkcija VRIJEME VRIJEDNOSTI u VBA i Excelu.
