Šī apmācība parādīs, kā iegūt šodienas datumu VBA.
Ir daži veidi, kā iegūt šodienas datumu VBA kodā, proti, izmantojot VBA Datums() funkciju vai VBA Tagad () funkcijas.
Datuma () funkcija
The Datums() funkcija ļauj mums piešķirt mainīgajam šodienas datumu un pēc tam parādīt datumu VBE redaktora tiešajā logā, lai redzētu šodienas datumu.
| 123 | Dim dtŠodien kā datumsdtToday = Datums ()Atkļūdot. Drukāt dtŠodien |
Alternatīvi, mēs varam parādīt datumu ziņojumu lodziņā.
| 12345 | Apakš testa datumsDim dtŠodien kā datumsdtToday = Datums ()Msgbox "Šodienas datums ir" & dtŠodienBeigu apakš |
Tagad () Funkcija
The Tagad () Funkcija darbojas tāpat kā datuma funkcija, taču tajā ir iekļauts laiks.
| 12345 | Apakšdatuma datums ()Dim dtŠodien kā datumsdtToday = Tagad ()MsgBox "Šodienas datums ir" & dtŠodienBeigu apakš |
Datumu formatēšana ar VBA
Gan Datums() un Tagad () funkcijas, datums ir formatēts noklusējuma stilā, kā to nosaka mūsu datora iestatījumi. Mēs varam pielāgot šo formatējumu, izmantojot VBA Formāts funkciju. Tā kā formatēšanas funkcija atgriezīs virkni, mums jādeklarē a STRING mainīgs, nevis a DATUMS mainīgais.
| 12345 | Apakšdatuma datums ()Dim dtŠodien kā virknedtToday = Formāts (datums, "dd mmmm gggg")MsgBox "Šodienas datums ir" & dtŠodienBeigu apakš |
Mēs varam arī formatēt Tagad() funkcija, lai iekļautu laika daļu pielāgotā formātā.
| 12345 | Apakšformāts Tagad ()Dim dtŠodien kā virknedtToday = Formāts (tagad (), "dd mmmm yy hh: mm: ss am/pm")MsgBox dtŠodienBeigu apakš |
Salīdzinot 2 datumus ar VBA
Mēs varam izmantot arī datuma funkciju, lai salīdzinātu šodienas datumu ar citu datumu - iespējams, vēlēsimies aprēķināt, cik dienu ir līdz notikumam! Mēs to varam izdarīt, izmantojot VBA DateDiff () funkcija, kas atgriež skaitli. Tāpēc mēs varam paziņot, kaVESELS SKAITLIS mainīgais, lai saglabātu atgriezto vērtību.
| 123456789 | Sub TestDateDiff ()Dim dtŠodien kā datumsDim dtSomeDay As DateDim iDays kā vesels skaitlisdtToday = DatumsdtSomeDay = "05.06.2021."iDays = DateDiff ("d", dtToday, dtSomeDay)MsgBox "Starp diviem datumiem ir" & iDays & "dienasBeigu apakš |
Tā kā datumi tiek saglabāti kā skaitļi, mēs varētu arī atņemt otro datumu no pirmā, lai iegūtu to pašu atbildi.
| 1 | iDays = dtToday - dtSomeDay |
