Вече разгледахме какви са променливите, типовете данни и константи в нашия урок за типове данни VBA - Променливи и константи. В този урок ще разгледаме как да декларираме променлива като дата.
Във VBA типът дата се съхранява като десетичен знак. В този тип данни могат да се съхраняват както дати, така и часове. Типът данни за дата VBA може да съхранява стойности, вариращи от 1 януари 100 - 31 декември 9999 г.
Променлива за дата на VBA
Декларирате променлива като дата с помощта на ключовата дума Dim:
| 1 | Затъмняване на дата Една като дата |
След това можете да зададете дата на променливата за дата. Има няколко начина за генериране на дати за присвояване на променливи:
Присвояване днес на променлива
Функцията за дата ще върне днешната дата:
| 123 | Dim dt ДнесdtToday = Дата |
Присвояване сега на променлива
Функцията Now ще върне днешната дата и текущия час:
| 123 | Dim dNowdNow = Сега |
Задайте време на променлива
Функцията Time ще върне текущото време:
| 123 | Dim tTimetTime = Време |
Задайте дата на променлива с DateSerial
Функцията DateSerial ще върне дата въз основа на въведена година, месец и ден:
| 123 | Dim dsDatedsDate = DateSerial (2010, 11, 11) |
Задайте време на променлива с TimeSerial
Функцията TimeSerial ще върне време, въз основа на въведен час, минута и секунда:
| 123 | Dim tsTimetsTime = TimeSerial (10, 10, 45) |
Трябва да включите датите с # или ”, когато ги използвате в кода си, както е показано по -долу:
Функция VBA DateValue
Функцията VBA DateValue може да се използва за инициализиране на дата. Следният код може да се използва за инициализиране на дата във VBA:
| 1 | MsgBox DateValue ("1/1/2010") |
Функция VBA TimeValue
| 1 | MsgBox TimeValue ("21:30:57") |
Пример за променлива за дата на VBA в Excel
Тази процедура демонстрира как да създавате променливи за дата, да им присвоявате стойности и да ги извеждате в работен лист на Excel:
| 12345678910111213 | Поддеклариране AVariableAsADate ()Затъмняване на дата Една като датаЗатъмняване на дата Две като датаdateOne = #1/1/2019 #dateTwo = "1/2/2019"Диапазон ("A1"). Стойност = датаOneДиапазон ("A2"). Стойност = дата ДвеEnd Sub |
Резултатът е:
Можете да научите повече за функциите за дата в този урок.
Променлива за дата на VBA в Access
Променливата за дата работи абсолютно същото в Access VBA като в Excel VBA.
Тази процедура демонстрира как да създадете променлива за дата и да актуализирате поле в таблица за достъп със стойността.
| 12345 | Поддеклариране AVariableAsADate ()Dim dt Работете като датаdtWork = #05/10/2020 #DoCmd.RunSql "UPDATE tblJobs SET WorkDate = #" & dtWork & " # WHERE JobNo = 6"End Sub |
