Am trecut deja în revistă ce variabile, tipuri de date și constante sunt, în tutorialul nostru Tipuri de date VBA - Variabile și constante. În acest tutorial, vom prezenta cum să declarăm o variabilă ca dată.
În VBA, tipul de date date este stocat ca o zecimală. Atât datele, cât și orele pot fi stocate în acest tip de date. Tipul de date VBA date poate stoca valori cuprinse între 1 ianuarie 100 - 31 decembrie 9999.
VBA Variabilă de dată
Declarați o variabilă ca dată folosind cuvântul cheie Dim:
| 1 | Dim data One ca Data |
Apoi, puteți atribui o dată variabilei de dată. Există mai multe moduri de a genera date de atribuit variabilelor:
Atribuiți azi variabilei
Funcția Data va reveni la data de astăzi:
| 123 | Dim dtAstăzidtToday = Data |
Atribuiți acum la Variabilă
Funcția Acum va reveni la data și ora curentă de astăzi:
| 123 | Dim dAcumdNow = Acum |
Alocați timp variabilei
Funcția Time va reveni la ora curentă:
| 123 | Dim tTimetTime = Timp |
Atribuiți o dată variabilei cu DateSerial
Funcția DateSerial va returna o dată bazată pe un an, lună și zi de intrare:
| 123 | Dim dsDatedsDate = DateSerial (11, 2010, 11) |
Atribuiți un timp la variabilă cu TimeSerial
Funcția TimeSerial va returna o oră, bazată pe o oră, minut și secundă de intrare:
| 123 | Dim tsTimetsTime = TimeSerial (10, 10, 45) |
Trebuie să atașați datele cu # sau ”atunci când le utilizați în codul dvs., după cum se arată mai jos:
Funcția VBA DateValue
Funcția VBA DateValue poate fi utilizată pentru a inițializa o dată. Următorul cod poate fi utilizat pentru a inițializa o dată în VBA:
| 1 | MsgBox DateValue („01.01.2010”) |
Funcția VBA TimeValue
| 1 | MsgBox TimeValue („21:30:57”) |
Excel VBA Data Exemplu de variabilă
Această procedură arată cum să creați variabile de dată, să le atribuiți valori și să le scoateți într-o foaie de lucru Excel:
| 12345678910111213 | Sub DeclaringAVariableAsADate ()Dim dateOne as DateDim data Două ca datădateOne = # 1/1/2019 #dataTwo = "1/2/2019"Interval („A1”). Valoare = dataOneInterval („A2”). Valoare = datăDouăSfârșitul Sub |
Rezultatul este:
Puteți afla mai multe despre funcțiile de dată în acest tutorial.
VBA Variabilă de dată în acces
Variabila de dată funcționează exact la fel în Access VBA ca în Excel VBA.
Această procedură demonstrează cum să creați o variabilă de dată și să actualizați un câmp dintr-un tabel de acces cu valoarea.
| 12345 | Sub DeclaringAVariableAsADate ()Dim dtWork as DatedtWork = # 10/05/2020 #DoCmd.RunSql "UPDATE tblJobs SET WorkDate = #" & dtWork & "# WHERE JobNo = 6"Sfârșitul Sub |
