Расчёт срока годности в Excel: формулы, примеры и автоматизация

Контроль сроков годности — критически важная задача для аптек, складов, лабораторий и пищевых производств. Даже небольшая ошибка в учёте может привести к штрафам, порче продукции или угрозе здоровью. Excel позволяет автоматизировать этот процесс, исключая человеческий фактор: от простого вычитания дат до сложных систем оповещений с цветовой маркировкой.

В этой статье вы найдёте практические решения для разных сценариев: как посчитать остаток срока годности, настроить уведомления о просрочке, визуализировать данные с помощью условного форматирования и даже интегрировать Excel с системами штрихкодирования. Мы разберём уникальные формулы для работы с датами, которые не встретишь в стандартных руководствах — например, как учитывать рабочие дни или исключать выходные из расчётов.

Базовые формулы для расчёта сроков годности

Начнём с простейшего: вычисления количества дней между текущей датой и датой истечения срока. Для этого достаточно функции РАЗНДАТ (или DATEDIF в английской версии). Например, если дата производства находится в ячейке A2, а срок годности в месяцах — в B2, формула для даты истечения будет:

=ДАТА(ГОД(A2); МЕСЯЦ(A2)+B2; ДЕНЬ(A2))

Чтобы узнать, сколько дней осталось до окончания срока, используйте:

=РАЗНДАТ(СЕГОДНЯ(); ДАТА(ГОД(A2); МЕСЯЦ(A2)+B2; ДЕНЬ(A2)); "d")

• 📅 ДАТА() — создаёт дату из года, месяца и дня. Подходит для расчёта даты истечения.
• ⏳ РАЗНДАТ() — вычисляет разницу между датами в днях, месяцах или годах. Аргумент "d" возвращает дни.
• 🔄 СЕГОДНЯ() — динамически обновляет текущую дату при каждом открытии файла.

Важно: если срок годности указан в днях (например, 30 суток), формула упрощается до =A2 + B2, где A2 — дата производства, а B2 — количество дней.

Учёт рабочих дней: исключаем выходные и праздники

Для продуктов с ограниченным сроком хранения в рабочих днях (например, скоропортящихся товаров, требующих контроля в будни) стандартная функция РАЗНДАТ не подходит. Здесь поможет ЧИСТРАБДНИ (или NETWORKDAYS):

=ЧИСТРАБДНИ(СЕГОДНЯ(); ДАТА_ИСТЕЧЕНИЯ)

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

=ЧИСТРАБДНИ(СЕГОДНЯ(); ДАТА_ИСТЕЧЕНИЯ; Праздники!A2:A20)

• 🏢 ЧИСТРАБДНИ — считает только рабочие дни (пн-пт), игнорируя субботу и воскресенье.
• 🎉 Диапазон праздников — создайте отдельный лист с перечнем официальных праздников вашего региона.
• ⚠️ Региональные особенности — в некоторых странах рабочая неделя может начинаться с воскресенья. Настройте это в Параметры Excel → Календарь.

Условное форматирование: визуальные оповещения о просрочке

Цветовая маркировка помогает быстро идентифицировать просроченные или близкие к истечению сроки. Например, чтобы выделить красным ячейки с просроченными товарами:

1. Выделите диапазон с датами истечения.
2. Перейдите на вкладку Главная → Условное форматирование → Правила выделения ячеек → Меньше.
3. Введите формулу =СЕГОДНЯ() и выберите красный цвет заливки.

Для более гибкой настройки используйте формулы в условном форматировании:

=И(ДАТА_ИСТЕЧЕНИЯ-СЕГОДНЯ()<=30; ДАТА_ИСТЕЧЕНИЯ>СЕГОДНЯ())

Эта формула выделит жёлтым товары, у которых осталось менее 30 дней до истечения срока.

Автоматизация с помощью Power Query

Если вы работаете с большими объёмами данных (например, сканируете штрихкоды товаров), ручной ввод дат неэффективен. Power Query позволяет импортировать данные из внешних источников (баз данных, CSV-файлов) и автоматически рассчитывать сроки годности.

Пример шагов для импорта данных из CSV:

1. Перейдите на вкладку Данные → Получить данные → Из файла → Из текстового/CSV.
2. Выберите файл со списком товаров и датами производства.
3. В редакторе Power Query добавьте столбец с формулой:

   = Date.AddMonths([Дата_производства], [Срок_в_месяцах])

4. Загрузите данные в Excel.

Преимущество этого метода — динамическое обновление: при изменении исходного файла достаточно нажать "Обновить" на вкладке Данные, и все расчёты пересчитаются автоматически.

Добавить источник данных|Создать столбец с датой истечения|Преобразовать типы данных в "Дата"|Загрузить в таблицу Excel|Настроить условное форматирование-->

Интеграция с штрихкодами и сканерами

Для складов и аптек актуальна задача связать штрихкоды товаров с их сроками годности. Это можно реализовать через:

• 📦 VBA-макросы — скрипты, которые считывают данные со сканера и автоматически заполняют таблицу.
• 🔗 Power Apps — создание мобильного приложения для сканирования и отправки данных в Excel.
• 🖥️ Готовые надстройки — например, Barcode Add-In for Excel (платные решения).

Пример VBA-кода для обработки штрихкода (предполагается, что штрихкод содержит дату производства в формате ГГММДД):

Sub ProcessBarcode()
Dim barcode As String
Dim prodDate As Date
barcode = InputBox("Отсканируйте штрихкод:")
prodDate = DateSerial(Left(barcode, 2), Mid(barcode, 3, 2), Right(barcode, 2))
ActiveCell.Value = prodDate
ActiveCell.Offset(0, 1).Value = DateAdd("m", 12, prodDate) ' Срок 12 месяцев
End Sub

⚠️ Внимание: При работе со сканерами убедитесь, что Excel настроен на автоматический ввод данных (Параметры → Дополнительно → Разрешить редактирование прямо в ячейках). Иначе сканированные значения могут не попадать в нужные поля.

Продвинутые сценарии: динамические отчёты и оповещения

Для менеджеров складов полезно создавать сводные отчёты по категориям товаров с истекающими сроками. Используйте сводные таблицы с фильтрами по:

• 📊 Категории товара (лекарства, продукты, химикаты).
• ⏰ Остатку дней (0–30, 31–90, 90+).
• 🏭 Поставщику — чтобы оперативно связаться при выявлении просрочки.

Для автоматических оповещений по email настройте Outlook + VBA:

Sub SendExpiryAlert()
Dim OutApp As Object, OutMail As Object
Dim rng As Range, cell As Range
Set rng = Range("A2:A100") ' Диапазон с датами истечения
For Each cell In rng
If cell.Value < Date And cell.Offset(0, 1).Value = "" Then ' Если просрочено и не отправлено уведомление
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "manager@example.com"
.Subject = "Просрочен товар: " & cell.Offset(0, -1).Value
.Body = "Дата истечения: " & cell.Value & vbCrLf & "Наименование: " & cell.Offset(0, -1).Value
.Send
End With
cell.Offset(0, 1).Value = "Уведомление отправлено" ' Метка для избежания повторных писем
End If
Next cell
End Sub

⚠️ Внимание: Перед использованием VBA-скриптов для отправки писем убедитесь, что ваш Outlook настроен на работу с макросами, иначе письма не уйдут. Также проверьте папку "Исходящие" на наличие неотправленных сообщений.

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

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

• 🗓️ Неправильный формат ячеек — если ячейка отформатирована как "Текст", Excel не распознаёт дату. Исправляйте через Формат ячеек → Дата.
• 🔢 Округление в формулах — функция РАЗНДАТ может давать неточные результаты при работе с месяцами (например, 1 месяц ≠ 30 дней). Используйте дни для точности.
• 🌍 Региональные настройки — в американском Excel даты вводятся как ММ/ДД/ГГГГ, а в российском — ДД.ММ.ГГГГ. Это может сломать формулы при переносе файлов.

Чтобы проверить корректность расчётов, используйте тестовые данные:

Обратите внимание на последний пример: функция ДАТАМЕС (или EDATE) корректно обрабатывает переход через конец года, в отличие от ручного сложения месяцев.

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

=ДАТАМЕС(ДАТА_ПРОИЗВОДСТВА; СРОК_В_ГОДАХ*12)

=РАБДЕНЬ(ДАТА_ПРОИЗВОДСТВА; СРОК_В_ДНЯХ; [Диапазон_праздников])

=И(РАЗНДАТ(СЕГОДНЯ();ДАТА_ИСТЕЧЕНИЯ;"d")<=30;РАЗНДАТ(СЕГОДНЯ();ДАТА_ИСТЕЧЕНИЯ;"d")>0)

=ДАТАЗНАЧ("01.01.2023")