/ / Excel VBA Dátum a čas

Dátum a čas programu Excel VBA

Rok, mesiac, deň dňa | DateAdd | Aktuálny dátum a čas | Hodina, minúta, druhá | TIMEVALUE

Naučte sa pracovať dátumy a časy v Excel VBA.

Na pracovný hárok umiestnite príkazové tlačidlo a pridajte riadky kódu nižšie. Ak chcete vykonať riadky kódu, kliknite na príkazové tlačidlo na hárku.

Rok, mesiac, deň dňa

Nasledujúce makro dostane rok dátumu. Ak chcete deklarovať dátum, použite vyhlásenie Dim. Ak chcete inicializovať dátum, použite funkciu DateValue.

kód:

Dim exampleDate As Date

exampleDate = DateValue("Jun 19, 2010")

MsgBox Year(exampleDate)

výsledok:

Rok dátumu v programe Excel VBA

Poznámka: Použite mesiac a deň na získanie mesiaca a dňa dátumu.

DateAdd

Ak chcete do dátumu pridať niekoľko dní, použite tlačidloFunkcia DateAdd. Funkcia DateAdd má tri argumenty. Vyplňte "d" pre prvý argument a pridajte dni. Vyplňte 3 pre druhý argument a pridajte 3 dni. Tretí argument predstavuje dátum, do ktorého sa pridá počet dní.

kód:

Dim firstDate As Date, secondDate As Date

firstDate = DateValue("Jun 19, 2010")
secondDate = DateAdd("d", 3, firstDate)

MsgBox secondDate

výsledok:

DateAdd

Poznámka: Zmeňte "d" na "m" a pridajte niekoľko mesiacov k dátumu. Umiestnite kurzor na DateAdd v editore jazyka a kliknite na tlačidlo F1 pre pomoc na ostatných špecifikátorov intervalu. Termíny sú v americkom formáte. Najskôr mesiace, Druhá deň. Tento typ formátu závisí od regionálnych nastavení systému Windows.

Aktuálny dátum a čas

Ak chcete získať aktuálny dátum a čas, použite funkciu Teraz.

kód:

MsgBox Now

výsledok:

Aktuálny dátum a čas

Hodina, minúta, druhá

Získajte hodinu času pomocou funkcie Hodiny.

kód:

MsgBox Hour(Now)

výsledok:

Hodina aktuálneho času

Poznámka: Použite Minute a Second, aby ste získali minútku a sekundu.

TIMEVALUE

Funkcia TimeValue prevádza reťazec na časové sériové číslo. Časové sériové číslo je číslo medzi 0 a 1. Napríklad poludnie (v polovici dňa) je reprezentované ako 0,5.

kód:

MsgBox TimeValue("9:20:01 am")

výsledok:

TIMEVALUE

Teraz, aby ste jasne zistili, že program Excel spracováva čas interne ako čísla medzi 0 a 1, pridajte nasledujúce riadky kódu:

Dim y As Double
y = TimeValue("09:20:01")
MsgBox y

výsledok:

Časové poradové číslo

Tiež si prečítajte: