Časová hodnota ve VBA je vestavěná funkce, která je také kategorizována pod funkci data a času ve VBA, tato funkce, jak název napovídá, nám dává číselnou hodnotu data poskytnutého jako argument, trvá jediný argument, kterým je datum a vrací číselnou hodnotu z argumentu.
Co dělá funkce časové hodnoty ve VBA?
Funkce Time Value ve VBA Excel vrací část hodnoty času od celého data a času. Datum a čas jsou uloženy jako pořadová čísla v aplikaci Excel. Sériové číslo představuje DATUM a desetinné číslo představuje čas. Pomocí funkce TimeValue můžeme získat pouze časové pořadové číslo, tj. Desítkové číslo.
Syntaxe funkce VBA TimeValue
Syntaxe funkce VBA TimeValue následujícím způsobem.
Jak jsme řekli, funkce TimeValue vrací část sériového čísla daného data, která je uložena jako textová hodnota. Čas není nic jiného než skutečný čas, který hledáme pro získání sériového čísla. Pamatujte, že hodnota času může získat pouze sériové číslo z času, který je uložen jako text, ne jako TIME.
Příklady funkce TimeValue s Excel VBA
Níže jsou uvedeny příklady funkce VBA TimeValue.
Příklad VBA TimeValue # 1
Nyní se podívejte na jednoduchý příklad funkce VBA TimeValue.
Kód:
Sub TIMEVALUE_Function_Example1 () 'Převést daný vstupní řetězec na platný čas a zobrazit na obrazovce' Deklarace proměnné Dim MyTime jako datum 'Přiřadit čas proměnné MyTime = TimeValue ("28-05-2019 16:50:45")' Zobrazit výstup na obrazovce MsgBox „Aktuální čas je:“ & MyTime, vbInformation, „Funkce VBA TIMEVALUE“ End Sub
Nejprve jsem deklaroval proměnnou „MyTime“ jako Date.
Dim MyTime jako datum
Poté jsem proměnné přiřadil hodnotu pomocí TimeValue.
MyTime = TimeValue ("28-05-2019 16:50:45")
Pak jsem v okně se zprávou přiřadil výsledek proměnné.
MsgBox "Dodaný čas je:" & MyTime, vbInformation, "Funkce TIMEVALUE".
Pokud spustím kód pomocí klávesy F5 nebo ručně, dostaneme výsledek následujícím způsobem.
Příklad č. 2 VBA TimeValue
U stejného kódu prohlásím proměnnou VBA jako „Double“.
Kód:
Sub TIMEVALUE_Function_Example1 () 'Převést zadaný vstupní řetězec na platný čas a zobrazit na obrazovce' Proměnná deklarace Dim MyTime As Double 'Přiřadit čas proměnné MyTime = TimeValue ("28-05-2019 16:50:45")' Zobrazit výstup na obrazovce MsgBox „Aktuální čas je:“ & MyTime, vbInformation, „Funkce VBA TIMEVALUE“ End Sub
Nyní, když spustím kód VBA ručně nebo stisknutím klávesy F5, zobrazí část sériového čísla času 16:50:45.
Pro vaše lepší pochopení nejprve zadám čísla daná zprávou VBA do jedné z buněk.
Nyní použiji formát času ke kontrole přesného výsledku.
Když jej převedete do formátu času, uvidíte přesný čas.
Příklad VBA TimeValue # 3
Nyní se podívejte na níže uvedená data.
Máme data a čas společně od buněk A1 do A14. U druhého sloupce musíme extrahovat pouze časovou hodnotu. Vzhledem k tomu, že máme k dispozici více než jednu buňku, musíme použít smyčky k provedení stejné sady úkolů pro všechny buňky.
Máme data z 1. st buňky až 14 th buněk, takže naše smyčka by měl běžet po dobu 14 krát. Musíme použít smyčku FOR NEXT ve VBA, abychom zmínili dolní a horní hranici. Níže uvedený kód je již napsaný kód pro extrahování časové hodnoty z kombinace data a času.
Kód:
Sub TimeValue_Example3 () Dim k As Integer For k = 1 To 14 Cells (k, 2). Value = TimeValue (Cells (k, 1) .Value) Next k End Sub
Když spustíme kód, dostaneme hodnoty jako níže.
Chcete-li zobrazit čas, použijte na něj formát TIME.
Takto tedy funguje funkce TIME VALUE ve VBA a Excel.
