Мы уже рассмотрели, что такое переменные, типы данных и константы, в нашем руководстве по типам данных VBA - переменные и константы. В этом руководстве мы расскажем, как объявить переменную как дату.
В VBA тип данных даты хранится в виде десятичной дроби. В этом типе данных могут храниться как дата, так и время. Тип данных даты VBA может хранить значения в диапазоне от 1 января 100 до 31 декабря 9999.
Переменная даты VBA
Вы объявляете переменную как дату с помощью ключевого слова Dim:
| 1 | Dim dateOne as Date |
Затем вы можете назначить дату переменной даты. Есть несколько способов создания дат для присвоения переменным:
Назначить сегодня переменной
Функция Date вернет сегодняшнюю дату:
| 123 | Dim dtTodaydtToday = Дата |
Назначить сейчас переменной
Функция Now вернет сегодняшнюю дату и текущее время:
| 123 | Dim dNowdNow = Сейчас |
Назначить время переменной
Функция времени вернет текущее время:
| 123 | Тусклое времяtTime = Время |
Назначьте дату переменной с помощью 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 («01.01.2010») |
Функция VBA TimeValue
| 1 | MsgBox TimeValue ("21:30:57") |
Пример переменной даты Excel VBA
Эта процедура демонстрирует, как создавать переменные даты, присваивать им значения и выводить их на лист Excel:
| 12345678910111213 | Sub DeclaringAVariableAsADate ()Тусклая дата Один как ДатаТусклая дата: два как датаdateOne = # 1/1/2019 #dateTwo = "1/2/2019"Диапазон ("A1"). Значение = dateOneДиапазон ("A2"). Значение = dateTwoКонец подписки |
Результат:
Вы можете узнать больше о функциях даты в этом руководстве.
Переменная даты VBA в Access
Переменная даты работает в Access VBA точно так же, как и в Excel VBA.
Эта процедура демонстрирует, как создать переменную даты и обновить поле в таблице доступа значением.
| 12345 | Sub DeclaringAVariableAsADate ()Dim dtWork As DatedtWork = # 05/10/2020 #DoCmd.RunSql "UPDATE tblJobs SET WorkDate = #" & dtWork & "# WHERE JobNo = 6"Конец подписки |
