V našem výukovém programu Datové typy VBA - Proměnné a konstanty jsme již přešli, jaké jsou proměnné, datové typy a konstanty. V tomto kurzu se budeme zabývat tím, jak deklarovat proměnnou jako datum.
Ve VBA je datový typ data uložen jako desetinný. Do tohoto datového typu lze uložit data i časy. Datový typ data VBA může ukládat hodnoty v rozmezí od 1. ledna 100 do 31. prosince 9999.
Proměnná data VBA
Proměnnou deklarujete jako datum pomocí klíčového slova Dim:
| 1 | Dim dateOne as Date |
Poté můžete proměnné data přiřadit datum. Existuje několik způsobů, jak generovat data k přiřazení proměnným:
Přiřadit dnes proměnné
Funkce Date vrátí dnešní datum:
| 123 | Dim dtTodaydtToday = Datum |
Přiřadit nyní proměnné
Funkce Now vrátí dnešní datum a aktuální čas:
| 123 | Dim dNowdNow = Nyní |
Přiřadit čas proměnné
Funkce Time vrátí aktuální čas:
| 123 | Dim tTimetTime = čas |
Přiřaďte datum proměnné s DateSerial
Funkce DateSerial vrátí datum na základě zadaného roku, měsíce a dne:
| 123 | Dim dsDatedsDate = DateSerial (2010, 11, 11) |
Přiřaďte čas proměnné pomocí TimeSerial
Funkce TimeSerial vrátí čas na základě zadané hodiny, minuty a sekundy:
| 123 | Dim tsTimetsTime = TimeSerial (10, 10, 45) |
Při jejich použití v kódu musíte data uzavřít # nebo ”, jak je uvedeno níže:
Funkce VBA DateValue
K inicializaci data lze použít funkci VBA DateValue. K inicializaci data ve VBA lze použít následující kód:
| 1 | MsgBox DateValue ("1/1/2010") |
Funkce VBA TimeValue
| 1 | MsgBox TimeValue ("21:30:57") |
Příklad proměnné data Excel VBA
Tento postup ukazuje, jak vytvořit proměnné data, přiřadit jim hodnoty a odeslat je do listu aplikace Excel:
| 12345678910111213 | Dílčí deklaraceAVariableAsADate ()Dim dateOne As DateDim dateDwo As DatedateOne = #1/1/2019 #dateTwo = "1/2/2019"Rozsah („A1“). Hodnota = dateOneRozsah ("A2"). Hodnota = dateTwoEnd Sub |
Výsledek je:
V tomto kurzu se můžete dozvědět více o funkcích data.
Proměnná data VBA v přístupu
Proměnná data funguje v Access VBA úplně stejně jako v Excelu VBA.
Tento postup ukazuje, jak vytvořit proměnnou data a aktualizovat pole v přístupové tabulce s touto hodnotou.
| 12345 | Dílčí deklaraceAVariableAsADate ()Dim dtWork As DatedtWork = #05/10/2020 #DoCmd.RunSql "UPDATE tblJobs SET WorkDate = #" & dtWork & " # WHERE JobNo = 6"End Sub |
