Časová hodnota vo VBA je zabudovaná funkcia, ktorá je tiež kategorizovaná pod funkciu dátumu a času vo VBA, táto funkcia, ako naznačuje názov, nám poskytuje číselnú hodnotu dátumu poskytnutého ako argument, vyžaduje jediný argument, ktorým je dátum a vráti číselnú hodnotu z argumentu.
Čo robí funkcia časovej hodnoty vo VBA?
Funkcia Časová hodnota vo VBA Excel vráti časť časovej hodnoty od celého dátumu a času. Dátum a čas sú v programe Excel uložené ako sériové čísla. Sériové číslo predstavuje DÁTUM a desatinné číslo predstavuje čas. Pomocou funkcie TimeValue môžeme získať iba časové poradové číslo, tj. Desatinné číslo.
Syntax funkcie VBA TimeValue
Syntax funkcie VBA TimeValue je nasledovná.
Ako sme už povedali, funkcia TimeValue vráti časť so sériovým číslom daného dátumu, ktorá je uložená ako textová hodnota. Čas nie je nič iné ako skutočný čas, ktorý hľadáme pre získanie sériového čísla. Pamätajte, že hodnota času môže získať iba sériové číslo z času, ktorý je uložený ako text, nie ako ČAS.
Príklady funkcie TimeValue v programe Excel VBA
Ďalej uvádzame príklady funkcie VBA TimeValue.
Príklad VBA TimeValue # 1
Teraz sa pozrite na jednoduchý príklad funkcie VBA TimeValue.
Kód:
Sub TIMEVALUE_Function_Example1 () 'Prevod zadaného reťazca na platný čas a zobrazenie na obrazovke' Deklarácia premennej Dim MyTime ako dátum 'Priradenie času premennej MyTime = TimeValue ("28-05-2019 16:50:45")' Zobraziť výstup na obrazovke MsgBox „Aktuálny čas je:“ & MyTime, vbInformation, „Funkcia VBA TIMEVALUE“ End Sub
Najprv som premennú „MyTime“ deklaroval ako Date.
Dim MyTime As Date
Potom som premennej priradil hodnotu použitím TimeValue.
MyTime = TimeValue ("28-05-2019 16:50:45")
Potom som do schránky so správami priradil výsledok premennej.
MsgBox „Dodaný čas je:“ & MyTime, vbInformation, „Funkcia TIMEVALUE“.
Ak spustím kód pomocou klávesu F5 alebo manuálne, dostaneme výsledok nasledovne.
Príklad č. 2 VBA TimeValue
Pre ten istý kód vyhlásim premennú VBA ako „dvojitú“.
Kód:
Sub TIMEVALUE_Function_Example1 () 'Prevod zadaného reťazca na platný čas a zobrazenie na obrazovke' Deklarácia premennej Dim MyTime As Double 'Priradenie času premennej MyTime = TimeValue ("28-05-2019 16:50:45")' Zobraziť výstup na obrazovke MsgBox „Aktuálny čas je:“ & MyTime, vbInformation, „Funkcia VBA TIMEVALUE“ End Sub
Teraz, ak spustím kód VBA ručne alebo stlačením klávesu F5, zobrazí sa sériové číslo časti času 16:50:45.
Pre vaše lepšie pochopenie najskôr zadám do jednej z buniek čísla dané v schránke správ VBA.
Teraz použijem formát času na kontrolu presného výsledku.
Keď ho prevediete do formátu času, uvidíte presný čas.
Príklad č. 3 VBA TimeValue
Teraz sa pozrite na nižšie uvedené údaje.
Máme spolu údaje a čas od buniek A1 po A14. Pre druhý stĺpec musíme extrahovať iba časovú hodnotu. Pretože máme na starosti viac ako jednu bunku, musíme na vykonanie rovnakej sady úloh pre všetky bunky použiť slučky.
Máme dáta z 1. st bunky až 14 th buniek, takže naše slučka by mal bežať po dobu 14 krát. Musíme spomenúť slučku FOR NEXT vo VBA, aby sme spomenuli dolnú a hornú hranicu. Kód uvedený nižšie je už napísaný kód na extrahovanie časovej hodnoty z kombinácie dátumu a času.
Kód:
Sub TimeValue_Example3 () Dim k As Integer For k = 1 až 14 buniek (k, 2). Hodnota = TimeValue (bunky (k, 1) .Hodnota) Ďalej k Koniec Sub
Keď spustíme kód, dostaneme hodnoty ako nižšie.
Ak chcete vidieť čas, použite naň formát TIME.
Takto teda funguje funkcia TIME VALUE vo VBA a Exceli.
