Oleme juba õppinud VBA andmetüüpide - muutujate ja konstantide kohta, millised muutujad, andmetüübid ja konstandid on. Selles õpetuses käsitleme muutuja kuupäevaks kuulutamist.
VBA -s salvestatakse kuupäeva andmetüüp kümnendkohana. Seda tüüpi andmetesse saab salvestada nii kuupäevi kui ka kellaaegu. VBA kuupäeva andmetüüp võib salvestada väärtusi vahemikus 1. jaanuar 100 - 31. detsember 9999.
VBA kuupäevamuutuja
Kuulutate muutuja kuupäevaks, kasutades märksõna Dim:
| 1 | Hämarda kuupäev Üks kuupäevana |
Seejärel saate kuupäeva muutujale määrata kuupäeva. Muutujatele omistamiseks kuupäevade loomiseks on mitu võimalust:
Määra täna muutujale
Funktsioon Kuupäev tagastab tänase kuupäeva:
| 123 | Dim dtTänadtToday = Kuupäev |
Määra kohe muutujale
Funktsioon Now tagastab tänase kuupäeva ja praeguse kellaaja:
| 123 | Hämarda nüüddNow = kohe |
Määrake muutujale aeg
Ajafunktsioon tagastab praeguse aja:
| 123 | Dim tTimetTime = Aeg |
Määrake muutujale kuupäev DateSerial abil
Funktsioon DateSerial tagastab kuupäeva, mis põhineb sisendaastal, kuul ja päeval:
| 123 | Dim dsDatedsDate = DateSerial (2010, 11, 11) |
Määrake TimeSerialiga muutujale aeg
Funktsioon TimeSerial tagastab sisestatud tunni, minuti ja sekundi põhjal aja:
| 123 | Hämardage aegtsTime = TimeSerial (10, 10, 45) |
Kui kasutate neid koodis, peate kuupäevad lisama numbriga # või ”, nagu allpool näidatud.
Funktsioon VBA DateValue
Funktsiooni VBA DateValue saab kasutada kuupäeva lähtestamiseks. Kuupäeva initsialiseerimiseks VBA -s saab kasutada järgmist koodi:
| 1 | MsgBox DateValue ("01.01.2010") |
Funktsioon VBA TimeValue
| 1 | MsgBox TimeValue ("21:30:57") |
Excel VBA kuupäevamuutuja näide
See protseduur näitab, kuidas kuupäevamuutujaid luua, neile väärtusi määrata ja Exceli töölehele väljastada.
| 12345678910111213 | AlamdeklaratsioonVariableAsADate ()Hämarda kuupäev Üks kuupäevDim dateTwo DatedateOne = #1/1/2019 #dateTwo = "01.02.2019"Vahemik ("A1"). Väärtus = dateOneVahemik ("A2"). Väärtus = dateTwoEnd Sub |
Tulemuseks on:
Selle õpetuse kohta saate lisateavet kuupäevade funktsioonide kohta.
Juurdepääsu VBA kuupäevamuutuja
Kuupäeva muutuja töötab Access VBA -s täpselt samamoodi nagu Excel VBA.
See protseduur näitab, kuidas luua kuupäevamuutuja ja värskendada väärtusega juurdepääsu tabelis välja.
| 12345 | AlamdeklaratsioonVariableAsADate ()Dim dtWork As DatedtWork = #05.10.2020 #DoCmd.RunSql "UPDATE tblJobs SET WorkDate = #" & dtWork & " # WHERE JobNo = 6"End Sub |
