V našom návode na používanie dátových typov VBA - premenné a konštanty sme si už prešli, čo sú to premenné, dátové typy a konštanty. V tomto návode sa pozrieme na to, ako premennú vyhlásiť za dátum.
Vo VBA je dátový typ dátumu uložený ako desatinné miesto. Do tohto typu údajov je možné uložiť dátumy aj časy. Dátový typ dátumu VBA môže uchovávať hodnoty v rozsahu od 1. januára 100 do 31. decembra 9999.
Premenná dátumu VBA
Proměnnú vyhlásite ako dátum pomocou kľúčového slova Dim:
| 1 | Dim dateOne as Date |
Potom môžete premennej dátumu priradiť dátum. Existuje niekoľko spôsobov, ako generovať dátumy, ktoré sa majú priradiť k premenným:
Priradiť dnes premennej
Funkcia dátumu vráti dnešný dátum:
| 123 | Dim dtDnesdtToday = Dátum |
Priradiť teraz premennej
Funkcia Teraz vráti dnešný dátum a aktuálny čas:
| 123 | Dim dNowdNow = Teraz |
Priradiť čas premennej
Funkcia času vráti aktuálny čas:
| 123 | Dim tTimetTime = čas |
Priraďte dátum premennej k DateSerial
Funkcia DateSerial vráti dátum na základe vstupného roku, mesiaca a dňa:
| 123 | Dim dsDatedsDate = DateSerial (2010, 11, 11) |
Priraďte premennej čas pomocou TimeSerial
Funkcia TimeSerial vráti čas na základe zadanej hodiny, minúty a sekundy:
| 123 | Dim tsTimetsTime = TimeSerial (10, 10, 45) |
Pri použití vo svojom kóde musíte dátumy uzavrieť znakom # alebo „, ako je uvedené nižšie:
Funkcia VBA DateValue
Na inicializáciu dátumu je možné použiť funkciu VBA DateValue. Na inicializáciu dátumu vo VBA je možné použiť nasledujúci kód:
| 1 | MsgBox DateValue ("1/1/2010") |
Funkcia VBA TimeValue
| 1 | MsgBox TimeValue ("21:30:57") |
Príklad premennej dátumu Excel VBA
Tento postup ukazuje, ako vytvoriť premenné dátumu, priradiť im hodnoty a uložiť ich do pracovného hárka programu Excel:
| 12345678910111213 | Pod DeklaráciaAVariableAsADate ()Dim dateOne As DateDim dateDwo As DatedateOne = #1/1/2019 #dateTwo = "1/2/2019"Rozsah („A1“). Hodnota = dateOneRozsah („A2“). Hodnota = dateTwoKoniec pod |
Výsledkom je:
V tomto návode sa môžete dozvedieť viac o funkciách dátumu.
Premenná dátumu VBA v prístupe
Premenná dátumu funguje v programe Access VBA úplne rovnako ako v programe Excel VBA.
Tento postup ukazuje, ako vytvoriť premennú dátumu a aktualizovať pole v prístupovej tabuľke hodnotou.
| 12345 | Pod DeklaráciaAVariableAsADate ()Dim dtWork As DatedtWork = #05/10/2020 #DoCmd.RunSql "UPDATE tblJobs SET WorkDate = #" & dtWork & " # WHERE JobNo = 6"Koniec pod |
