Jak získat aktuální datum ve VBA (3 způsoby)

  • Sdílet Toto
Hugh West

V tomto článku vám ukážu, jak můžete získat aktuální datum v aplikaci VBA v aplikaci Excel. Naučíte se zobrazovat aktuální datum, zobrazovat aktuální čas a také formátovat datum a čas v požadovaném formátu.

Jak získat aktuální datum ve VBA (rychlé zobrazení)

Stáhnout cvičebnici

Stáhněte si tento cvičební sešit a procvičte si tento úkol při čtení tohoto článku.

Získání aktuálních dat ve VBA.xlsm

3 způsoby získání aktuálního data ve VBA

Podívejme se na nejlepší způsoby, jak získat aktuální datum a čas v aplikaci Makro na adrese VBA .

1. Získání aktuálního data pomocí funkce Date ve VBA

Nejdříve se podívejme, jak můžeme získat aktuální datum. Aktuální datum můžete získat v položce VBA poměrně komplexně pomocí Funkce data z VBA .

Řádek kódu bude:

Current_Date=Date()

Kompletní kód pro zobrazení aktuálního data bude:

Kód VBA:

 Sub Get_Current_Date() Current_Date = Date MsgBox Current_Date End Sub 

Poznámka: Tento kód vytvoří Makro s názvem Get_Current_Date .

Výstup:

Spusťte toto makro , a získáte Pole pro zprávy zobrazení aktuálního data, 11-Jan-22 .

Další informace: Jak vložit aktuální datum v aplikaci Excel

2. Vložení aktuálního data a času pomocí funkce Now jazyka VBA

Můžete použít Nyní funkce VBA získat aktuální datum spolu s aktuálním časem.

Řádek kódu bude:

Current_Date_and_Time = Now()

Proto je kompletní kód pro zobrazení aktuálního data a času:

Kód VBA:

 Sub Get_Current_Date_and_Time() Current_Date_and_Time = Now() MsgBox Current_Date_and_Time End Sub 

Poznámka: Tento kód vytvoří Makro s názvem Získat_aktuální_datum_a_čas .

Výstup:

Spusťte tento Makro , a získáte Pole pro zprávy zobrazení aktuálního data a času, 11-Jan-22 11:23:20 AM .

Další informace: Funkce Now a Format v aplikaci Excel VBA

Podobná čtení

  • Proměnná data v kódech VBA (7 použití maker s příklady)
  • Jak používat zkratku data aplikace Excel
  • Výpočet data splatnosti pomocí vzorce v aplikaci Excel (7 způsobů)
  • Jak používat vzorec IF s daty (6 jednoduchých příkladů)

3. Formátování aktuálního data a času pomocí funkce Formátování VBA

Doposud jsme se učili získávat aktuální datum a čas. Tentokrát se podíváme, jak můžeme zobrazit datum a čas v požadovaném formátu.

3.1 Formátování aktuálního data

Nejprve naformátujeme pouze aktuální datum.

Použijeme Formát funkce VBA k tomuto účelu. syntaxe funkce je:

=Format(Date,Format)

Chcete-li tedy zobrazit aktuální datum ve formátu dd/mm/rrrr , řádek kódu bude:

Current_Date = Format(Date, "dd/mm/rrrr")

A kompletní Kód VBA bude:

Kód VBA:

 Sub Format_Date_and_Time() Current_Date = Format(Date, "dd/mm/rrrr") MsgBox Current_Date End Sub 

Poznámka: Tento kód vytvoří Makro s názvem Format_Date_and_Time .

Výstup:

Pokud spustíte tento kód, zobrazí se aktuální datum v požadovaném formátu, dd/mm/rrrr , 11/01/2022 .

3.2 Formátování aktuálního data a času

Můžete také použít Formát pro formátování aktuálního data a aktuálního času dohromady.

Zobrazíme aktuální datum a čas ve formátu dd/mm/rrrr hh:mm:ss am/pm .

Řádek kódu bude:

Current_Date_and_Time = Format(Now(), "dd/mm/yyyy hh:mm:ss am/pm")

A kompletní Kód VBA bude:

Kód VBA:

 Sub Format_Date_and_Time() Current_Date_and_Time = Format(Now(), "dd/mm/yyyy hh:mm:ss am/pm") MsgBox Current_Date_and_Time End Sub 

Poznámka: Tento kód vytvoří Makro s názvem Format_Date_and_Time .

Výstup:

Pokud spustíte tento kód, zobrazí se aktuální datum a čas v požadovaném formátu, dd/mm/rrrr hh:mm:ss am/pm , 11/01/2022 12:03:45 .

Další informace: Jak formátovat datum pomocí VBA v aplikaci Excel

Souhrn

  • Na stránkách TEĎ funkce Aplikace Visual Basic vrátí aktuální datum a čas.
  • Na stránkách Datum vrátí aktuální datum.
  • Na stránkách Formát zobrazí datum a čas v libovolném formátu.

Závěr

Pomocí těchto metod můžete získat a zobrazit aktuální datum a čas v položce Makro Máte nějaké dotazy? Neváhejte se nás zeptat.

Hugh West je velmi zkušený školitel a analytik Excelu s více než 10 lety zkušeností v oboru. Má bakalářský titul v oboru Účetnictví a finance a magisterský titul v oboru Business Administration. Hugh má vášeň pro výuku a vyvinul jedinečný přístup k výuce, který lze snadno sledovat a pochopit. Jeho odborné znalosti Excelu pomohly tisícům studentů a profesionálů po celém světě zlepšit své dovednosti a vyniknout ve své kariéře. Prostřednictvím svého blogu Hugh sdílí své znalosti se světem a nabízí bezplatné výukové programy Excelu a online školení, které jednotlivcům a firmám pomohou dosáhnout jejich plného potenciálu.