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 každý den pomoci. Excel usnadnil celý náš život na pracovišti. Když řeknu „denně“, má Excel vzorec, který vrátí i dnešní datum, nejen datum, ale 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 nazvaný „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 každý ptá, 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 neobsahuje žádné argumenty. Musíme jen 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. Abych o tom měl 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 datový typ proměnné 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. Měli bychom vidět aktuální datum v systému.
Poznámka: Formát data se může lišit podle nastavení systému. Může 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 pracovník pro vymáhání půjčky, 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
