Привет!

Создал я календарь Пятидневка. Добавил дни (не знаю почему).



Теперь делаю:

Процедура Сформировать()
    
    Календарь = СоздатьОбъект("Календарь.Пятидневка");
    
    КД = ТекущаяДата();
    НД = ТекущаяДата()-7;
    
    Дни = Календарь.Дней(НД, КД);
    
    Сообщить(Дни);

КонецПроцедуры

Воводит 0. Должно ж выводить 7?

Это всё к чему я веду. Просто есть один отчет (не мной деланный) АнализЗадолженности. Он с этого года перестал работать. За 2008 показывает данные, а за 2009 не показывает ниче. У меня есть подозрение, что проблема связана с календарём. В отчете есть такая строка:

РабДней=КалендарьДней.Дней(Дата2-Дни,Дата2);

Исходя из описания функции Дней - РабДней должно равняться (в данном случае) 20, т.к. Дни=20. Так ведь? Но РабДней = 0. Смотрю отчет за 2008 год - РабДней принимает нормальное значени (и отчет работает).

В чем проблема?

И вообще. Для чего нужны календари? Что такое (зачем) длина дня?

Не надо использовать календари, можно воспользоваться функцией

Функция ПолучитьКоличествоРабочихДней(ДатаНач,ДатаКон)
   ТекДата = ДатаНач;
   КоличествоДней = 0;
   Если ДатаНач > ДатаКон Тогда
      Сообщить("не верный ввод дат");
      Возврат 0;
   КонецЕсли;
   Пока ТекДата <= ДатаКон Цикл
      ТекНомер = НомерДняНедели(ТекДата);
      Если (ТекНомер <> 6) И (Текномер <> 7) Тогда
         КоличествоДней = КоличествоДней + 1;		    
      КонецЕсли;
      ТекДата = ТекДата +1;
   КонецЦикла;
   Возврат КоличествоДней;
КонецФункции

Зайди Операции->Календари..
Выбери нужный и сделай авто заполнение!!!

Batchir, попробую.

1Cv77, а для чего количество дней указывается? И такой ещё вопрос: почему заполнение делается только на текущий месяц?

когда будеш нашимать атозаполнение выбери период с начала года до конца года

Выбрераю период с 1 января по 31 декабря - всёравно заполняет на месяц