Vi har allerede gået over, hvilke variabler, datatyper og konstanter der er i vores VBA -datatyper - variabler og konstanter. I denne vejledning vil vi dække, hvordan man erklærer en variabel som en dato.
I VBA gemmes datadatatypen som en decimal. Både datoer og tidspunkter kan gemmes i denne datatype. Datatypen VBA -dato kan gemme værdier fra 1. januar 100 - 31. december 9999.
VBA -datovariabel
Du erklærer en variabel som en dato ved hjælp af søgeordet Dim:
| 1 | Dim dateOne som dato |
Derefter kan du tildele en dato til datovariablen. Der er flere måder at generere datoer til at tildele variabler:
Tildel i dag variabel
Datofunktionen returnerer dagens dato:
| 123 | Dim dtI dagdtToday = Dato |
Tildel nu til variabel
Nu -funktionen returnerer dagens dato og aktuelle klokkeslæt:
| 123 | Dim dNudNow = Nu |
Tildel tid til variabel
Tidsfunktionen returnerer det aktuelle klokkeslæt:
| 123 | Dim tTimetTime = Tid |
Tildel en dato til variabel med DateSerial
DateSerial -funktionen returnerer en dato baseret på et inputår, måned og dag:
| 123 | Dim dsDatodsDate = DateSerial (2010, 11, 11) |
Tildel en tid til variabel med TimeSerial
TimeSerial -funktionen returnerer et tidspunkt baseret på en input -time, minut og sekund:
| 123 | Dim tsTimetsTime = TimeSerial (10, 10, 45) |
Du skal vedlægge datoer med # eller ”, når du bruger dem i din kode, som vist herunder:
VBA DateValue -funktion
VBA DateValue -funktionen kan bruges til at initialisere en dato. Følgende kode kan bruges til at initialisere en dato i VBA:
| 1 | MsgBox DateValue ("1/1/2010") |
VBA TimeValue -funktion
| 1 | MsgBox TimeValue ("21:30:57") |
Eksempel på Excel VBA -datavariabel
Denne procedure viser, hvordan du opretter datovariabler, tildeler dem værdier og sender dem til et Excel -regneark:
| 12345678910111213 | UnderdeklareringAVariableAsADate ()Dim dateOne As DateDim dateTwo As DatedateOne = #1/1/2019 #dateTwo = "1/2/2019"Område ("A1"). Værdi = dateOneOmråde ("A2"). Værdi = dateTwoAfslut Sub |
Resultatet er:
Du kan lære mere om Datofunktioner i denne vejledning.
VBA -datovariabel i adgang
Datovariablen fungerer nøjagtig det samme i Access VBA som i Excel VBA.
Denne procedure viser, hvordan du opretter en datovariabel og opdaterer et felt i en adgangstabel med værdien.
| 12345 | UnderdeklareringAVariableAsADate ()Dim dtWork As DatedtWork = #05/10/2020 #DoCmd.RunSql "UPDATE tblJobs SET WorkDate = #" & dtWork & " # WHERE JobNo = 6"Afslut Sub |
