Vba

Datum a čas

Date Time

Rok, měsíc, den data | DateAdd | Aktuální datum a čas | Hodina, minuta, sekunda | TimeValue

Naučte se, jak pracovat data a časy v Excel VBA .



Umístěte a příkazové tlačítko na listu a přidejte řádky kódu níže. Chcete-li spustit řádky kódu, klikněte na příkazové tlačítko na listu.



Rok, měsíc, den data

Následující makro získá rok data. Chcete-li deklarovat datum, použijte příkaz Dim. Chcete-li inicializovat datum, použijte funkci DateValue.

Kód:



ŽádnýpříkladDatumTak jako datum

exampleDate = DateValue ('19. ledna 2020')

MsgBox rok (exampleDate)

Výsledek:

Rok data v aplikaci Excel VBA

Poznámka: Použijte měsíc a den k získání měsíce a dne data.



DateAdd

Chcete-li k datu přidat počet dní, použijte funkci DateAdd. Funkce DateAdd má tři argumenty. Vyplňte 'd' pro první argument pro přidání dnů. Vyplňte 3 pro druhý argument a přidejte 3 dny. Třetí argument představuje datum, ke kterému bude přidán počet dní.

jak extrahovat čísla z řetězce v aplikaci Excel

Kód:

Žádnýprvní schůzkaTak jako datum, druhé datumTak jako datum

firstDate = DateValue ('19. ledna 2020')
secondDate = DateAdd ('d', 3, firstDate)

MsgBox secondDate

Výsledek:

DateAdd

Poznámka: Chcete-li k datu přidat několik měsíců, změňte „d“ na „m“. Umístěte kurzor na DateAdd v editoru jazyka a klepnutím na F1 zobrazte nápovědu k dalším specifikátorům intervalů. Data jsou ve formátu USA. Měsíce první, dny druhé. Tento typ formátu závisí na regionálním nastavení systému Windows.

Aktuální datum a čas

Chcete-li zjistit aktuální datum a čas, použijte funkci Nyní.

Kód:

jak zobrazit sloupce v aplikaci Excel mac
MsgBox hned

Výsledek:

Aktuální datum a čas

Hodina, minuta, sekunda

Chcete-li získat hodinu času, použijte funkci Hour.

Kód:

MsgBox Hour (nyní)

Výsledek:

Excel jak kopírovat vzorec do jiných buněk

Hodina aktuálního času

Poznámka: Pomocí Minuty a Sekundy získáte minutu a sekundu času.

TimeValue

Funkce TimeValue převádí řetězec na časové sériové číslo. Sériové číslo času je číslo mezi 0 a 1. Například poledne (v polovině dne) je reprezentováno jako 0,5.

Kód:

MsgBox TimeValue ('9:20:01 hod.)

Výsledek:

TimeValue

Nyní, abyste jasně viděli, že Excel zpracovává časy interně jako čísla mezi 0 a 1, přidejte následující řádky kódu:

ŽádnýYTak jako Dvojnásobek
y = TimeValue ('09: 20: 01 ')
MsgBox a

Výsledek:

Sériové číslo času

1/8 dokončeno! Další informace o datech a časech>
Přejít na další kapitolu: Události



^