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

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

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

 Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = DateValue(Range(" A " & i))
Next i
    
End Sub

Цей конкретний макрос витягне значення дати з дат і часу в діапазоні A2:A7 і поверне це значення дати у відповідному діапазоні B2:B7 .

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

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

Припустімо, що в Excel є такий стовпець дати/часу:

Припустімо, ми хочемо отримати дату з кожної дати й часу в стовпці A та відобразити її в стовпці B.

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

 Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = DateValue(Range(" A " & i))
Next i
    
End Sub

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

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

Наприклад:

• Функція DateValue повертає 01/01/2023 з 01/01/2023 10:15:34
• Функція DateValue повертає 03.01.2023 з 03.01.2023 12:34:18
• Функція DateValue повертає 05.01.2023 з 05.01.2023 8:23:00

І так далі.

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

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

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

VBA: як порівняти дати
VBA: Як отримати назву місяця від дати
VBA: число більше за дату