Acest tutorial va arăta cum să obțineți o întâlnire de azi în VBA.
Există câteva modalități de a obține data de astăzi în codul VBA, și anume utilizarea VBA Data() funcție sau VBA Acum() funcții.
Funcția Date ()
The Data() funcția ne permite să atribuim data de azi unei variabile și apoi să afișăm data în fereastra imediată din Editorul VBE pentru a vedea data de astăzi.
| 123 | Dim dtToday ca DatadtToday = Data ()Debug.Print dtToday |
Alternativ, putem afișa data într-o casetă de mesaj.
| 12345 | Sub TestDateDim dtToday ca DatadtToday = Data ()Mesaj "Data zilei de astăzi este" & dtTodaySfârșitul Sub |
Funcția Now ()
The Acum() Funcția funcționează la fel ca funcția de dată, dar include ora.
| 12345 | Sub TestDate ()Dim dtToday As DatedtToday = Now ()MsgBox „Data de azi este” & dtTodaySfârșitul Sub |
Formatarea datelor cu VBA
În ambele Data() si Acum() funcții, data este formatată într-un stil implicit, determinat de setările de pe computerul nostru. Putem personaliza această formatare folosind VBA Format funcţie. Deoarece funcția de format va returna un șir, trebuie să declarăm un ŞIR mai degrabă variabilă decât a DATA variabil.
| 12345 | Sub TestDate ()Dim dtToday As StringdtToday = Format (Data, "zz mmmm aaaa")MsgBox „Data de azi este” & dtTodaySfârșitul Sub |
De asemenea, putem formata Acum() funcție pentru a include porțiunea de timp într-un format personalizat.
| 12345 | Sub Format Acum ()Dim dtToday As StringdtToday = Format (Now (), "dd mmmm aaa hh: mm: ss am / pm")MsgBox dtTodaySfârșitul Sub |
Comparând 2 date cu VBA
De asemenea, putem utiliza funcția Data pentru a compara data de astăzi cu o dată diferită - ne-am putea dori să calculăm câte zile sunt până la un eveniment! Putem face acest lucru folosind VBA DateDiff () funcție care va returna un număr. Prin urmare, putem declara unÎNTREG variabilă pentru a stoca valoarea returnată în.
| 123456789 | Sub TestDateDiff ()Dim dtToday As DateDim dtSomeDay As DateDim iDays As IntegerdtToday = DatadtSomeDay = "05/06/2021"iDays = DateDiff ("d", dtToday, dtSomeDay)MsgBox „Există” & iDays & „zile între cele 2 date”Sfârșitul Sub |
Deoarece datele sunt stocate ca numere, am putea, de asemenea, să scăpăm a doua dată din prima pentru a obține același răspuns.
| 1 | iDays = dtToday - dtSomeDay |
