helpf.pro
  Регистрация
Все категории 1С 8.3 : » Работа с Датами (Временем) Работа с Датами (Временем) 
 +3 
 
 
Распечатать

1С 8.3 : Разница между датами в рабочих днях, подсчет рабочих дней в 1С

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

В этой статье примеры кода и запросы в которых считается количество рабочих дней:

Код, при вычислении определяет только по дню недели, викидывая выходные. Праздники не учитывает!

Код 1C v 8.х
 Функция РабочихДнейСДаты(НачДата,КолвоДней)  Экспорт

    Перем РабочихДней, ОбычныхДней, ДеньНедели;

    РабочихДней = 0; ОбычныхДней = 0;

    Пока РабочихДней < Число(КолвоДней) Цикл 

        ОбычныхДней = ОбычныхДней+ 1;          

       // определим день недели 

	   ДеньНедели=ДеньНедели(НачДата+(ОбычныхДней*86400));           

       // если не выходной, то прошел еще один рабочий день 

        Если ДеньНедели < 6 Тогда

            РабочихДней=РабочихДней+1;

        КонецЕсли;

    КонецЦикла;

    

    Возврат (НачДата + (РабочихДней*86400));

КонецФункции





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

ТриДняОтОбработки = РабочихДнейСДаты(нДатаОбработки,3);  	

	Если РабочаяДата>ТриДняОтОбработки Тогда

		Предупреждение("Прошло больше 3-х дней после обработки заказа. Цены не актуальны!

		|Отправьте заказ на новую обработку! ");

	Иначе

// ... неки код

КонецЕсли;

В запросе, с использованием производственного календаря и учетом всех праздников:

Код 1C v 8.х
 ВЫБРАТЬ

	РегламентированныйПроизводственныйКалендарь.ДатаКалендаря КАК Дата

ПОМЕСТИТЬ Даты

ИЗ

	РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь

ГДЕ

	РегламентированныйПроизводственныйКалендарь.ДатаКалендаря В(&ВходящиеДаты)

;





////////////////////////////////////////////////////////////////////////////////

ВЫБРАТЬ

	Даты.Дата,

	КОЛИЧЕСТВО(РАЗЛИЧНЫЕ РегламентированныйПроизводственныйКалендарь.ДатаКалендаря) КАК КоличествоРабочихДней,

	МАКСИМУМ(РегламентированныйПроизводственныйКалендарь.ДатаКалендаря) КАК ДатаКалендаря,

	РегламентированныйПроизводственныйКалендарь1.ДатаКалендаря КАК ДатаКалендаряДляГруппировки

ИЗ

	РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь

		ВНУТРЕННЕЕ СОЕДИНЕНИЕ Даты КАК Даты

		ПО (Даты.Дата <= РегламентированныйПроизводственныйКалендарь.ДатаКалендаря)

			И (ДОБАВИТЬКДАТЕ(Даты.Дата, ДЕНЬ,ГлубинаДней) > РегламентированныйПроизводственныйКалендарь.ДатаКалендаря)

		ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь1

		ПО РегламентированныйПроизводственныйКалендарь.ДатаКалендаря <= РегламентированныйПроизводственныйКалендарь1.ДатаКалендаря

ГДЕ

	(РегламентированныйПроизводственныйКалендарь.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Предпраздничный)

			ИЛИ РегламентированныйПроизводственныйКалендарь.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Рабочий))





СГРУППИРОВАТЬ ПО

	РегламентированныйПроизводственныйКалендарь1.ДатаКалендаря,

	Даты.Дата





ИМЕЮЩИЕ

	МАКСИМУМ(РегламентированныйПроизводственныйКалендарь.ДатаКалендаря) = РегламентированныйПроизводственныйКалендарь1.ДатаКалендаря

	И КОЛИЧЕСТВО(РАЗЛИЧНЫЕ РегламентированныйПроизводственныйКалендарь.ДатаКалендаря) =РабочихДней

Еще один вариант, в котором допустим, что:

1) Регистр сведений Календарь имеет структуру (Измерения={ДатаКалендаря}, Ресурсы={ВидДня}), а перечисление ВидыДня задано как {Рабочий, Предпразничный} и праздничные дни в календаре отсутствуют.

2) В документе Реализация заданы поля Дата и ОтсрочкаДней. Тогда:

Код 1C v 8.х
 Выбрать

Р.Ссылка, Р.Дата,

минимум(isnull(К.ДатаКалендаря, добавитькдате(Р.Дата, день, Р.ОтсрочкаДней))) как ДатаКредита

из Документ.Реализация как Р

левое соединение РегистрСведений.Календарь как К

по добавитькдате(Р.Дата, день, Р.ОтсрочкаДней) <= К.ДатаКалендаря

сгруппировать по

Р.Ссылка, Р.Дата

Собственно, если календарь содержит и праздничные дни, то можно добавить секцию ГДЕ, и там отобрать только рабочие дни. В секции ГДЕ можно отобрать и интересующий календарь, если ведется несколько календарей.

Разместил:   Версии: | 8.x | 8.2 УП | 8.3 |  Дата:   Прочитано: 32832
 +3 
 
 
Распечатать
Возможно, вас также заинтересует
Cодержимое указанного ниже веб-сайта в этом приложении блокируется... Aboutsecurity_1cv8c.exe  1
  Проблема: После обновления на 1С:Бухгалтерию предприятия 3-й версии, при нажатии на закладку командного интерфейса 1С:предприятие, выскакивает ошибка: Aboutsecurity_1cv8c.exe или Aboutsecurity_1cv8.exe «Содержимое указанного ниже веб-узла в э
PostgreSQL: установка, настройка, обслуживание  10
  PostgreSQL напрямую "из коробки" применяться для использования с 1С Предприятем не может. Необходима именно адаптированная версия от 1С, превращающая PostgreSQL в блокировочник, причем нужно понимать, что блокировки будут накладываться на всю таблиц
rphost занимает память и грузит процессор  19
  У многих возникают проблемы с rphost.exe, разного вида: rphost занимает всю память rphost грузит процессор rphost жрет память причем 1С даже на запущена, а в диспетчере следующее: ежеминутно расчет на 2-3 мегабайта. Как быть и что делат
Имеется 1с сервер, 10 доп лицензии, Альфа-Авто на программных ключах. Позже было закуплено Бухгалтер  0
  Имеется 1с сервер, 10 доп лицензии, Альфа-Авто на программных ключах. Позже было закуплено Бухгалтерия проф на 3 рабочих места на аппаратных ключах. Когда запускаю бухгалтерию, ломается (выходят из строя) ключ на 10 доп лицензии. 1с сервер ключ в по
Как получить количество рабочих дней в месяце по календарю?  1
  Для одного проекта потребовалось получить количество рабочих дней в месяце по календарю, без учета праздников. В результате получилась простая функция: Функция ПолучитьКолВоРабочихДнейПоКалендарю(ДатаМесяца) Рабочие=0; Кон=НачалоМесяца(ДатаМес
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.