Laiko reikšmė VBA yra integruota funkcija, kuri taip pat skirstoma pagal VBA datos ir laiko funkciją. Ši funkcija, kaip rodo pavadinimas, suteikia mums skaitinę dienos, nurodytos kaip argumentas, vertę, reikia vieno argumento, kuris yra data ir pateikia argumento skaitinę vertę.
Ką laiko vertės funkcija veikia VBA?
„VBA Excel“ funkcija „Laiko vertė“ grąžina laiko vertės dalį nuo visos datos ir laiko. Data ir laikas „Excel“ saugomi kaip serijos numeriai. Serijos numeris reiškia DATĄ, o dešimtainis - laiką. Naudodami „TimeValue“ funkciją galime gauti tik laiko eilės numerį, ty dešimtainį skaičių.
Funkcijos VBA „TimeValue“ sintaksė
Funkcijos VBA „TimeValue“ sintaksė yra tokia.
Kaip sakėme, funkcija „TimeValue“ grąžina nurodytos datos serijos numerio dalį, kuri saugoma kaip teksto reikšmė. Laikas yra ne kas kita, o tikrasis laikas, kurio mes norime gauti serijos numeriui. Atminkite, kad laiko vertė gali gauti serijos numerį tik iš laiko, kuris saugomas kaip tekstas, o ne kaip LAIKAS.
„TimeValue“ funkcijos su „Excel VBA“ pavyzdžiai
Žemiau pateikiami funkcijos „VBA TimeValue“ pavyzdžiai.
1 VBA „TimeValue“ pavyzdys
Dabar pažvelkite į paprastą „VBA TimeValue“ funkcijos pavyzdį.
Kodas:
Sub TIMEVALUE_Function_Example1 () 'Konvertuokite pateiktą įvesties eilutę į tinkamą laiką ir rodykite ekrane' Kintama deklaracija Dim MyTime As Date 'Priskirkite laiką kintamajam MyTime = TimeValue ("2019-05-28 16:50:45") " Rodyti ekrano išvestį „MsgBox“ „Dabartinis laikas yra:“ ir „MyTime“, „vbInformation“, „Funkcija VBA TIMEVALUE“ Pabaiga
Pirmas dalykas, kintamąjį „MyTime“ paskelbiau data.
Blankus „MyTime“ kaip data
Tada priskyriau kintamojo vertę pritaikydamas „TimeValue“.
„MyTime“ = TimeValue („2019-05-28 16:50:45“)
Tada pranešimų laukelyje priskyriau kintamąjį rezultatą.
MsgBox „Tiekiamas laikas yra:“ & MyTime, vbInformation, „TIMEVALUE Function“.
Jei paleidžiu kodą naudodamas F5 klavišą arba rankiniu būdu, rezultatą gausime taip.
2 VBA „TimeValue“ pavyzdys
Tą patį kodą deklaruosiu VBA kintamąjį kaip „Dvigubą“.
Kodas:
Sub TIMEVALUE_Function_Example1 () 'Konvertuokite pateiktą įvesties eilutę į tinkamą laiką ir rodykite ekrane' Kintama deklaracija Dim MyTime kaip dviguba 'Priskirkite laiką kintamajam MyTime = TimeValue ("2019-05-28 16:50:45")' Rodyti ekrano išvestį „MsgBox“ „Dabartinis laikas yra:“ ir „MyTime“, „vbInformation“, „Funkcija VBA TIMEVALUE“ Pabaiga
Dabar, jei VBA kodą paleisiu rankiniu būdu arba paspaudus klavišą F5, jame bus rodomas serijos numeris 16:50:45.
Kad geriau suprastumėte, pirmiausia įvesiu skaičius, kuriuos VBA pranešimo laukelyje nurodė viena iš langelių.
Dabar pritaikysiu laiko formatą, kad patikrinčiau tikslų rezultatą.
Konvertuodami jį į laiko formatą, galite pamatyti tikslų laiką.
3 VBA „TimeValue“ pavyzdys
Dabar pažvelkite į toliau pateiktus duomenis.
Mes turime duomenis ir laiką kartu nuo A1 iki A14 langelių. Antram stulpeliui turime išskirti tik laiko vertę. Kadangi mes turime daugiau nei vieną langelį, kurį turime spręsti, turime naudoti kilpas, kad atliktume tą patį užduočių rinkinį visoms ląstelėms.
Turime duomenų nuo 1 -osios iki 14 -osios ląstelės, todėl mūsų ciklas turėtų veikti 14 kartų. Norėdami paminėti apatinę ir viršutinę ribas, turime naudoti FOR NEXT kilpą VBA. Žemiau pateiktas kodas yra jau parašytas kodas, skirtas išgauti laiko vertę iš datos ir laiko derinio.
Kodas:
Sub TimeValue_Example3 () Dim k kaip sveikoji k = 1–14 langelių (k, 2). Vertė = TimeValue (ląstelės (k, 1). Vertė) Kitas k End Sub
Paleidę kodą gausime tokias vertes kaip toliau.
Jei norite pamatyti laiką, tada pritaikykite jam TIME formatą.
Taigi, taip veikia funkcija LAIKO VERTĖ VBA ir „Excel“.
