Подскажите грамотный перебор месяцев в периоде. Начало перебора от начала периода, конец перебора - конец периода.

Для Сч=Месяц(ДатаНач) По Месяц(ДатаКон) Цикл

перебор где? зачем?
задачу огласи, там ясней будет

(1) года разные могут быть

Но тут возникает загвоздка, если даты в разных годах. В любом случае, каков вопрос - таков ответ ))

(0) перебор помесячно

Месяцев = Месяц(КонецПериода) - Месяц(НачалоПериода)

Для А = 0 По Месяцев Цикл

(6) тоже (3) :)

(6) если там больше 12 мес- не по получится

(6) не катит. см (3)

Год(Дата1)*12 + Месяц(Дата1) по Год(Дата2)*12 + Месяц(Дата2)

Номер = 1;
Пока ДобавитьМесяц(Начало, Номер) <> Конец Цикл
Номер = Номер + 1;

Засунуть в запрос, добавить условия, сделать итоги по НАЧАЛОПЕРИОДА

Месяц = НачалоМесяца(ТекущаяДата());
Пока не надоест Цикл
  Месяц = ДобавитьМесяц(Месяц,1);
КонецЦикла;

(12) без запроса

(14) почему?

(15) потому

(16) успехов

(11)(13) ну я изначально накатал сходу нечто похожее, но что-то мне кажется, что это попахивает г-кодом:

Если НачалоМесяца(НачалоПериода) = НачалоМесяца(КонецПериода) Тогда
//выбран 1 месяц
НачальнаяДата = НачалоПериода;
КонечнаяДата = КонецПериода;
       
//действие
       
Иначе
НачальнаяДата = НачалоПериода;
КонечнаяДата = КонецМесяца(НачалоПериода);
Пока КонечнаяДата <> КонецМесяца(КонецПериода) Тогда
           
//действие
           
НачальнаяДата = НачалоМесяца(ДобавитьМесяц(НачальнаяДата));
КонечнаяДата = ДобавитьМесяц(КонечнаяДата);      
Цикл;
       
//КонечнаяДата = КонецМесяца(КонецПериода)
КонечнаяДата = КонецПериода;
       
//действие
       
КонецЕсли;

(12) А в запрос что засовывать?))

(18) норм впринципе, если работает.
пока нет ответа на вопрос (2) - нечего думать дальше

(17) сразу не веришь? обосновывать обязательно?

(18) А зачем перебор месяцев? колоночки чтоль сделать по месяцам?))

ТП = НачалоПериода;
Пока ТП < КонецПериода Цикл
ТП = ДобавитьМесяц(ТП,1);
КонецЦикла;

(20) мне не интересно как повернуть задачу по-другому (этого и нельзя сделать). весь вопрос в (0)

Мой фэншуй говорит, что условие лучше сделать так:
Пока КонечнаяДата > КонецМесяца(КонецПериода) Тогда

Хотя работать и так и так будет ;)

КонечнаяДата = ДобавитьМесяц(КонечнаяДата); - тут цифры не хватает, смотри СП ДобавитьМесяц

(24) значит норм всё у тебя, вон даже GROOVY одобряет

(23) а где выбор от начала периода по конец месяца, потом помесячно, и потом от начала последнего месяца до конца периода?

(27) мужиГ, ты уж додумай, идею то подбросили ;)

вся соль вопроса в (27) и есть ощущение, что (18) можно переписать покороче

(27) Перебор месяцев в периоде это означает перебрать месяца в периоде: Январь, февраль, март и пр...

Что такое "от начала последнего месяца до конца периода"?

(30) период: 10.11.12 - 05.02.13.
помесячно: 10.11.12 - 30.11.12, 01.12.12 - 31.12.12, 01.01.13-31.01.13, 01.02.13 - 05.02.13

НачалоПериода = Дата(2013,1,1);
КонецПериода = Дата(2013,12,1);
Пока НачалоПериода <= КонецПериода Цикл
   НачалоПериода = ДобавитьМесяц(НачалоПериода,1);
КонецЦикла;

Ну, видимо тебе еще нужно будет СовсемКонецПериода = КонецМесяца(КонецПериода) :D

(32) мне нужно между НачалоПериода и КонецПериода, а не между НачалоМесяца(НачалоПериода) и КонецМесяца(КонецПериода)

(34) видимо мозг у Вас совсем не хочет работать :P

(35) может и не хочет, сегодня же пятница. А что, я чёто не увидел в (32)?

неужели только у меня ощущение, что (18) - это г-код?

(36) Добавь еще переменную КонецМесяцаНачалаПериода и условие на то, что КонецПериода > КонецМесяцаНачалаПериода. Думаю, что еще кучу вариантов придумать можно ;) Пятница - мозгоразжижайница О_О

(38) оно и заметно)

(37) ну сделай как в  (23) груви советует.

(37) человеку просто за количество строк платят

(41) было бы странно создавать сабж, если мне платят за количество строк...

(40) там нет ответа на (27) и (31)

Так пойдет?

   НД = НачалоПериода;
   КД = НачалоПериода;
   Пока КД <> КонецМесяца(КонецПериода) Цикл
       Если НачалоМесяца(НД)=НачалоМесяца(НачалоПериода) Тогда
           НД = НачалоПериода;
       Иначе
           НД = НачалоМесяца(ДобавитьМесяц(НачалоПериода,1));
       КонецЕсли;
       Если КонецМесяца(КД)=КонецМесяца(КонецПериода) Тогда
           КД = КонецПериода;
       Иначе
           КД = КонецМесяца(ДобавитьМесяц(КонецПериода,1));
       КонецЕсли;    
       //действие
   КонецЦикла;

НачалоПериода = Дата(2013,1,1);
КонецПериода  = Дата(2013,12,5);

НачальнаяДата = НачалоПериода;
КонечнаяДата  = КонецПериода;

Пока НачальнаяДата < НачалоМесяца(КонечнаяДата) Цикл

   НачальнаяДата = ДобавитьМесяц(НачальнаяДата, 1);
   КонечнаяДата  = ?(КонецМесяца(НачальнаяДата)<КонецПериода, КонецМесяца(НачальнаяДата), КонецПериода);

КонецЦикла;

(45) тьфу, ток в цикле < НачалоМесяца(КонецПериода)

(45) неправильно, начальная дата должна в начало месяца становиться

(47) даже, если выбрано 5 января, тебе всегда нужно 1 января? Ну это ты и сам доработаешь ;)

+(44) переписал условия
   НД = НачалоПериода;
   КД = НачалоПериода;
   Пока КД <> КонецМесяца(КонецПериода) Цикл
       НД = ?(НачалоМесяца(НД)=НачалоМесяца(НачалоПериода), НачалоПериода, НачалоМесяца(ДобавитьМесяц(НачалоПериода,1)));
       КД = ?(КонецМесяца(КД)=КонецМесяца(КонецПериода), КонецПериода, КонецМесяца(ДобавитьМесяц(КонецПериода,1)));
       //действие
   КонецЦикла;

(48) я имел ввиду начало следующего месяца

В цикле условие лучше по началу месяца для обоих значений делай, иначе что-нибудь да накосячится ;)

(49) кстати, КД = НачалоПериода - это верно?

(52) именно так и писал, сейчас проверю обработкой

чёт неправильно

(54) отладчик в руки и тыц-тыц, танцы с бубном :)

(55) угу. я уже бубню)

(43) ну вот если бы ты голову включил, то уже бы до (31) было

ТП = НачалоПериода;
Пока ТП <= КонецПериода Цикл
ТП = ДобавитьМесяц(ТП,1);
НД = Макс(НачалоПериода, НачалоМесяца(ТП));
КД = Мин(КонецДня(КонецПериода), КонецМесяца(ТП));
КонецЦикла;

(57) у тебя первый месяц неправильно
хочу, чтобы в (18) осталось одно //действие

Апну. что-то не получается...

Переписал. Вроде работает. Но выглядит стрёмно.

   НД = НачалоПериода;
   КД = КонецМесяца(НачалоПериода);
   Сч=1;
   Пока НачалоМесяца(КонецПериода)<>НачалоМесяца(КД) Цикл        
       НД = ?(НачалоМесяца(НачалоПериода)=НачалоМесяца(НД) И Сч=1, НачалоПериода, НачалоМесяца(ДобавитьМесяц(НД,1)));        
       КД = ?(НачалоМесяца(КонецПериода)=НачалоМесяца(НД), КонецПериода, КонецМесяца(НД));    
       Сч=2;
       Сообщить(""+НД+" --- "+КД);
   КонецЦикла;

+(60) не работает, если период 1 месяц

Все сдались? лузеры)

(62)Все домой ушли))

(63) просто нужно признать, что задачка оказалась не по зубам)...

А какая ваще задача решалась таким способом?

(64) задача скучная, ТС нормально не может сформулировать что ему нужно... да кому интересно при таком раскладе личное время тратить да ещё и в пятницу...

+ (65) может ваще можно было бы всё просто методом

ВыборкаПериод = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Период", "ВСЕ");

Пока ВыборкаПериод.Следующий() Цикл
//...
КонецЦикла;


решить и не париться?

(66) Переформулирую. Есть период: 10.11.12 - 05.02.13.
Необходимо в цикле пройти его помесячно. Для первого месяца начальная дата (НД) - начало периода, для последнего месяца конечная дата (КД) - конец периода: 10.11.12 - 30.11.12, 01.12.12 - 31.12.12, 01.01.13-31.01.13, 01.02.13 - 05.02.13. "Сообщить(""+НД+" - "+КД)" должно быть только 1 раз в цикле.

(68) Издеваешься? Тебе что не написать гомнокод на 7 строк? 4 часа обсуждать на форуме...

(69) не издеваюсь. чёт никак... буду признателен помощи

(70) скажите, а Вы школу закончили???

(71) возможно затупил. вот так случилось. школу закончил.
буду признателен помощи.

вот. наваял еще г-код. зато с одним "Сообщить":

НД = НачалоПериода;
КД = КонецМесяца(НачалоПериода);
ТП = НачалоПериода;
Пока ТП <= КонецДня(КонецПериода) Цикл
ПредТП = ТП;
ТП = НачалоМесяца(ДобавитьМесяц(ТП,1));
НД = Мин(НД, НачалоМесяца(ТП));
КД = Мин(КД, КонецМесяца(ТП));
Если НачалоМесяца(НачалоПериода) = НачалоМесяца(КонецПериода) Тогда
   КД = КонецДня(КонецПериода);
КонецЕсли;
Сообщить(""+НД+" --- "+КД);
НД = НачалоМесяца(ДобавитьМесяц(НД,1));
КД = КонецМесяца(ДобавитьМесяц(КД,1));
Если НачалоМесяца(КД)=НачалоМесяца(КонецПериода) Тогда
   КД = КонецДня(КонецПериода);
КонецЕсли;
КонецЦикла;

+(73) работает)

+(73) упс. ПредТП лишнее
НД = НачалоПериода;
КД = КонецМесяца(НачалоПериода);
ТП = НачалоПериода;
Пока ТП <= КонецДня(КонецПериода) Цикл
ТП = НачалоМесяца(ДобавитьМесяц(ТП,1));
НД = Мин(НД, НачалоМесяца(ТП));
КД = Мин(КД, КонецМесяца(ТП));
Если НачалоМесяца(НачалоПериода) = НачалоМесяца(КонецПериода) Тогда
   КД = КонецДня(КонецПериода);
КонецЕсли;
Сообщить(""+НД+" --- "+КД);
НД = НачалоМесяца(ДобавитьМесяц(НД,1));
КД = КонецМесяца(ДобавитьМесяц(КД,1));
Если НачалоМесяца(КД)=НачалоМесяца(КонецПериода) Тогда
   КД = КонецДня(КонецПериода);
КонецЕсли;
КонецЦикла;

(75) Хочется, чтобы коротко и красиво? Ну вот:

ТекущийМесяц = Месяц(НачалоПериода);
Пока КонецПериода > ТекущийМесяц Цикл
   НД = Макс(ТекущийМесяц, НачалоПериода);
   КД = Мин(КонецМесяца(ТекущийМесяц), КонецПериода);
   Сообщить(""+НД+" --- "+КД);
   ТекущийМесяц = ДобавитьМесяц(ТекущийМесяц, 1);
КонецЦикла;

P.S. Не проверял.
P.P.S. Количество строк Павел определил мастерски :)