V vadnici VBA Data Types - Variables and Constants smo že preučili, kaj so spremenljivke, podatkovni tipi in konstante. V tej vadnici bomo obravnavali, kako spremenljivko razglasiti za datum.
V VBA je podatkovni tip datuma shranjen kot decimalno mesto. V ta tip podatkov lahko shranite datume in ure. Podatkovni tip datuma VBA lahko shrani vrednosti od 1. januarja 100. do 31. decembra 9999.
VBA spremenljivka datuma
Spremenljivko razglasite za datum z uporabo ključne besede Dim:
| 1 | Zatemni datum Ena kot datum |
Nato lahko datumski spremenljivki dodelite datum. Datume za dodelitev spremenljivkam lahko ustvarite na več načinov:
Dodeli spremenljivki danes
Funkcija datuma vrne današnji datum:
| 123 | Dim dt DanesdtToday = Datum |
Dodeli zdaj spremenljivki
Funkcija Now vrne današnji datum in trenutni čas:
| 123 | Dim dNowdNow = Zdaj |
Dodeli čas spremenljivki
Funkcija časa vrne trenutni čas:
| 123 | Dim tTimetTime = Čas |
Spremenljivki z DateSerial dodelite datum
Funkcija DateSerial vrne datum glede na vneseno leto, mesec in dan:
| 123 | Dim dsDatedsDate = DateSerial (2010, 11, 11) |
S časovnim merilnikom dodelite čas spremenljivki
Funkcija TimeSerial vrne čas glede na vneseno uro, minuto in sekundo:
| 123 | Dim tsTimetsTime = TimeSerial (10, 10, 45) |
Pri uporabi v kodi morate datume priložiti s številko # ali ”, kot je prikazano spodaj:
VBA DateValue funkcija
Funkcijo VBA DateValue lahko uporabite za inicializacijo datuma. Naslednjo kodo lahko uporabite za inicializacijo datuma v VBA:
| 1 | MsgBox DateValue ("1/1/2010") |
Funkcija VBA TimeValue
| 1 | MsgBox TimeValue ("21:30:57") |
Primer datumske spremenljivke Excel VBA
Ta postopek prikazuje, kako ustvariti spremenljivke datuma, jim dodeliti vrednosti in jih oddati na Excelov delovni list:
| 12345678910111213 | Poddeklariranje AVariableAsADate ()Zatemni datum Ena kot datumZatemni datum Dva kot datumdateOne = #1/1/2019 #dateTwo = "1/2/2019"Obseg ("A1"). Vrednost = datum enoRazpon ("A2"). Vrednost = datumDvaEnd Sub |
Rezultat je:
Več o funkcijah datuma lahko izveste v tej vadnici.
VBA spremenljivka datuma VBA v Accessu
Spremenljivka datuma v Accessu VBA deluje popolnoma enako kot v Excelu VBA.
Ta postopek prikazuje, kako ustvarite spremenljivko datuma in posodobite polje v tabeli dostopa z vrednostjo.
| 12345 | Poddeklariranje AVariableAsADate ()Dim dtWork As DatedtWork = #05/10/2020 #DoCmd.RunSql "UPDATE tblJobs SET WorkDate = #" & dtWork & " # WHERE JobNo = 6"End Sub |
