Vba

Datum a čas

Date Time

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





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

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





Rok, měsíc, den rande

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

Kód:



ŽádnýpříkladDatumTak jako datum

exampleDate = DateValue ('19. ledna 2020')

MsgBox Year (exampleDate)

Výsledek:

Rok data v aplikaci Excel VBA

Poznámka: Pomocí měsíce a dne získáte měsíc a den 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 druhýDatum

Výsledek:

DateAdd

Poznámka: Změnou „d“ na „m“ přidáte k datu několik měsíců. Umístěte kurzor na DateAdd v editoru jazyka a klikněte na F1 pro nápovědu k dalším specifikátorům intervalu. Termíny jsou v americkém formátu. První měsíce, druhé dny. Tento typ formátu závisí na místním nastavení systému Windows.

Aktuální datum a čas

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

Kód:

jak zobrazit sloupce v aplikaci Excel mac
MsgBox nyní

Výsledek:

Aktuální datum a čas

Hodina, minuta, sekunda

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

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í minut a sekund získáte minutu a sekundu času.

TimeValue

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

Kód:

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

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ýaTak jako Dvojnásobek
y = TimeValue ('09: 20: 01 ')
MsgBox a

Výsledek:

Časové sériové číslo

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



^