Mes jau apžvelgėme kintamuosius, duomenų tipus ir konstantas mūsų VBA duomenų tipų - kintamųjų ir konstantų pamokoje. Šioje pamokoje aptarsime, kaip kintamąjį paskelbti data.
VBA datos duomenų tipas saugomas kaip dešimtainis. Šio tipo duomenys gali būti saugomi tiek datomis, tiek laiku. VBA datos duomenų tipas gali saugoti reikšmes nuo 100 sausio 1 d. Iki 9999 m. Gruodžio 31 d.
VBA datos kintamasis
Jūs nurodote kintamąjį kaip datą naudodami Dim raktinį žodį:
1 | Pritemdyti datą Vienas kaip data |
Tada datos kintamajam galite priskirti datą. Yra keletas būdų, kaip sugeneruoti kintamiesiems priskirtas datas:
Priskirti šiandien kintamajam
Funkcija Data grąžins šiandienos datą:
123 | Dim dtŠiandiendtToday = Data |
Priskirti dabar kintamajam
Funkcija Dabar grąžins šiandienos datą ir dabartinį laiką:
123 | Dim dNowdNow = Dabar |
Priskirti laiką kintamajam
Laiko funkcija grąžins esamą laiką:
123 | Tamsus laikastTime = laikas |
Priskirti datą kintamajam naudojant „DateSerial“
Funkcija DateSerial grąžins datą pagal įvesties metus, mėnesį ir dieną:
123 | Dim dsDatedsDate = DateSerial (2010, 11, 11) |
Priskirti laiką kintamajam naudojant „TimeSerial“
„TimeSerial“ funkcija grąžins laiką pagal įvesties valandą, minutę ir sekundę:
123 | Dim tsTimetsTime = „TimeSerial“ (10, 10, 45) |
Kai naudojate jas savo kode, datas turite pažymėti # arba „, kaip parodyta žemiau:
Funkcija VBA DateValue
Funkcija VBA DateValue gali būti naudojama datai inicijuoti. Norėdami inicijuoti datą VBA, galite naudoti šį kodą:
1 | „MsgBox DateValue“ („2010-01-01“) |
Funkcija „VBA TimeValue“
1 | „MsgBox TimeValue“ („21:30:57“) |
„Excel VBA“ datos kintamojo pavyzdys
Ši procedūra parodo, kaip sukurti datos kintamuosius, priskirti jiems reikšmes ir išvesti juos į „Excel“ darbalapį:
12345678910111213 | SubdeklaravimasAVariableAsADate ()Pritemdyti datą Vienas kaip dataDim dateTwo As DatedateOne = #1/1/2019 #dateTwo = "2019-02-01"Diapazonas („A1“). Vertė = dataOneDiapazonas („A2“). Reikšmė = dataTwoPabaiga Sub |
Rezultatas yra toks:
Daugiau apie datos funkcijas galite sužinoti šioje pamokoje.
VBA datos kintamasis prieigoje
Datos kintamasis „Access VBA“ veikia lygiai taip pat, kaip „Excel VBA“.
Ši procedūra parodo, kaip sukurti datos kintamąjį ir atnaujinti lauką prieigos lentelėje su reikšme.
12345 | SubdeklaravimasAVariableAsADate ()Dim dtWork As DatedtWork = #05/10/2020 #DoCmd.RunSql "UPDATE tblJobs SET WorkDate = #" & dtWork & " # WHERE JobNo = 6"Pabaiga Sub |