Как отнять месяц в 1С: все способы с практическими примерами

Работа с датами в 1С:Предприятие — одна из самых востребованных задач как для бухгалтеров, так и для программистов. Часто требуется сдвинуть дату на месяц назад: для расчета зарплаты за предыдущий период, формирования отчетов по прошлому месяцу или корректировки документов. В этой статье мы разберем все возможные способы вычитания месяцев в 1С 8.3 и 8.2, включая нюансы работы с концом/началом месяца, високосными годами и негативными значениями.

Важно понимать, что простое арифметическое вычитание 30 дней из даты — некорректный подход. Месяцы имеют разное количество дней (28-31), а февраль в високосном году — 29 дней. Поэтому в 1С предусмотрены специальные функции, которые учитывают календарные особенности. Мы покажем, как правильно использовать ДатаДоб(), НачМесяца(), КонецМесяца(), а также альтернативные методы через обработки и запросы.

Статья будет полезна:

• 📊 Бухгалтерам — для автоматического заполнения отчетов за прошлые периоды
• 💻 Программистам 1С — для написания универсальных процедур работы с датами
• 📦 Кладовщикам — при анализе оборотов складов по месяцам
• 👔 Кадровикам — для расчета среднего заработка за предыдущие периоды

1. Базовый метод: функция ДатаДоб()

Самый простой и универсальный способ отнять месяц в 1С — использовать встроенную функцию ДатаДоб(). Она автоматически учитывает количество дней в месяце и корректирует дату при переходах через границы месяцев/лет.

Синтаксис функции:

ДатаДоб(Дата, Месяц, День, Час, Минута, Секунда)

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

НоваяДата = ДатаДоб(ТекущаяДата, -1, 0, 0, 0, 0);

Примеры работы функции:

⚠️ Внимание: Если вы работаете с 1С 7.7, функция ДатаДоб() имеет другой синтаксис: ДатаДоб(Дата, Дней, Месяцев, Лет). Для вычитания месяца используйте: ДатаДоб(Дата, 0, -1, 0).

Преимущества метода:

• 🔹 Универсальность — работает во всех версиях 1С (с поправкой на синтаксис)
• 🔹 Автоматическая корректировка — учитывает количество дней в месяце
• 🔹 Простота — одна строка кода для любого сдвига

2. Работа с началом/концом месяца: НачМесяца() и КонецМесяца()

Часто требуется не просто отнять месяц, а получить первый или последний день предыдущего месяца. Например, для формирования отчетов за закрытый период. В таких случаях удобно комбинировать функции НачМесяца()/КонецМесяца() с ДатаДоб().

Примеры использования:

// Первый день предыдущего месяца
ПервыйДень = НачМесяца(ДатаДоб(ТекущаяДата, -1, 0, 0, 0, 0));

// Последний день предыдущего месяца
ПоследнийДень = КонецМесяца(ДатаДоб(ТекущаяДата, -1, 0, 0, 0, 0));

Альтернативный вариант — сначала получить начало текущего месяца, а затем отнять 1 день:

ПоследнийДеньПредыдМесяца = ДатаДоб(НачМесяца(ТекущаяДата), 0, -1, 0, 0, 0);

Когда это пригодится:

• 📅 Закрытие месяца — формирование проводок на последний день периода
• 📈 Аналитика — сравнение оборотов за текущий и предыдущий месяц
• 💰 Зарплата — расчет аванса/заработка за прошедший месяц

⚠️ Внимание: Функция КонецМесяца() возвращает дату с временем 23:59:59. Если вам нужно чистое значение даты без времени, используйте НачалоДня(КонецМесяца(...)).

Убедитесь, что дата не стала невалидной (например, 31 февраля)|Проверьте переход через год (декабрь → январь)|Учтите високосный год для февраля|Сравните результат с календарем для точности-->

3. Вычитание месяцев через запросы 1С

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

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

ВЫБРАТЬ
Документ.Ссылка КАК Ссылка,
Документ.Дата КАК Дата
ИЗ
Документ.РеализацияТоваровУслуг КАК Документ
ГДЕ
Документ.Дата МЕЖДУ
НачалоМесяца(ДобавитьМесяц(ТЕКУЩАЯДАТА(), -1))
И
КонецМесяца(ДобавитьМесяц(ТЕКУЩАЯДАТА(), -1))

Ключевые функции в запросах:

• 🔸 ДобавитьМесяц() — аналог ДатаДоб(), но работает только в запросах
• 🔸 НачалоМесяца()/КонецМесяца() — возвращают границы месяца
• 🔸 ТЕКУЩАЯДАТА() — текущая дата на сервере 1С

Особенности работы с запросами:

• 📌 В запросах нельзя использовать переменные напрямую — только параметры
• 📌 Для сложных вычислений лучше перенести логику в код, а в запросе использовать готовые даты
• 📌 Функция ДобавитьМесяц() доступна начиная с 1С:Предприятие 8.2.14

Запрос.УстановитьПараметр("ПревДата", ДатаДоб(ТекущаяДата, -1));
Запрос.Текст = "ВЫБРАТЬ ... ГДЕ Дата = &ПревДата";

4. Альтернативные методы: обработки и циклы

В редких случаях стандартные функции могут не подходить — например, если нужно реализовать кастомную логику вычитания месяцев (с учетом рабочих дней, праздников или других бизнес-правил). В таких ситуациях можно написать собственную процедуру.

Пример обработки для вычитания месяца с учетом рабочих дней:

Функция ОтнятьМесяцСУчетомРабочихДней(ИсходнаяДата)
ТекущаяДата = ИсходнаяДата;
МесяцОтнят = Ложь;

Пока НЕ МесяцОтнят Цикл
ТекущаяДата = ТекущаяДата - 1;
Если НЕ ЭтоРабочийДень(ТекущаяДата) Тогда
Продолжить;
КонецЕсли;

Если Месяц(ТекущаяДата) <> Месяц(ИсходнаяДата) Тогда
МесяцОтнят = Истина;
КонецЕсли;
КонецЦикла;

Возврат ТекущаяДата;
КонецФункции

// Вспомогательная функция для проверки рабочего дня
Функция ЭтоРабочийДень(Дата)
// Реализуйте свою логику проверки (календарь, праздники и т.д.)
Возврат Истина;
КонецФункции

Когда это может понадобиться:

• 🏢 Корпоративные календари — если в компании нестандартные рабочие дни
• 📅 Праздничные сдвиги — когда нужно учитывать переносы выходных
• 🔄 Сложные бизнес-правила — например, "отнять месяц, но не раньше 1 числа"

⚠️ Внимание: Самописные обработки дат могут работать медленнее стандартных функций, особенно при обработке больших массивов данных. Используйте их только при реальной необходимости.

5. Особенности работы с негативными датами

При вычитании месяцев можно получить дату в прошлом году или даже "негативную" дату (до 01.01.0001). В 1С такие даты обрабатываются корректно, но могут вызвать ошибки в отчетах или обменах данными.

Примеры проблемных случаев:

// Отнимаем месяц от 1 января - получаем 1 декабря прошлого года
ДатаДоб('00010101', -1) // Вернет '00011201' (1 декабря 1 года)

// Отнимаем месяц от 1 марта 1 года - получаем "негативную" дату
ДатаДоб('00010301', -1) // Вернет '00010201' (но год остается 1-м)

Как избежать ошибок:

• 🛡️ Проверяйте год — если дата ушла в прошлое столетие, возможно, логика неверна
• 🛡️ Используйте ограничения — например, не позволяйте дате стать раньше даты создания базы
• 🛡️ Логируйте предупреждения — если дата вышла за разумные пределы (например, раньше 2000 года)

Пример обработки "негативных" дат:

Функция БезопасноеВычитаниеМесяца(ИсходнаяДата, КоличествоМесяцев)
РезультирующаяДата = ДатаДоб(ИсходнаяДата, -КоличествоМесяцев);

Если Год(РезультирующаяДата) < 2000 Тогда
Сообщить("Предупреждение: дата вышла за пределы 2000 года!");
Возврат Неопределено;
КонецЕсли;

Возврат РезультирующаяДата;
КонецФункции

6. Практические примеры для бухгалтеров и кадровиков

Рассмотрим реальные кейсы, где вычитание месяца необходимо в повседневной работе с 1С.

Пример 1: Автоматическое заполнение отчета за предыдущий месяц

В отчете "Обороты по счетам" нужно установить период "прошлый месяц":

Процедура ЗаполнитьПериодОтчета(ЭлементУправления)
ТекущаяДата = ТекущаяДата();
НачалоПериода = НачМесяца(ДатаДоб(ТекущаяДата, -1));
КонецПериода = КонецМесяца(ДатаДоб(ТекущаяДата, -1));

ЭлементУправления.Период.Начало = НачалоПериода;
ЭлементУправления.Период.Конец = КонецПериода;
КонецПроцедуры

Пример 2: Расчет среднего заработка за 3 предыдущих месяца

Для больничных листов или отпускных:

Функция ПолучитьПериодДляСреднегоЗаработка(ДатаНачалаБольничного)
Период = Новый Структура();
Период.Вставить("Начало", ДатаДоб(ДатаНачалаБольничного, -3));
Период.Вставить("Конец", ДатаДоб(ДатаНачалаБольничного, -1));
Возврат Период;
КонецФункции

Пример 3: Проверка просроченных документов

Например, для контроля оплаты счетов:

Процедура НайтиПросроченныеСчета()
ТекущаяДата = ТекущаяДата();
ГраничнаяДата = ДатаДоб(ТекущаяДата, -1); // Счета старше месяца

Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ Счета.Ссылка
ИЗ Документ.СчетНаОплату КАК Счета
ГДЕ Счета.Дата <= &ГраничнаяДата
И НЕ Счета.Оплачен";
Запрос.УстановитьПараметр("ГраничнаяДата", ГраничнаяДата);
Результат = Запрос.Выполнить();
// Обработка результата...
КонецПроцедуры

Типичные ошибки в таких сценариях:

• 🚫 Забывают про КонецДня() — из-за этого не попадают документы за последний день месяца
• 🚫 Не учитывают часовые пояса — если сервер и клиент в разных зонах, даты могут сбиваться
• 🚫 Используют ДатаДоб(Дата, 0, -30) вместо ДатаДоб(Дата, -1) — это приводит к неточным результатам

7. Оптимизация производительности при работе с датами

Если вам нужно вычесть месяц для тысяч записей (например, при массовой обработке документов), важно оптимизировать код, чтобы избежать замедления системы.

Советы по оптимизации:

• ⚡ Избегайте циклов — если можно вычислить дату один раз и применить ко всем записям
• ⚡ Используйте массовые операции — например, обновление запросом вместо пообъектной обработки
• ⚡ Кэшируйте результаты — если одна и та же дата используется многократно

Пример оптимизированного кода для массовой обработки:

Процедура МассовоеВычитаниеМесяца(МассивДат)
ГраничнаяДата = ДатаДоб(ТекущаяДата(), -1); // Вычисляем один раз

Для Каждого Дата Из МассивДат Цикл
Если Дата > ГраничнаяДата Тогда
Дата = ДатаДоб(Дата, -1); // Применяем вычитание
КонецЕсли;
КонецЦикла;
КонецПроцедуры

Сравнение производительности (тест на 10 000 записей):

⚠️ Внимание: При работе с распределенными базами 1С (например, 1С:УНФ или 1С:ERP) массовые операции с датами могут блокировать объекты. В таких случаях используйте ПоместитьВОчередьФоновыхЗадач().

FAQ: Частые вопросы по вычитанию месяцев в 1С

НоваяДата = ДатаДоб(ИсходнаяДата, 0, -1, 0); // Отнимаем 1 месяц

ПериодРасчета = Новый Структура("Начало, Конец",
ДатаДоб(ТекущаяДата(), -3),
ДатаДоб(ТекущаяДата(), -1));

Если НЕ ДатаВалидна(НоваяДата) Тогда
Сообщить("Ошибка: полученная дата невалидна!");
Возврат Ложь;
КонецЕсли;

Если Год(НоваяДата) < 1900 ИЛИ Год(НоваяДата) > 2100 Тогда
Сообщить("Дата вышла за допустимые пределы!");
КонецЕсли;