Як використовувати функцію dateserial у vba (з прикладом)

Ви можете використовувати функцію DateSerial у VBA, щоб повернути дату для певного дня, місяця та року.

Ось поширений спосіб використання цієї функції на практиці:

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

Цей конкретний макрос поверне значення дати в діапазоні D2:D13 , використовуючи значення року в стовпці C, значення місяця в стовпці B і значення дня в стовпці A.

У наступному прикладі показано, як використовувати функцію DateSerial на практиці.

Приклад: як використовувати функцію DateSerial у VBA

Припустімо, що в Excel є такі стовпці, які відображають день, місяць і рік для різних дат:

Припустимо, ми хочемо відобразити значення дати в стовпці D, використовуючи значення дня, місяця та року в кожному рядку.

Для цього ми можемо створити такий макрос:

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

У стовпці D відображається значення дати, отримане в результаті використання значень дня, місяця та року зі стовпців A, B та C відповідно.

Примітка . Ви можете знайти повну документацію для функції VBA DateSerial тут .

Додаткові ресурси

У наступних посібниках пояснюється, як виконувати інші типові завдання у VBA:

Як порівняти дати у VBA
Як перетворити дату на номер тижня у VBA
Як обчислити дні між двома датами у VBA