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:
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 datumfirstDate = DateValue ('19. ledna 2020')
secondDate = DateAdd ('d', 3, firstDate)
MsgBox druhýDatum
Výsledek:
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 macMsgBox nyní
Výsledek:
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
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:
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ásobeky = TimeValue ('09: 20: 01 ')
MsgBox a
Výsledek:
Přejít na další kapitolu: Události