Mēs jau esam apskatījuši mainīgos, datu tipus un konstantes mūsu VBA datu tipu - mainīgo un konstantu apmācībā. Šajā apmācībā mēs apskatīsim, kā deklarēt mainīgo kā datumu.
VBA datuma datu tips tiek saglabāts kā decimālskaitlis. Šajā datu tipā var saglabāt gan datumus, gan laikus. VBA datuma datu tips var saglabāt vērtības, sākot no 100. janvāra līdz 9999. gada 31. decembrim.
VBA datuma mainīgais
Jūs maināt mainīgo kā datumu, izmantojot Dim atslēgvārdu:
| 1 | Dim kā viens datums |
Pēc tam datuma mainīgajam varat piešķirt datumu. Ir vairāki veidi, kā ģenerēt datumus, lai tos piešķirtu mainīgajiem:
Piešķirt šodienai mainīgajam
Funkcija Datums atgriezīs šodienas datumu:
| 123 | Dim dtŠodiendtToday = Datums |
Piešķirt tūlīt mainīgajam
Funkcija Tagad atgriezīs šodienas datumu un pašreizējo laiku:
| 123 | Dim dNowdNow = Tagad |
Piešķirt laiku mainīgajam
Laika funkcija atgriezīs pašreizējo laiku:
| 123 | Dim tTimetTime = laiks |
Piešķiriet datumu mainīgajam, izmantojot DateSerial
Funkcija DateSerial atgriež datumu, pamatojoties uz ievades gadu, mēnesi un dienu:
| 123 | Dim dsDatedsDate = DateSerial (2010, 11, 11) |
Piešķiriet mainīgajam laiku, izmantojot TimeSerial
Funkcija TimeSerial atgriezīs laiku, pamatojoties uz ievades stundu, minūti un sekundi:
| 123 | Dim tsTimetsTime = TimeSerial (10, 10, 45) |
Ja izmantojat tos savā kodā, datumi ir jāpievieno ar # vai ”, kā parādīts zemāk:
Funkcija VBA DateValue
Funkciju VBA DateValue var izmantot datuma inicializēšanai. Lai inicializētu datumu VBA, var izmantot šādu kodu:
| 1 | MsgBox DateValue ("1/1/2010") |
Funkcija VBA TimeValue
| 1 | MsgBox TimeValue ("21:30:57") |
Excel VBA datuma mainīgā piemērs
Šī procedūra parāda, kā izveidot datuma mainīgos, piešķirt tiem vērtības un izvadīt tos Excel darblapā:
| 12345678910111213 | ApakšdeklarēšanaAVariableAsADate ()Dim kā viens datumsDima kā datumsdateOne = #1/1/2019 #dateTwo = "01.02.2019"Diapazons ("A1"). Vērtība = dateOneDiapazons ("A2"). Vērtība = datumsDiviBeigu apakš |
Rezultāts ir šāds:
Šajā apmācībā varat uzzināt vairāk par datuma funkcijām.
VBA datuma mainīgais piekļuvē
Mainīgais datums Access VBA darbojas tieši tāpat kā programmā Excel VBA.
Šī procedūra parāda, kā izveidot datuma mainīgo un atjaunināt lauku piekļuves tabulā ar vērtību.
| 12345 | ApakšdeklarēšanaAVariableAsADate ()Dim dtWork As DatedtWork = #05.10.2020 #DoCmd.RunSql "UPDATE tblJobs SET WorkDate = #" & dtWork & " # WHERE JobNo = 6"Beigu apakš |
