Надо сообщение вбухать в цикл как

1С v8

29.11.12

✎

19:38

Функция Выходной(ТекДень)
Если
ДеньНедели(ТекДень) >= 6
Или
ТекДень = Дата(Год(ТекДень),01,01)
Или
ТекДень = Дата(Год(ТекДень),02,23)
Или
ТекДень = Дата(Год(ТекДень),03,08)
Тогда
Возврат Истина;
Иначе
Возврат ЛОЖЬ
КонецЕсли;
КонецФункции
Функция ПодсчетВЦикле(ТекГод)
КолДнейВГоду = ?((ТекГод%4) = 0, 366, 365);

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

ТекДата = ТекДата + (24*3600);
КонецЦикла;
Возврат Счетчик;
КонецФункции

Для Счетчик = ПодсчетВЦикле(2010) по ПодсчетВЦикле(2015)Цикл

Сообщить(Счетчик)

КонецЦикла;

1 simol

29.11.12

✎

19:39

А вопрос какой?

2 zulu_mix

29.11.12

✎

19:40

дарю

Функция Выходной(ТекДень)
возврат
ДеньНедели(ТекДень) >= 6
Или
ТекДень = Дата(Год(ТекДень),01,01)
Или
ТекДень = Дата(Год(ТекДень),02,23)
Или
ТекДень = Дата(Год(ТекДень),03,08)
КонецФункции

3 Dzenn

гуру

29.11.12

✎

19:40

(1) юзай telepatbot.dll :)

4 sr_deadman

29.11.12

✎

19:43

Надо вывести сообщение например сколько рабочих дней в году 2010 по 2030 например без перебирания
Сообщить ПодсчетВЦикле(2010)
Сообщить ПодсчетВЦикле(2011)
Сообщить ПодсчетВЦикле(2012)
Сообщить ПодсчетВЦикле(2013)
Сообщить ПодсчетВЦикле(2014)
Сообщить ПодсчетВЦикле(2015)
Сообщить ПодсчетВЦикле(2016)
Сообщить ПодсчетВЦикле(2017) без этого сразу как сделать

5 DrShad

29.11.12

✎

19:45

Для н = 2010 по 2030 Цикл
Сообщить ПодсчетВЦикле(н)

6 zulu_mix

29.11.12

✎

19:46

для и=2010 по 2017 цикл
сообщить(подсчетвцикле(и))
конеццикла

7 sr_deadman

29.11.12

✎

19:53

спасибо

8 Fragster

гуру

29.11.12

✎

21:40

Функция ПодсчетБезЦикла(Год)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| СУММА(РегламентированныйПроизводственныйКалендарь.Пятидневка) КАК КоличествоДней
|ИЗ
| РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь
|ГДЕ
| РегламентированныйПроизводственныйКалендарь.Год = &Год";
Запрос.УстановитьПараметр("Год",Год);
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Выборка.Следующий();
Если Выборка.КоличествоДней = NULL Тогда
ВызватьИсключение "Необходимо заполнить регл. календарь за " + XMLСтрока(Год) + " год";
Иначе
Возврат Выборка;
КонецЕсли;
КонецФункции

9 Fragster

гуру

29.11.12

✎

21:41

ну и да - для заполнения календаря в типовых и БСП есть кнопка.

10 zulu_mix

29.11.12

✎

21:42

(8) ну ты лошара. ни версии платформы не знаешь, ни конфигурации. а если там самописка голимая?

11 echo77