Добрый день!
Подскажите, есть ли возможность вывести название месяцев между двумя датами?

lf

GthbjlCnh


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


(3) дайте две!

(4) Не вопрос, держи бро.


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


(5) Вон из профессии!

(6) Не работает?))

(7) А сам то как думаешь ?

Мало того, что вопрос про клюшки, так еще и код для снеговика нелепый.

я как старый клюшечник сделал бы тупо цикл 1 числа с ДобавитьМесяц()

(7) Вообще должен взлететь, надо проверить.
(9) Дык вылазь из кустов и достань свой код на всеобозрение.

(0) Чего надо то?
    НачДата = '15.06.2015';
    КонДата = '27.08.2015';
    Пока КонДата >= НачДата Цикл
        Сообщить(Формат(НачДата, "ДММММ"));
        НачДата = ДобавитьМесяц(НачДата, 1);
    КонецЦикла;

ПериодСтр(Дата1, Дата2), не?..

(13) не, там перечень месяцев не выведется

ПериодСтр
вылазит 2-е полугодие 2008 г.

+(12) Последний вариант
    НачДата = '15.06.2015';
    КонДата = '13.08.2015';
    Пока (НачМесяца(КонДата) >= НачМесяца(НачДата)) ИЛИ (КонМесяца(КонДата) >= КонМесяца(НачДата)) Цикл
        Сообщить(Формат(НачДата, "ДММММ"));
        НачДата = НРег(ДобавитьМесяц(НачДата, 1));
    КонецЦикла;

(11) Конечно выведет, угадай сколько..
:))))))))))))))))))))))))))))))))))))))))))))))))

(17) Ээээ...я потерял контекст. Выведет сколько?

(18) подумай

что будет, если в снеговике к дате добавлять 1

и сколько надо добавить единичек, чтоб дата стала следующей.

хотя бы, не говоря уже о следующем месяце..

(21) А сколько единичек нужно прибавить к КонецМесяца(), чтобы дата стала следующей?

(23) уел

(20) Ты меня пугаешь.

конец месяца не увидел

Ну да ладно. Вопрос конечно семерочный.

А если КонДата 27.08.15 - август должен входить?

(12) Надо вывести название месяцев между 2-мя датами и посчитать их. После чего засунуть в отчет.

По дилетантски)

//*******************************************
Процедура Месяцы()  
    Нач = ДатаМесяц(ДатаНач);
    Кон = ДатаМесяц(ДатаКон);
    a = 0;
    Для i = (Нач + 1) По (Кон - 1) Цикл  
        a = a + 1;
      Если i = 1 Тогда
           Сообщить("Январь");
    ИначеЕсли  i = 2 Тогда
         Сообщить("Февраль");    
    ИначеЕсли  i = 3 Тогда
         Сообщить("Март");
    ИначеЕсли  i = 4 Тогда
         Сообщить("Апрель");
    ИначеЕсли  i = 5 Тогда
         Сообщить("Май");
    ИначеЕсли  i = 6 Тогда
         Сообщить("Июнь");
    ИначеЕсли  i = 7 Тогда
         Сообщить("Июль");
    ИначеЕсли  i = 8 Тогда
         Сообщить("Август");
    ИначеЕсли  i = 9 Тогда
         Сообщить("Сентябрь");
    ИначеЕсли  i = 10 Тогда
         Сообщить("Октябрь");
    ИначеЕсли  i = 11 Тогда
         Сообщить("Ноябрь");
    ИначеЕсли  i = 12 Тогда
         Сообщить("Декабрь");
    КонецЕсли
КонецЦикла;

(30) см (6) )))

Конец забыл)

Сообщить("Итого" + " " +  a + " " + "месяца/ев!");
КонецПроцедуры

(31) Главное что работает))

(33) не работает :)

(34) штаа? Я проверил. Не нада ля-ля)

(35) что есть датаМесяц? Как отработает датанач - 02.09.2015 датакон 10.01.2016?

А семерочный метод, ну неважно. Вторая часть вопроса тогда

(36) Да, с "Как отработает датанач - 02.09.2015 датакон 10.01.2016?"
Неувязывается че-то..

(38) значит нужно Сообщить("Некорректно выбран период :( ");

(39) То ли я уже не соображаю по вечер, а почему он некорректен?

Аа, он тоже под цифрой 1.

(40) он корректен, но программа не позволяет

кто-нибудь дельное что подскажет?

(43) в (6) уже подсказали

Формат(НачДата, "ДММММ")
ничего не выдаст.
форматная строка нета.
учим матчасть.

формат(ТекущаяДата(),"Д ММММ") = Август

+(45) пардон лохонулся.
и все-таки пробел нужен.