VBA teraz (podrobný sprievodca) - Ako teraz používať funkciu v programe Excel VBA?

Obsah

Funkcia Excel VBA Now

Funkcia Excel VBA Now

TERAZ je funkcia dátumu a času v obidvoch VBA, ktorá sa používa na získanie aktuálneho systémového dátumu a času, rovnako ako funkcia pracovného hárka, ktorá v nej neberie žiadne argumenty, vo VBA teraz funkcia tiež neberie žiadne argumenty, návratový výstup pre túto funkciu je dátum.

Funkcia VBA NOW je podobná funkcii vo funkcii listu programu Excel. Rovnako ako funkcia DATE vo VBA, aj „NOW“ nemá parametre, ktoré by bolo treba odovzdať. Potrebujeme iba odovzdať funkciu s uzavretou zátvorkou alebo tiež bez zátvoriek. Pomocou funkcie DATE vo VBA môžeme vygenerovať aktuálny dátum ako ukazujúci systém, na ktorom pracujeme. Videl som však situácie, keď potrebujeme aktuálny čas aj s dátumom. V programe Excel môžeme robiť mnoho druhov vecí; podobne môžeme vygenerovať aktuálny dátum a čas jednoduchou funkciou s názvom NOW in Excel.

Vzorec VBA NOW je jednoduchý.

TERAZ ()

Príklad funkcie NOW v programe VBA Excel

Pozrite sa na jednoduchý príklad funkcie NOW vo VBA. Podľa nasledujúcich pokynov napíšete kód VBA a budete mať teraz dostatok vedomostí aj o písaní kódu.

Krok 1: Začnite podproces zadaním názvu makra.

Kód:

Sub Now_Example1 () End Sub

Krok 2: Deklarujte premennú ako „Dátum“. Dôvod, prečo musíme deklarovať premennú ako „Dátum“, pretože náš konečný výsledok je vo formáte Dátum a čas.

Kód:

Sub Now_Example1 () Dim k As Date End Sub

Krok 3: Priraďte hodnotu premennej „k“ pomocou funkcie VBA NOW.

Kód:

Sub Now_Example1 () Dim k As Date k = Now End Sub

Krok 4: Teraz ukážte hodnotu funkcie TERAZ, ktorú sme priradili premennej „k“ v schránke správ vo VBA.

Kód:

Sub Now_Example1 () Dim k As Date k = Now MsgBox k End Sub

Dobre, skončili sme.

Spustite kód pomocou klávesu F5 alebo ručne a uvidíte, aký je výsledok.

Výsledok sa ukáže 15. 4. 2019 o 5:03:35 hod.

Formát dátumu môjho počítača je „mm-dd-rrrr“.

Formát dátumu môžeme zmeniť aj pomocou funkcie FORMAT. Nižšie je uvedený kód na zmenu formátu dátumu.

Kód:

Sub Now_Example1 () Dim k As Date k = Now Format MsgBox (k, "DD-MMM-YYYY HH: MM: SS") End Sub

Spustite kód a uvidíte rozdiel.

Teraz máme správny formát dátumu a času. V tomto formáte môže ktokoľvek rozumieť formátu dátumu a času.

Prchavé v prírode:

Ako vidíte v prvom príklade, časový výsledok sme dostali ako 5:03:35 a v druhom príklade ideme ako 17:19:02. To teda ukazuje, že funkcia NOW je volatilná funkcia, ktorá sa mení každú sekundu.

Alternatíva k funkcii časovača vo VBA

Ako alternatívu k VBA TIMER môžeme pomocou funkcie „VBA NOW“ vypočítať celkový čas potrebný na vykonanie úlohy makrom.

Pomocou nižšie uvedeného kódu vypočítajte čas, ktorý váš kód vyžaduje.

C0de:

Sub TotalDuration () Dim k As Date k = Now '' 'Sem zadajte váš kód' '' MsgBox "Celkový čas potrebný na splnenie úlohy makrom je:" & _ Format ((Now - k), "HH: MM : SS ") End Sub

V zelenej oblasti skopírujte a prilepte kód.

Vykonajte kód stlačením klávesu F5 alebo stlačením tlačidla spustenia. Hneď ako dokončí vykonávanie, dostaneme čas, ktorý makro potrebuje na dokončenie správy o úlohe v okne so správou. Nižšie je uvedený príklad toho istého.