VBA dnes | Jak používat funkci Date ve VBA k nalezení dnešního data?

Funkce VBA Today

Dnes znamená aktuální datum, v listu Funkce Now dělá totéž, co nám dává aktuální datum a čas, ale v samotné VBA není žádná vestavěná funkce dnes, metoda získání aktuálního data systému je pomocí funkce date a na rozdíl od funkce now date date nám dává pouze aktuální datum.

V aplikaci Excel máme několik užitečných funkcí, které nám mohou denně pomoci. Excel usnadnil celý náš život na pracovišti. Když řeknu, že „denně“ má Excel vzorec, který vrátí i dnešní datum, nejen datum, můžeme také získat aktuální datum a čas společně. Taková je rozmanitost vzorců aplikace Excel. Pokud jste pravidelným uživatelem aplikace Excel, doufám, že jste narazili na vzorec s názvem „DNES“ v aplikaci Excel, který vloží aktuální datum jako datum zobrazené ve vašem pracovním počítači. Ale ve VBA nemáme funkci DNES, jak tedy získáme DNES datum z VBA. Tento článek vám ukáže, jak pracovat s dnešním datem ve VBA. Číst dál.

Jaký je vzorec pro získání dnešního data ve VBA?

Pokud dnes neexistuje žádný vzorec nazvaný DNES, jak získáme dnešní datum z VBA? Toto je běžná otázka, na kterou se všichni ptají, ale řešení je jednoduché, máme vzorec s jiným názvem, tj. Funkce DATE.

Jaká funkce data funguje ve VBA?

DATE je přesně stejné jako funkce VBA TODAY, ale toto není nestálá funkce, pokud nespustíte makro nebo nespustíte makro.

Syntaxe funkce DATE nemá žádné argumenty, stačí předat funkci DATE, to je vše.

DATUM ()

Příklady funkce Datum ve VBA

Funkce DATE pro vrácení aktuálního data systému. To je velmi užitečné, když to použijeme jako součást velkého projektu VBA. Abyste měli o tomto nejprve spravedlivé znalosti, ukážu vám jednoduché příklady funkce DATE.

Příklad č. 1

Pojďme vytvořit jednoduchou funkci DATE, která zobrazí aktuální datum v okně se zprávou. Při psaní makra aplikace Excel postupujte podle následujících kroků.

Krok 1: Vytvořte podproces pojmenováním makra.

Krok 2: Deklarujte proměnnou jako „Datum“. Funkce DATE vrací výsledek pouze jako datum, takže proměnný datový typ by měl být „Datum“.

Kód:

 Sub Today_Example1 () Dim K jako řetězec End Sub 

Krok 3: Přiřaďte hodnotu proměnné „k“ jako funkci DATE .

Kód:

 Sub Today_Example1 () Dim K As String K = Date End Sub 

Krok 4: Nyní hodnota proměnné „k“ v okně se zprávou ve VBA .

Kód:

 Sub Today_Example1 () Dim K As String K = Date MagBox K End Sub 

Spusťte kód, který by se měl v systému zobrazit jako aktuální datum.

Poznámka: Formát data se může lišit v závislosti na nastavení systému. Mohlo by to být „mm-dd-rr“, „dd-mm-rr“.

Funkce Datum pro zjištění splatnosti je dnes

Funkce data je užitečnější v kontextu hledání termínů splatnosti EMI, plateb kreditní kartou, plateb pojištění atd ...

Předpokládejme, že pracujete jako referent pro vymáhání půjček a máte seznam zákazníků s jejich splatností a datem splatnosti.

Ve sloupci stavu potřebujete výsledek jako „Termín je dnes“, pokud je termín splatnosti roven aktuálnímu systémovému datu.

To lze provést pomocí podmínky IF a smyček ve VBA. Níže je uveden hotový kód, který vám umožní dosáhnout výsledků.

Kód:

 Sub Today_Example2 () Dim K As Integer For K = 2 To 11 If Cells (K, 3) .Value = Date Then Cells (K, 4) .Value = "Due is on Today" Else Cells (K, 4) .Value = "Ne dnes" Konec, pokud další K Konec Sub 

Tím se dostanete k výsledkům ve sloupci stavu.

Stejně jako v mnoha scénářích můžeme použít funkci DATE ke kontrole dat a provedení nějaké akce.

Tuto funkci VBA Today si můžete stáhnout zde. VBA Today Function Excel Šablona