календарю » Поиск

Результаты по ключевому слову: календарю

Неправильно рассчитывает номер недели в году, функция корректного расчета

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

Например 17 октября 2016 года:

НеделяГода() возвращает 43, а по обычному календарю это 42:

Судя по всему, 1С считает по американской системе. "По европейской норме (DIN 1355 / ISO 8601) первой неделей года считается неделя, содержащая 4 января данного года (http://vsegost.com/Catalog/62/6263.shtml). А в США первой неделей считается любая неделя, содержащая первое января, независимо от числа дней".

Чтобы 1С возвращала номер недели, совпадающий с "человеческими" календарями и ежедневниками, предлагается использовать следующую функцию:

Код 1C v 8.х

 Функция НеделяГодаПоISO8601(Знач Дата, Год=Неопределено) Экспорт

    Если ДеньНедели(НачалоГода(Дата)) <= 4 тогда //если первая неделя года начинается до четверга, т.е. в ней есть четверг

        //значит год начинается с первой недели

        Год = Год(Дата);

        Неделя = НеделяГода(Дата);

        Возврат Неделя;

    Иначе

        //год начинается с последней недели прошлого года

        Неделя = НеделяГода(Дата)-1;

        

        Если Неделя = 0 тогда //если это до первой недели года

            Неделя = НеделяГодаПоISO8601(НачалоГода(Дата)-1, Год); //значит это последняя неделя прошлого года

        Иначе

            Год = Год(Дата);

        КонецЕсли;

    КонецЕсли;

    

    Возврат Неделя;

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



// Более короткий вариант:

Функция НеделяГода_ISO8601(Дата)       

    Корректировочная = НеделяГода(Дата(Год(Дата),1,4)) - 1;

    Результат = НеделяГода(Дата) - Корректировочная;

    Результат = ?(Результат = 0, НеделяГода_ISO8601(ДобавитьМесяц(КонецГода(Дата), -12)), Результат);    

    Возврат Результат;          

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

Категория: Работа с Датами (Временем)

Как получить количество рабочих дней в месяце по календарю? Категория: Работа с Датами (Временем)

Получение количества календарных дней по производственному календарю Категория: 1С Зарплата и Управление Персоналом 2.5

Получить количество рабочих дней сотрудника

В данной статье описаны функции которые вы можете использовать в ЗУП для получения количества рабочих дней по графику работы сотрудника или по производственному календарю

Код 1C v 8.х

  // Функции получения количества рабочих дней по графику работы сотрудника ил по производственному календарю 

Функция КоличествоРабочихДнейПоГрафикуРаботы(ДатаН, ДатаК, ГрафикРаботы)

	Запрос = Новый Запрос;

	Запрос.Текст = 

	"ВЫБРАТЬ

	|	ГрафикиРаботыПоВидамВремени.ГрафикРаботы,

	|	ГрафикиРаботыПоВидамВремени.ВидУчетаВремени,

	|	СУММА(ГрафикиРаботыПоВидамВремени.ОсновноеЗначение) КАК ОсновноеЗначение,

	|	СУММА(ГрафикиРаботыПоВидамВремени.ДополнительноеЗначение) КАК ДополнительноеЗначение,

	|	СУММА(ГрафикиРаботыПоВидамВремени.ОсновноеЗначениеНорма) КАК ОсновноеЗначениеНорма,

	|	СУММА(ГрафикиРаботыПоВидамВремени.ДополнительноеЗначениеНорма) КАК ДополнительноеЗначениеНорма

	|ИЗ

	|	РегистрСведений.ГрафикиРаботыПоВидамВремени КАК ГрафикиРаботыПоВидамВремени

	|ГДЕ

	|	ГрафикиРаботыПоВидамВремени.ГрафикРаботы = &ГрафикРаботы

	|	И ГрафикиРаботыПоВидамВремени.Дата МЕЖДУ &ДатаН И &ДатаК

	|	И ГрафикиРаботыПоВидамВремени.ВидУчетаВремени = &ВидУчетаВремени

	|

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

	|	ГрафикиРаботыПоВидамВремени.ГрафикРаботы,

	|	ГрафикиРаботыПоВидамВремени.ВидУчетаВремени";   	

	

	Запрос.УстановитьПараметр("ГрафикРаботы", ГрафикРаботы);

	Запрос.УстановитьПараметр("ДатаК", ДатаК);

	Запрос.УстановитьПараметр("ДатаН", ДатаН);

	Запрос.УстановитьПараметр("ВидУчетаВремени", Перечисления.ВидыУчетаВремени.ПоДням);

	Выборка = Запрос.Выполнить().Выбрать();

	Если Выборка.Следующий() Тогда

		ОсновноеЗначение = Выборка.ОсновноеЗначение;

	Иначе

		ОбщегоНазначенияЗК.СообщитьОбОшибке("Проверьте заполнение графика!");

		ОсновноеЗначение = 0;

	КонецЕсли;

	

	Возврат ОсновноеЗначение;

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



Функция КоличествоРабочихДнейПоПроизвКаленд(ДатаН, ДатаК)

	Запрос = Новый Запрос;

	Запрос.Текст = 

	"ВЫБРАТЬ

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

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

	|	СУММА(РегламентированныйПроизводственныйКалендарь.Шестидневка) КАК Шестидневка

	|ИЗ

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

	|ГДЕ

	|	РегламентированныйПроизводственныйКалендарь.ДатаКалендаря >= &ДатаН

	|	И РегламентированныйПроизводственныйКалендарь.ДатаКалендаря <= &ДатаК"; 



	Запрос.УстановитьПараметр("ДатаК", ДатаК);

	Запрос.УстановитьПараметр("ДатаН", ДатаН);

	Выборка = Запрос.Выполнить().Выбрать();

	Если Выборка.Следующий() Тогда

		ОсновноеЗначение = Выборка.Пятидневка;

	Иначе

		ОбщегоНазначенияЗК.СообщитьОбОшибке("Проверьте заполнение графика!");

		ОсновноеЗначение = 0;

	КонецЕсли;

	

	Возврат ОсновноеЗначение;

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

Категория: 1С Зарплата и Управление Персоналом 2.5