Как посчитать количество часов между двумя датами в Excel: от простых формул до сложных расчетов

Здесь +1 добавляет полные сутки к времени окончания, если оно меньше времени начала (то есть перешло на следующий день.

Альтернативный вариант для Excel 365 и Excel 2021:

= (МАКС(B2; A2) - МИН(B2; A2)) * 24

3. Исключаем выходные и праздники: функция РАБДЕНЬ

Для расчета рабочих часов с учетом выходных (суббота-воскресенье) и праздников понадобится комбинация функций РАБДЕНЬ.МЕЖД и ВРЕМЯ. Этот метод актуален для табелей учета рабочего времени или расчета оплаты по фактически отработанным часам.

Базовая формула:

= (РАБДЕНЬ.МЕЖД(A2; B2; [Праздники]) - 1)  24 + (1 - ВРЕМЯ(A2))  24 + ВРЕМЯ(B2) * 24

Где:

• 📅 [Праздники] — диапазон с датами праздников (например, D2:D10)
• ⏱️ (1 - ВРЕМЯ(A2)) * 24 — часы с начала рабочего дня до времени старта
• ⏰ ВРЕМЯ(B2) * 24 — часы с времени окончания до конца рабочего дня

Пример для 8-часового рабочего дня (с 9:00 до 18:00) с выходными суббота-воскресенье:

⚠️ Внимание: Функция РАБДЕНЬ.МЕЖД доступна только в Excel 2010 и новее. Для Excel 2007 используйте РАБДЕНЬ с дополнительными вычислениями.

4. Расчет с учетом перерывов: вычитаем нерабочее время

Если в рабочем графике предусмотрены перерывы (например, обед с 13:00 до 14:00), их нужно исключить из общего времени. Для этого используем функцию ЕСЛИ с проверкой временных интервалов.

Формула для вычитания фиксированного перерыва:

= (B2 - A2) * 24 - ЕСЛИ(И(ВРЕМЯ(A2)<=ВРЕМЯ("13:00"); ВРЕМЯ(B2)>=ВРЕМЯ("14:00")); 1; 0)

Логика:

• 🕒 Проверяем, начинается ли смена до 13:00 и заканчивается после 14:00
• ➖ Если да — вычитаем 1 час (продолжительность перерыва)
• ✅ Если перерыв не попадает в интервал — вычитаем 0

Для нескольких перерывов (например, два по 15 минут) модифицируем формулу:

= (B2 - A2) * 24 -
ЕСЛИ(И(ВРЕМЯ(A2)<=ВРЕМЯ("10:00"); ВРЕМЯ(B2)>=ВРЕМЯ("10:15")); 0,25; 0) -
ЕСЛИ(И(ВРЕМЯ(A2)<=ВРЕМЯ("15:00"); ВРЕМЯ(B2)>=ВРЕМЯ("15:15")); 0,25; 0)

= (B2 - A2)  24  0,95

5. Продвинутый метод: пользовательская функция на VBA

Если вам регулярно нужно считать часы с учетом сложных правил (например, скользящий график, индивидуальные выходные или гибкие перерывы), имеет смысл создать пользовательскую функцию на VBA. Это сэкономит время и исключит ошибки в ручных расчетах.

Пример кода для функции WorkingHours, которая учитывает:

• 📆 Индивидуальные выходные дни (передаются как массив)
• ⏳ Перерывы (начало и конец указываются в параметрах)
• 🕐 Рабочие часы (например, с 9:00 до 18:00)

Function WorkingHours(StartDate As Date, EndDate As Date, _
Optional WorkStart As Double = 0.375, _ '9:00 AM
Optional WorkEnd As Double = 0.75, _   '6:00 PM
Optional BreakStart As Double = 0.5417, _ '13:00
Optional BreakEnd As Double = 0.5833, _   '14:00
Optional Holidays As Variant) As Double

Dim TotalHours As Double
Dim CurrentDay As Date
Dim DayStart As Date, DayEnd As Date
Dim IsHoliday As Boolean

' Проверяем корректность дат
If StartDate > EndDate Then
WorkingHours = 0
Exit Function
End If

' Округляем даты до начала и конца рабочего дня
CurrentDay = Int(StartDate)
DayStart = CurrentDay + WorkStart
If StartDate < DayStart Then StartDate = DayStart

CurrentDay = Int(EndDate)
DayEnd = CurrentDay + WorkEnd
If EndDate > DayEnd Then EndDate = DayEnd

' Основной цикл по дням
Do While CurrentDay <= Int(EndDate)
IsHoliday = False

' Проверяем, является ли день выходным (суббота/воскресенье)
If Weekday(CurrentDay, vbMonday) > 5 Then IsHoliday = True

' Проверяем, является ли день праздничным
If Not IsMissing(Holidays) Then
Dim Holiday As Variant
For Each Holiday In Holidays
If Holiday = CurrentDay Then
IsHoliday = True
Exit For
End If
Next Holiday
End If

' Если не выходной, считаем часы
If Not IsHoliday Then
Dim DayStartTime As Date, DayEndTime As Date
DayStartTime = WorksheetFunction.Max(CurrentDay + WorkStart, StartDate)
DayEndTime = WorksheetFunction.Min(CurrentDay + WorkEnd, EndDate)

' Вычитаем перерыв, если он попадает в интервал
Dim BreakStartTime As Date, BreakEndTime As Date
BreakStartTime = CurrentDay + BreakStart
BreakEndTime = CurrentDay + BreakEnd

If DayEndTime > DayStartTime Then
If BreakEndTime > DayStartTime And BreakStartTime < DayEndTime Then
TotalHours = TotalHours + (DayEndTime - DayStartTime)  24 - (BreakEndTime - BreakStartTime)  24
Else
TotalHours = TotalHours + (DayEndTime - DayStartTime) * 24
End If
End If
End If

CurrentDay = CurrentDay + 1
Loop

WorkingHours = TotalHours
End Function

Чтобы использовать эту функцию:

1. Нажмите Alt + F11, чтобы открыть редактор VBA.
2. Вставьте код в модуль (Вставка → Модуль).
3. Сохраните файл как .xlsm (с поддержкой макросов).
4. В ячейке Excel введите: =WorkingHours(A2; B2; 0,375; 0,75; 0,5417; 0,5833; D2:D10)

6. Типичные ошибки и как их избежать

Даже опытные пользователи Excel допускают ошибки при работе с датами и временем. Вот TOP-5 проблем и их решения:

Критическая ошибка: если вы работаете с временными метками из внешних систем (например, 1С или CRM), проверьте их временную зону. Разница даже в 1 час приведет к искажению результатов на 5-10%.

Чтобы минимизировать риски, всегда тестируйте формулы на контрольных примерах:

• 🔹 Интервал в пределах одного дня (например, 09:00–18:00)
• 🔹 Интервал с переходом через полночь (22:00–06:00)
• 🔹 Интервал с выходными (пятница–понедельник)

FAQ: Ответы на частые вопросы

= (РАБДЕНЬ.МЕЖД(A2; B2) - 1) * (ВРЕМЯ(18;0;0) - ВРЕМЯ(9;0;0)) + ЕСЛИ(РАБДЕНЬ.МЕЖД(A2; B2)>0; МИН(B2; ВРЕМЯ(18;0;0)) - МАКС(A2; ВРЕМЯ(9;0;0)); 0)