Tento tutoriál vám ukáže, ako získať dnešný dátum vo VBA.
Existuje niekoľko spôsobov, ako získať dnešný dátum v kóde VBA, a to pomocou VBA Dátum() funkciu alebo VBA Teraz () funkcie.
Funkcia Date ()
The Dátum() funkcia nám umožňuje priradiť dnešný dátum k premennej a potom zobraziť dátum v bezprostrednom okne v editore VBE, aby sme videli dnešný dátum.
| 123 | Dim dtToday as DatedtToday = Dátum ()Debug.Print dtToday |
Prípadne môžeme dátum zobraziť v poli so správou.
| 12345 | Dátum čiastkového testuDim dtToday as DatedtToday = Dátum ()Msgbox „Dnešný dátum je“ & dtTodayKoniec pod |
Funkcia Now ()
The Teraz () Funkcia funguje rovnako ako funkcia dátumu, ale zahŕňa čas.
| 12345 | Dátum čiastkového testu ()Dim dtToday As DatedtToday = Teraz ()MsgBox „Dnešný dátum je“ & dtTodayKoniec pod |
Formátovanie dátumov pomocou VBA
V oboch Dátum() a Teraz () funkcie, dátum je formátovaný v predvolenom štýle, ako je určené nastaveniami na našom počítači. Toto formátovanie môžeme prispôsobiť pomocou VBA Formát funkciu. Pretože funkcia formátu vráti reťazec, musíme deklarovať a STRING premenná a nie DÁTUM premenná.
| 12345 | Dátum čiastkového testu ()Dim dtToday As StringdtToday = Formát (dátum, "dd mmmm rrrr")MsgBox „Dnešný dátum je“ & dtTodayKoniec pod |
Môžeme tiež formátovať súbor Teraz() funkcia na zahrnutie časovej časti do prispôsobeného formátu.
| 12345 | Podformát Teraz ()Dim dtToday As StringdtToday = Format (Now (), "dd mmmm yy hh: mm: ss am/pm")MsgBox dtTodayKoniec pod |
Porovnanie 2 dátumov s VBA
Na porovnanie dnešného dátumu s iným dátumom môžeme použiť aj funkciu Dátum - možno by sme chceli vypočítať, koľko dní zostáva do udalosti! Môžeme to urobiť pomocou VBA DateDiff () funkcia, ktorá vráti číslo. Môžeme teda vyhlásiť anINTEGER premenná na uloženie vrátenej hodnoty.
| 123456789 | Sub TestDateDiff ()Dim dtToday As DateDim dtSomeDay As DateDim iDays As IntegerdtToday = DátumdtSomeDay = "05/06/2021"iDays = DateDiff ("d", dtToday, dtSomeDay)MsgBox „Medzi dvoma dátumami sú“ a „iDays“ „dni“Koniec pod |
Keďže dátumy sú uložené ako čísla, mohli by sme tiež mínus druhý dátum od prvého získať rovnakú odpoveď.
| 1 | iDays = dtToday - dtSomeDay |
