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