Що таке VBA DateSerial?

Функція VBA DATESERIAL - це вбудована функція в Excel. Функція DATESERIAL повертає дату, вказану для року, місяця та дня. Скажімо, наприклад, якщо сьогоднішня дата - 18 липня 2019 року. Деякі користувачі можуть записати її як 18 липня 19 або 18 липня 19. Формати дат можуть бути різними для кількох користувачів. Це дає нам нудне завдання роботи з більшою кількістю дат у різних форматах.

Як визначено вище твердження проблеми, формат дат може бути різним для кількох користувачів. У цьому випадку VBA допомагає серійна функція дати. Це дуже хороша функція скласти власну дату зі значеннями, які ми обираємо визначити. Дайте нам детальну інформацію про цю функцію. Функція DateSerial у VBA - це функція дати та часу, тому повернене значення для цієї функції - DATE. Метод використання синтаксису для цієї функції буде наступним.

Синтаксис VBA DateSerial

Синтаксис функції VBA DateSerial у excel такий:

Це займає три аргументи рік, місяць і день.

  • Рік: Прийнятий діапазон для цієї частини аргументу у функції становить від 100-9999. Тип даних для аргументу повинен бути цілим числом.
  • Місяць: Прийнятий діапазон для цієї частини аргументу у функції становить від 1-12. Тип даних для аргументу повинен бути цілим числом.
  • День: Прийнятий діапазон для цієї частини аргументу у функції від 1-31. Тип даних для аргументу повинен бути цілим числом.

Але ось класна частина цієї функції. Якщо ми надаємо аргумент вище прийнятого діапазону, функція замість цього не повертає помилку, вона обчислює подальшу частину діапазону та відображає дату. Наприклад, якщо я даю дані як серійні дати (2019, 14, 02), тепер ми знаємо, що може бути лише 12 місяців на рік, але я наводив 14 як аргумент. Функція не поверне помилку, а замість цього додасть два додаткові місяці у поточному році, тому вихід буде 2020-02-02.

Як використовувати функцію VBA DateSerial в Excel?

Ми дізнаємось, як використовувати функцію VBA DateSerial з кількома прикладами в excel.

Ви можете завантажити цей шаблон VBA DateSerial Excel тут - VBA DateSerial Excel шаблон

Перевіримо цю функцію на кількох прикладах, які зроблять для нас речі набагато зрозумілішими.

Приклад №1 - VBA DateSerial

Давайте спочатку надамо просту дату для змінної, використовуючи функцію послідовного перегляду дат і подивимось отриманий результат.

Крок 1: Перш ніж розпочати наші приклади, спочатку переконайтеся, що увімкнено вкладку розробника, а потім перейдіть до розділу коду, щоб відкрити редактор VB, натиснувши на Visual Basic так, як показано на зображенні нижче.

Крок 2: У вікні, яке показано вище, натисніть на вкладку Вставити, щоб вставити модуль. Ми будемо працювати в одному модулі для всіх наших прикладів.

Крок 3: Запустіть підпроцедуру наступним чином і оголосіть змінну як тип даних дати.

Код:

 Sub Sample () Dim Dt As End End Sub

Крок 4: Тепер давайте надати даній змінній дату за допомогою функції послідовної дати.

Код:

 Sub Sample () Dim Dt As Date Dt = DateSerial (2019, 7, 2) Кінець Sub

Крок 5: Відображення значення, збереженого в нашій змінній, за допомогою функції msgbox.

Код:

 Підпроба () Dim Dt As Date Dt = DateSerial (2019, 7, 2) MsgBox Dt End Sub

Крок 6: Коли ми виконуємо наведений вище код, ми отримуємо наступний результат.

Приклад №2 - VBA DateSerial

Тепер давайте перевіримо теорію, яку ми обговорювали вище у вступі, що якщо ми надаємо значення крім прийнятого діапазону, а функція обчислює для нас дату.

Крок 1: У цьому ж модулі запустіть інший підпроцедур наступним чином.

Код:

 Sub Sample1 () Кінець Sub

Крок 2: Тепер визначте змінну з типом даних дати.

Код:

 Sub Sample1 () Dim Dt як дата закінчення Sub

Крок 3: Надамо вхід до змінної DT, використовуючи функцію послідовного датування, як показано нижче.

Код:

 Sub Sample1 () Dim Dt As Date Dt = DateSerial (2019, 14, 2) Кінець Sub

Крок 4: Відображення значення, збереженого в змінній Dt, за допомогою функції msgbox.

Код:

 Sub Sample1 () Dim Dt As Date Dt = DateSerial (2019, 14, 2) MsgBox Dt End Sub

Крок 5: Тепер виконайте вищевказаний код і подивіться результат нижче, як показано нижче.

Ми можемо бачити, що рік змінився, оскільки ми надали два додаткові місяці для аргументів. В основному, ця функція додала 14 місяців до 2019 року, що дало нам другий місяць 2020 року та другу дату.

Приклад №3 - VBA DateSerial

У наведених вище прикладах ми наводили аргументи загальним чином. Але ми обговорили, як користувачі можуть вводити абсурдні значення у розділі дат у форматі, оскільки введення дат відрізняється від окремих до окремих. Ми порівняємо два формати дат, використовуючи функцію серійної дати в цьому прикладі.

Крок 1: У цьому ж модулі визначте інший підпроцедур, як випливає з третього прикладу.

Код:

 Sub Sample2 () Кінець Sub

Крок 2: У цьому сценарії визначте дві змінні як дати, як показано нижче.

Код:

 Sub Sample2 () Dim Dt1, Dt2 As Date End Sub

Крок 3: Тепер у Першій змінній давайте наводимо дату простим регулярним способом, використовуючи функцію dataserial.

Код:

 Sub Sample2 () Dim Dt1, Dt2 As Date Dt1 = DateSerial (2019, 12, 31) Кінець Sub

Крок 4: Тепер для другої змінної давайте наводимо дату нерегулярним способом, використовуючи функцію датування серії, як показано нижче.

Код:

 Sub Sample2 () Dim Dt1, Dt2 As Date Dt1 = DateSerial (2019, 12, 31) Dt2 = DateSerial (19, 12, 31) Кінець Sub

Крок 5: Тепер надрукуйте обидва ці значення за допомогою функції msgbox.

Код:

 Sub Sample2 () Dim Dt1, Dt2 As Date Dt1 = DateSerial (2019, 12, 31) Dt2 = DateSerial (19, 12, 31) MsgBox Dt1 & "" & Dt2 End Sub

Крок 6: Виконайте вищевказаний код, щоб знайти наступний результат, показаний нижче.

Ми можемо бачити, що обидва дати однакові. Двозначний рік 19 трактується як 2019 рік.

Що потрібно пам’ятати

  • Це функція дати та часу, тому вихід є в Date.
  • Якщо значення, надане функції, вище прийнятого діапазону функції, воно автоматично обчислює дату, а не дає помилку.
  • Якщо значення, надані аргументам, більше значення, яке може містити ціле число, то функція повертає помилку.

Рекомендовані статті

Це посібник до VBA DateSerial. Тут ми обговорюємо, як використовувати Excel VBA DateSerial Function разом із практичними прикладами та шаблоном Excel, який можна завантажити. Ви також можете ознайомитися з іншими запропонованими нами статтями -

  1. VBA InStr пояснив із прикладами
  2. Тип даних цілочисельного VBA
  3. VBA ISNULL Пояснюється прикладами
  4. Формат дати VBA (приклади)

Категорія:

VBA