Vba: як обчислити дні між двома датами

Ви можете використовувати такий базовий синтаксис у VBA, щоб обчислити кількість днів між двома датами:

 SubDaysBetweenDates ()

    Dim i As Integer

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

У цьому конкретному прикладі обчислюється кількість днів між датами у відповідних клітинках у діапазонах A2:A7 і B2:B7 і повертаються результати в діапазоні C2:C7 .

Зауважте, що аргумент «D» у функції DateDiff вказує, що ми хочемо обчислити різницю дат у днях.

Зверніться до сторінки документації VBA , щоб отримати повний список одиниць, які можна використовувати для різниці дат.

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

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

Припустимо, що в Excel є два стовпці з датами:

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

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

 SubDaysBetweenDates ()

    Dim i As Integer

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

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

Кількість дат між кожною датою початку та кожною датою завершення вказано в стовпці C.

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

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

Як порівняти дати у VBA
Як відфільтрувати стовпець за допомогою VBA
Як сортувати значення за алфавітом у VBA