seychellesartprojects.org

Č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. Desetinné čí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 sériové číslo pouze z času, který je uložen jako text, ne jako ČAS.

Příklady funkce TimeValue s Excel VBA

Níže jsou uvedeny příklady funkce VBA TimeValue.

Tuto šablonu funkce VBA TimeValue si můžete stáhnout zde - Šablona 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 

První věc, kterou 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 VBA TimeValue # 2

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í se část sériového čísla času 16:50:45.

Pro lepší pochopení nejprve zadám do jedné z buněk čísla daná zprávou VBA.

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 od 1. buňky do 14. buňky, takže naše smyčka by měla běžet 14krá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.