Помогите решить задачу по 1С

[Мишка_777]

Всем привет:)

Помогите пожалуйста решить задачу по 1С. Никак не получается написать код с требуемым результатом.

Вот задание;
Интерактивно введите дату, выведите в окно сообщений каждый день месяца, дата
которого была задана.

Буду благодарен даже за подсказку.

Спасибо

[AIFrame]

Код Выделить Развернуть


ДатаВывода = НачалоМесяца(ДатаВвода);
Если ДатаВывода = Дата(1, 1, 1) Тогда
ПоказатьПредупреждение(,"Не введена дата!");
Возврат;
КонецЕсли;

Пока Месяц(ДатаВывода) = Месяц(ДатаВвода) Цикл
    СтрокаВывода = "" + СтрокаВывода + День(ДатаВывода) + ", ";
    ДатаВывода = КонецДня(ДатаВывода) + 1;
КонецЦикла;

Если СтрДлина(СтрокаВывода) > 1 Тогда
    СтрокаВывода = Лев(СтрокаВывода, СтрДлина(СтрокаВывода) - 2);
КонецЕсли;

ПоказатьПредупреждение(,СтрокаВывода);


[Мишка_777]

Код Выделить Развернуть


ДатаВывода = НачалоМесяца(ДатаВвода);
Если ДатаВывода = Дата(1, 1, 1) Тогда
ПоказатьПредупреждение(,"Не введена дата!");
Возврат;
КонецЕсли;

Пока Месяц(ДатаВывода) = Месяц(ДатаВвода) Цикл
    СтрокаВывода = "" + СтрокаВывода + День(ДатаВывода) + ", ";
    ДатаВывода = КонецДня(ДатаВывода) + 1;
КонецЦикла;

Если СтрДлина(СтрокаВывода) > 1 Тогда
    СтрокаВывода = Лев(СтрокаВывода, СтрДлина(СтрокаВывода) - 2);
КонецЕсли;

ПоказатьПредупреждение(,СтрокаВывода);


Спасибо большое. Работает)))

Добавлено: 28 июл 2018, 10:12

Есть еще одна задача, которую я так и не смог решить

Пусть имеется адресная строка http://lenta.ru/news/2013/10/02/betterkittens/. Выведите в
окно сообщений каждое слово разделенное флешем.

Сможете помочь)?