Даты пересечения двух периодов

01.03.18

Разработка - Универсальные функции

Для вычисления дат пересечения двух периодов многие зачастую используют довольно сложные наборы условий, не дающих нужный результат, или достигающих его излишне сложным путем.

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Купить файл
Даты пересечения двух периодов:
.epf 6,46Kb ver:1.1
1 2 500 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

  • 0% комиссии — оплата напрямую исполнителю;
  • Исполнители любого масштаба — от отдельных специалистов до команд под проект;
  • Прямой обмен контактами между заказчиком и исполнителем;
  • Безопасная сделка — при необходимости;
  • Рейтинги, кейсы и прозрачная система откликов.

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

Если Макс(ДатаС1, ДатаС2) <= Мин(ДатаПо1, ДатаПо2) Тогда         

        ДатаПересечения1 = Макс(ДатаС1, ДатаС2);
        ДатаПересечения2 = Мин(ДатаПо1, ДатаПо2);
        
        Если ДатаПересечения1<>ДатаПересечения2 Тогда 
            ТекстСообщения = "Периоды пересекаются в "+ Формат(ДатаПересечения1,"ДФ=dd.MM.yyyy") + " и " + Формат(ДатаПересечения2,"ДФ=dd.MM.yyyy");
        Иначе 
            ТекстСообщения = "Периоды пересекаются в "+ Формат(ДатаПересечения1,"ДФ=dd.MM.yyyy");
        КонецЕсли;
        
    Иначе 
        
        ТекстСообщения = "Периоды не пересекаются";
        
    КонецЕсли;

Также прикладываю обработку, наглядно демонстрирующую работу данного условия (платформа 8.3.10.2650).

Вступайте в нашу телеграмм-группу Инфостарт

Пересечение периодов даты пересечения дата пересечения периодов

См. также

Загрузка и выгрузка в Excel Универсальные функции Программист 1С:Предприятие 8 Россия Бесплатно (free)

Описанный ниже подход позволяет в три шага заполнять формулы в Excel файлы, вне зависимости от ОС сервера (MS Windows Server или Linux). Подход подразумевает отказ от работы с COM-объектом в пользу работы через "объектную модель документа" (DOM).

30.10.2025    7895    Abysswalker    11    

49

Универсальные функции Работа с интерфейсом Программист 1С:Предприятие 8 Бесплатно (free)

Порой необходимо временно отключить расширение 1С, не удаляя его, чтобы не потерять данные. Но в этом случае при каждом запуске всем будет лезть уведомление о неактивном расширении, хотя очевидно, это техническая информация, которой не стоит лишний раз пугать пользователей.

14.05.2025    13223    DeerCven    15    

64

Универсальные функции Программист 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

Благодаря этим пяти строчкам можно больше не заморачиваться с загрузкой из внешних файлов. Пользуюсь везде, всегда и постоянно.

21.05.2024    66451    dimanich70    87    

177

Универсальные функции Программист 1С:Предприятие 8 1C:Бухгалтерия Абонемент ($m)

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024    8776    7    John_d    13    

59

Универсальные функции Программист Стажер 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024    83171    atdonya    31    

75

Универсальные функции Программист 1С:Предприятие 8 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023    12902    ke.92@mail.ru    18    

68