seychellesartprojects.org

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ā 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?

Laika vērtības funkcija 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, bet decimālais - 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.

Šo VBA TimeValue funkciju veidni varat lejupielādēt šeit - VBA TimeValue funkciju veidne

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 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 pasludinājis par 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ņā es esmu piešķīris mainīgo rezultātu.

MsgBox "Piegādātais laiks ir:" & MyTime, vbInformation, "TIMEVALUE Function".

Ja es palaidīšu kodu, izmantojot F5 atslēgu vai manuāli, rezultātu mēs iegūsim šādi.

VBA TimeValue 2. piemērs

Par 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 F5 taustiņu, 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ņš ir devis 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ārisina 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. šūnas līdz 14. šūnai, tāpēc mūsu ciklam 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, lietojiet tam TIME formātu.

Tātad šādi darbojas funkcija LAIKA VĒRTĪBA VBA un Excel.