VBA - Pridobite današnji datum (trenutni datum)

Ta vadnica bo pokazala, kako priti do današnjega datuma v VBA.

Današnji datum v kodi VBA lahko dobite na nekaj načinov, in sicer z uporabo VBA Datum () funkcijo ali VBA Zdaj () funkcije.

Funkcija Date ()

The Datum () funkcija nam omogoča, da današnji datum dodelimo spremenljivki in nato prikažemo datum v neposrednem oknu v urejevalniku VBE, da si ogledamo današnji datum.

123	Zatemni dtDanes kot datumdtToday = Datum ()Debug.Print dtToday

Druga možnost je, da lahko datum prikažemo v polju za sporočila.

12345

Pod TestDateZatemni dtDanes kot datumdtToday = Datum ()Msgbox "Današnji datum je" & dtTodayEnd Sub

Funkcija Now ()

The Zdaj () Funkcija deluje na enak način kot funkcija datuma, vendar vključuje čas.

12345

Sub TestDate ()Dim dtToday As DatedtToday = Zdaj ()MsgBox "Današnji datum je" & dtTodayEnd Sub

Oblikovanje datumov z VBA

V obeh Datum () in Zdaj () funkcije, je datum oblikovan v privzetem slogu, kot določajo nastavitve v našem računalniku. To oblikovanje lahko prilagodimo z uporabo VBA Oblika funkcijo. Ker bo funkcija oblikovanja vrnila niz, moramo razglasiti a VRVICA spremenljivka namesto a DATE spremenljivka.

12345

Sub TestDate ()Dim dtToday As StringdtToday = Oblika (datum, "dd mmmm llll")MsgBox "Današnji datum je" & dtTodayEnd Sub

Lahko tudi formatiramo Zdaj(), ki vključuje časovni del v prilagojeni obliki.

12345

PodoblikNow ()Dim dtToday As StringdtToday = Format (Now (), "dd mmmm yy hh: mm: ss am/pm")MsgBox dtDanesEnd Sub

Primerjava 2 datumov z VBA

Funkcijo datuma lahko uporabimo tudi za primerjavo današnjega datuma z drugim datumom - morda bi želeli izračunati, koliko dni je do dogodka! To lahko storimo z uporabo VBA DateDiff () funkcija, ki vrne številko. Zato lahko razglasimoINTEGER spremenljivko za shranjevanje vrnjene vrednosti.

123456789

Sub TestDateDiff ()Dim dtToday As DateZatemni dtSomeDay kot datumZatemni iDays kot celo številodtToday = DatumdtSomeDay = "05/06/2021"iDays = DateDiff ("d", dtToday, dtSomeDay)MsgBox "Med dvema datumoma so dnevi" & iDays & "End Sub

Ker so datumi shranjeni kot številke, bi lahko dobili enak odgovor tudi na drugi datum od prvega.

1	iDays = dtToday - dtSomeDay