See õpetus näitab, kuidas saada tänast kuupäeva VBA -s.
Tänase kuupäeva saamiseks VBA -koodis on paar võimalust, nimelt VBA kasutamine Kuupäev () funktsioon või VBA Nüüd () funktsioone.
Kuupäeva () funktsioon
The Kuupäev () funktsioon võimaldab meil määrata muutujale tänase kuupäeva ja kuvada kuupäev VBE redaktori vahetu aknas, et näha tänast kuupäeva.
123 | Dim dtToday as DatedtToday = Kuupäev ()Silumine. Prindi dtTänne |
Teise võimalusena võime kuupäeva kuvada sõnumikastis.
12345 | Alamkatse kuupäevDim dtToday as DatedtToday = Kuupäev ()Msgbox "Tänane kuupäev on" & dtTodayEnd Sub |
Nüüd () Funktsioon
The Nüüd () Funktsioon töötab samamoodi nagu kuupäevafunktsioon, kuid sisaldab aega.
12345 | Alamkatse kuupäev ()Dim dtToday as DatedtToday = Nüüd ()MsgBox "Tänane kuupäev on" & dtTodayEnd Sub |
Kuupäevade vormindamine VBA abil
Mõlemas Kuupäev () ja Nüüd () funktsioonid, vormindatakse kuupäev vaikestiilis, mis on määratud meie arvuti seadetega. Seda vormingut saame kohandada VBA abil Vorming funktsiooni. Kuna vormindamisfunktsioon tagastab stringi, peame deklareerima a STRING pigem muutuv kui a DATE muutuja.
12345 | Alamkatse kuupäev ()Dim dtToday StringdtToday = Vorming (kuupäev, "pp kkmm aaaa")MsgBox "Tänane kuupäev on" & dtTodayEnd Sub |
Võime ka vormindada Nüüd() funktsioon, mis sisaldab ajaosa kohandatud vormingus.
12345 | AlamvormingNow ()Dim dtToday StringdtToday = Vorming (nüüd (), "dd mmmm yy hh: mm: ss am/pm")MsgBox dtTänaEnd Sub |
Võrreldes 2 kuupäeva VBA -ga
Funktsiooni Kuupäev abil saame võrrelda ka tänast kuupäeva erineva kuupäevaga - võiksime arvutada, mitu päeva on sündmuseni! Seda saame teha VBA abil DateDiff () funktsioon, mis tagastab numbri. Seetõttu võime kuulutada anINTEGER muutuja tagastatud väärtuse salvestamiseks.
123456789 | Alam TestDateDiff ()Dim dtToday as DateDim dtSomeDay As DateDim iDays täisarvunadtToday = KuupäevdtSomeDay = "05.06.2021"iDays = DateDiff ("d", dtToday, dtSomeDay)MsgBox "Kahe kuupäeva vahel on" & iDays & "päeviEnd Sub |
Kuna kuupäevad salvestatakse numbritena, võime sama vastuse saamiseks ka teise kuupäeva esimesest miinusesse jätta.
1 | iDays = dtToday - dtSomeDay |