Vi har redan gått igenom vad variabler, datatyper och konstanter är i vår VBA -datatyper - variabler och konstanter. I denna handledning kommer vi att täcka hur man deklarerar en variabel som ett datum.
I VBA lagras datatypen som en decimal. Både datum och tider kan lagras i denna datatyp. VBA -datatypen kan lagra värden från 1 januari 100 - 31 december 9999.
VBA -datumvariabel
Du deklarerar en variabel som ett datum med sökordet Dim:
| 1 | Dim dateOne as Date |
Sedan kan du tilldela datumvariabeln ett datum. Det finns flera sätt att generera datum för att tilldela variabler:
Tilldela idag Variabel
Datumfunktionen returnerar dagens datum:
| 123 | Dim dtIdagdtToday = Datum |
Tilldela nu variabel
Nu -funktionen returnerar dagens datum och aktuell tid:
| 123 | Dim dNowdNow = Nu |
Tilldela tid till variabel
Tidsfunktionen returnerar aktuell tid:
| 123 | Dim tTimetTime = Time |
Tilldela ett datum till variabel med DateSerial
DateSerial -funktionen returnerar ett datum baserat på ett inmatningsår, månad och dag:
| 123 | Dim dsDatedsDate = DateSerial (2010, 11, 11) |
Tilldela en tid till variabel med TimeSerial
TimeSerial -funktionen returnerar en tid, baserat på en inmatningstimme, minut och sekund:
| 123 | Dim tsTimetsTime = TimeSerial (10, 10, 45) |
Du måste bifoga datum med # eller ”när du använder dem i din kod, enligt nedan:
VBA DateValue -funktion
VBA DateValue -funktionen kan användas för att initiera ett datum. Följande kod kan användas för att initiera ett datum i VBA:
| 1 | MsgBox DateValue ("1/1/2010") |
VBA TimeValue -funktion
| 1 | MsgBox TimeValue ("21:30:57") |
Excel VBA Datumvariabel Exempel
Den här proceduren visar hur du skapar datumvariabler, tilldelar dem värden och matar ut dem i ett Excel -kalkylblad:
| 12345678910111213 | Sub DeclaringAVariableAsADate ()Dim dateOne As DateDim dateTwo As DatedateOne = #1/1/2019 #dateTwo = "1/2/2019"Område ("A1"). Värde = dateOneOmråde ("A2"). Värde = datumTvåAvsluta Sub |
Resultatet är:
Du kan lära dig mer om datumfunktioner i den här självstudien.
VBA -datumvariabel i åtkomst
Datumvariabeln fungerar exakt likadant i Access VBA som i Excel VBA.
Denna procedur visar hur du skapar en datumvariabel och uppdaterar ett fält i en åtkomsttabell med värdet.
| 12345 | Sub DeclaringAVariableAsADate ()Dim dtWork As DatedtWork = #05/10/2020 #DoCmd.RunSql "UPDATE tblJobs SET WorkDate = #" & dtWork & " # WHERE JobNo = 6"Avsluta Sub |
