Ez az oktatóanyag bemutatja, hogyan szerezheti be a mai dátumot a VBA -ban.
Van néhány módja annak, hogy a mai dátumot megkapjuk a VBA kódban, nevezetesen a VBA használatával Dátum() funkció vagy a VBA Most() funkciókat.
Dátum () függvény
Az Dátum() funkció lehetővé teszi, hogy a mai dátumot hozzárendeljük egy változóhoz, majd megjelenítsük a dátumot a VBE szerkesztő közvetlen ablakában, hogy lássuk a mai dátumot.
123 | Dim dtMa dátumkéntdtToday = Dátum ()Hibakeresés. Nyomtatás dtMa |
Alternatív megoldásként megjeleníthetjük a dátumot egy üzenetmezőben.
12345 | Sub TestDateDim dtMa dátumkéntdtToday = Dátum ()Msgbox "A mai dátum" & dtTodayEnd Sub |
Most () függvény
Az Most() A függvény ugyanúgy működik, mint a dátumfüggvény, de tartalmazza az időt.
12345 | Sub TestDate ()Dim dtMa dátumkéntdtToday = Most ()MsgBox "A mai dátum" & dtTodayEnd Sub |
Dátumok formázása VBA -val
Mind a Dátum() és a Most() funkciókhoz, a dátum alapértelmezett stílusban van formázva, a PC beállításainak megfelelően. Ezt a formázást személyre szabhatjuk a VBA használatával Formátum funkció. Mivel a formázási függvény karakterláncot ad vissza, deklarálnunk kell a HÚR inkább változó, mint a DÁTUM változó.
12345 | Sub TestDate ()Dim dtToday As StringdtToday = Formátum (Dátum, "dd mmmm yyyy")MsgBox "A mai dátum" & dtTodayEnd Sub |
Formázhatjuk a Most() függvény, amely az időrészt testreszabott formátumban tartalmazza.
12345 | AlformátumNow ()Dim dtToday As StringdtToday = Formátum (Most (), "dd mmmm yy hh: mm: ss am/pm")MsgBox dtMaEnd Sub |
2 dátum összehasonlítása a VBA -val
A Dátum funkcióval összehasonlíthatjuk a mai dátumot egy másik dátummal - érdemes kiszámítani, hogy hány nap van egy eseményig! Ezt a VBA segítségével tehetjük meg DateDiff () függvény, amely számot ad vissza. Kijelenthetjük tehát anEGÉSZ SZÁM változó a visszaadott érték tárolására.
123456789 | Sub TestDateDiff ()Dim dtMa dátumkéntDim dtSomeDay As DateDim iDays As IntegerdtToday = DátumdtSomeDay = "05.01.2021"iDays = DateDiff ("d", dtToday, dtSomeDay)MsgBox "Vannak" & iDays & "napok a 2 dátum között"End Sub |
Mivel a dátumok számként vannak tárolva, a második dátumot is levonhatjuk az elsőtől, hogy ugyanazt a választ kapjuk.
1 | iDays = dtToday - dtSomeDay |