Имя: Пароль:
1C
1С v8
Надо вывести в сообщений количестов рабочих дней через Пока
Ø (Fragster 30.11.2012 16:30)
,
0 sr_deadman
 
30.11.12
16:24
Функция Выходной(ТекДень)
Если
ДеньНедели(ТекДень) >= 6
Или
ТекДень = Дата(Год(ТекДень),01,01)
Или
ТекДень = Дата(Год(ТекДень),02,23)
Или
ТекДень = Дата(Год(ТекДень),03,08)
Тогда
Возврат Истина;
Иначе
Возврат ЛОЖЬ
КонецЕсли;
КонецФункции
Функция ПодсчетВЦикле(ТекГод)
КолДнейВГоду = ?((ТекГод%4) = 0, 366, 365);

ТекДата = НачалоГода(Дата(ТекГод,01,01));
Счетчик = 0;
Для Итератор = 1 По КолДнейВГоду Цикл
Если Не Выходной(ТекДата) Тогда
Счетчик = Счетчик + 1;
КонецЕсли;

ТекДата = ТекДата + (24*3600);
КонецЦикла;
Возврат Счетчик;
КонецФункции
1 zulu_mix
 
30.11.12
16:25
опять ты?
2 zulu_mix
 
30.11.12
16:25
я тебе в прошлом твоем копрокоде функцию подарил - почему не используешь?
3 alex-pro
 
30.11.12
16:26
(2) наверное, потерял)))
4 Error pro
 
30.11.12
16:28
(0) Регламентный производственный календарь, или график работы использовать не пойдет?
5 sr_deadman
 
30.11.12
16:29
было через для надо через пока
6 Fragster
 
гуру
30.11.12
16:30
AdBlock убивает бесплатный контент. 1Сергей