Ми вже розглянули, що таке змінні, типи даних та константи, у нашому підручнику Типи даних VBA - Змінні та Константи. У цьому посібнику ми розглянемо, як оголосити змінну датою.
У VBA тип даних дати зберігається у вигляді десяткового дробу. У цьому типі даних можуть зберігатися як дати, так і час. Тип даних дати VBA може зберігати значення від 1 січня 100 до 31 грудня 9999.
Змінна дати VBA
Ви оголошуєте змінну датою за допомогою ключового слова Dim:
| 1 | Затемнити дату Один як дата |
Потім ви можете призначити дату змінній дати. Існує кілька способів створення дат для призначення змінним:
Призначити змінній сьогодні
Функція Date поверне сьогоднішню дату:
| 123 | Dim dtСьогодніdtToday = Дата |
Призначити змінній зараз
Функція Now поверне сьогоднішню дату та поточний час:
| 123 | Dim dNowdNow = Зараз |
Призначити час змінній
Функція часу поверне поточний час:
| 123 | Dim tTimetTime = Час |
Призначте дату змінній за допомогою DateSerial
Функція DateSerial поверне дату на основі введеного року, місяця та дня:
| 123 | Затемнити 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 | Піддекларування AVariableAsADate ()Затемнити дату Один як датаЗатемнити дату Два як датуdateOne = #1/1/2019 #dateTwo = "1/2/2019"Діапазон ("A1"). Значення = датаOneДіапазон ("A2"). Значення = дата ДвіEnd Sub |
Результат такий:
Ви можете дізнатися більше про функції дати в цьому підручнику.
Змінна дати VBA у Access
Змінна дати працює точно так само в Access VBA, як і в Excel VBA.
Ця процедура демонструє, як створити змінну дати та оновити поле у таблиці доступу зі значенням.
| 12345 | Піддекларування AVariableAsADate ()Dim dtWork As DatedtWork = #10/10/2020 #DoCmd.RunSql "ОНОВЛЕННЯ tblJobs Встановити WorkDate = #" & dtWork & " # WHERE JobNo = 6"End Sub |
