Имеем дату старта
10,01,2012
.
имеем периодичность повторения операции
каждый понедельник
и каждый четверг
.
Как получить приближающиеся даты выполнения операции?
.
Повторения могут быть как еженедельные, итак и каждые 2...n недель

огласи задачу полностью

Шо хочет сделать ТС?
Извечный вопрос

(0) регламентные задания, расписание регламентного задания?

(3) эх если бы
хочу расписание автобусов в 1с сделать
например 35 автобус ходит во ВТ один раз в 3 недели (четность не катит)

сделай как в ЗУПе графики смен

(4) ну до 31го еще есть время =)

(6) нет времени (
(5) не представляю как это

(5) гуд айдийа!

(8) (5) расскажите как там, у меня нет ни опыта ни зуп,а (

(9) я нет, может Роман сможет)

(10) Посмотрел видео, там вообще засада с графиками, исключениями и прочей ерундой
Мегаусложнения какие-то для моей задачи

да убери исключения и все праздники и будет работать. делов то

Сделал


       Если Стр.Периодичность > 1 Тогда //Сложный запуск
               //попробуем выснить на когда
               //посчитаем на 30 дней вперед
               ДатаЗапускаСхемы = НачалоНедели(Стр.ДатаСтарта) ; // ПН и на этой неделе запускались
               
               
               ДатаСтарта = НачалоДня(ТекущаяДата());
               Для it = 0 По СколькоДней Цикл
                   
                   Если Сред(Стр.График,ДеньНедели(ДатаСтарта),1) = "1" Тогда
                       
                       //Сколько недель прошло
                       СколькоПрошлоНедель = ПолучитьРазностьДат(ДатаЗапускаСхемы,НачалоНедели(ДатаСтарта))/7;
                       //Сообщить(СколькоПрошлоНедель);
                       
                       Геометрия = 0 ;
                       Пока Геометрия < 1000 Цикл
                       //КонецЦикла;
                       //Для Геометрия = 0 По 1000 Цикл
                           
                           Геометрия = Геометрия + Стр.Периодичность;
                           Если Геометрия = СколькоПрошлоНедель Тогда
                               Если Сред(Стр.График,ДеньНедели(ДатаСтарта),1) = "1" Тогда
                                   РеалСтр = РеальныеРейсы.Добавить();
                                   РеалСтр.ДатаСтарта = Стр.ДатаСтарта;
                                   РеалСтр.Периодичность = Стр.Периодичность;
                                   РеалСтр.График = Стр.График;
                                   РеалСтр.ДатаРейса = ДатаСтарта;                
                                   РеалСтр.Описание = "Периодический рейс";                
                               КонецЕсли;
                               
                               Прервать;    
                           КонецЕсли;
                           
                           
                       КонецЦикла;
                       
                   КонецЕсли;
                   ДатаСтарта = ТекущаяДата() + it * 86400;;
                   
                   
               КонецЦикла;            
               
               
               
       КонецЕсли;