Laika vērtība VBA ir iebūvēta funkcija, kas arī tiek klasificēta zem VBA datuma un laika funkcijas. Šī funkcija, kā norāda nosaukums, dod mums kā argumentu norādītās datuma skaitlisko vērtību, tas prasa vienu argumentu, kas ir datums un atgriež skaitlisko vērtību no argumenta.
Ko laika vērtības funkcija dara VBA?
Funkcija Laika vērtība programmā VBA Excel atgriež laika vērtības daļu no pilna datuma un laika. Datums un laiks programmā Excel tiek glabāti kā sērijas numuri. Sērijas numurs apzīmē DATE, un decimāldaļa norāda laiku. Izmantojot funkciju TimeValue, mēs varam iegūt tikai laika sērijas numuru, ti, decimāldaļu.
Funkcijas VBA TimeValue sintakse
Funkcijas VBA TimeValue sintakse ir šāda.
Kā mēs teicām, funkcija TimeValue atgriež norādītā datuma sērijas numura daļu, kas tiek saglabāta kā teksta vērtība. Laiks nav nekas cits kā faktiskais laiks, kad mēs meklējam sērijas numuru. Atcerieties, ka laika vērtību sērijas numuru var iegūt tikai no laika, kas tiek glabāts kā teksts, nevis kā LAIKS.
Funkcijas TimeValue piemēri ar Excel VBA
Tālāk ir sniegti funkcijas VBA TimeValue piemēri.
VBA TimeValue 1. piemērs
Tagad aplūkojiet vienkāršo funkcijas VBA TimeValue piemēru.
Kods:
Sub TIMEVALUE_Function_Example1 () 'Konvertējiet norādīto ievades virkni uz derīgu laiku un parādiet ekrānā' Mainīgā deklarācija Dim MyTime As Date 'Piešķirt laikam mainīgajam MyTime = TimeValue ("28-05-2019 16:50:45")' Displeja izvade ekrānā MsgBox "Pašreizējais laiks ir:" & MyTime, vbInformation, Funkcija "VBA TIMEVALUE"
Pirmkārt, mainīgo “MyTime” esmu deklarējis kā Datumu.
Aptumšot MyTime kā datumu
Tad es esmu piešķīris mainīgajam vērtību, izmantojot TimeValue.
MyTime = TimeValue ("28.05.2019. 16:50:45")
Tad ziņojumu lodziņā esmu piešķīris mainīgo rezultātu.
MsgBox "Piegādātais laiks ir:" & MyTime, vbInformation, "TIMEVALUE Function".
Ja es palaidu kodu, izmantojot F5 taustiņu vai manuāli, tad rezultātu mēs iegūsim šādi.
VBA TimeValue 2. piemērs
Attiecībā uz to pašu kodu es deklarēšu VBA mainīgo kā “Double”.
Kods:
Sub TIMEVALUE_Function_Example1 () 'Konvertējiet norādīto ievades virkni uz derīgu laiku un parādiet ekrānā' Mainīgā deklarācija Dim MyTime as Double 'Piešķirt laiku mainīgajam MyTime = TimeValue ("28-05-2019 16:50:45")' Displeja izvade ekrānā MsgBox "Pašreizējais laiks ir:" & MyTime, vbInformation, Funkcija "VBA TIMEVALUE"
Tagad, ja es palaidu VBA kodu manuāli vai nospiežot taustiņu F5, tas parādīs sērijas numuru laika 16:50:45.
Lai jūs labāk saprastu, vispirms es ievadīšu numurus, kurus VBA ziņojuma lodziņš piešķīra vienai no šūnām.
Tagad es piemērošu laika formātu, lai pārbaudītu precīzu rezultātu.
Pārvēršot to laika formātā, jūs varat redzēt precīzu laiku.
VBA TimeValue 3. piemērs
Tagad aplūkojiet zemāk minētos datus.
Mums ir dati un laiks kopā no šūnām A1 līdz A14. Otrajai kolonnai mums jāizņem tikai laika vērtība. Tā kā mums ir jāizstrādā vairāk nekā viena šūna, mums ir jāizmanto cilpas, lai visām šūnām veiktu vienādu uzdevumu kopumu.
Mums ir dati no 1. st šūnas līdz 14 th šūnu, tāpēc mūsu cilpa vajadzētu darboties 14 reizes. Mums ir jāizmanto FOR NEXT cilpa VBA, lai pieminētu apakšējo un augšējo robežu. Zemāk esošais kods ir jau uzrakstīts kods, lai iegūtu laika vērtību no datuma un laika kombinācijas.
Kods:
Sub TimeValue_Example3 () Dim k kā vesels skaitlis k = 1 līdz 14 šūnām (k, 2). Vērtība = TimeValue (šūnas (k, 1). Vērtība) Nākamais k Beigas Sub
Palaidot kodu, mēs iegūsim tādas vērtības kā zemāk.
Ja vēlaties redzēt laiku, tad tam lietojiet TIME formātu.
Tātad šādi darbojas funkcija LAIKA VĒRTĪBA VBA un Excel.
