Глава 1 (продолжение 1)
Задача 1.5 Работа с датами
Пользователь вводит число дней. Программа выводит новую дату и день недели.
Решение
Поле "Сегодня" заполняется автоматически. Введите день недели сегодня и число дней
до новой даты. Программа выведет новую дату и день недели.
Код программы
Функция дниНед(колДней,деньНед)
Темп=деньНед+колДней%7;
Если (Темп>7) Тогда
Темп=Темп-7;
КонецЕсли;
Если(Темп<=0) Тогда
return Темп+7;
Иначе
return Темп;
КонецЕсли;
КонецФункции
Процедура Сформировать()
МойСписок=СоздатьОбъект("СписокЗначений");
МойСписок.ДобавитьЗначение("Пн","Понедельник");
МойСписок.ДобавитьЗначение("Вт","Вторник");
МойСписок.ДобавитьЗначение("Ср","Среда");
МойСписок.ДобавитьЗначение("Чт","Четверг");
МойСписок.ДобавитьЗначение("Пт","Пятница");
МойСписок.ДобавитьЗначение("Сб","Суббота");
МойСписок.ДобавитьЗначение("Вс","Воскресенье");
Сегодня1=Сегодня+Дни;
Буфер=СокрЛП(ДеньНедСег);//убрали пробелы по краям
Индекс=МойСписок.НайтиЗначение(Буфер);
Темп=дниНед(Дни,Индекс);
ДеньНедСег1=МойСписок.ПолучитьЗначение(Темп,"Значение");
КонецПроцедуры
Время=ТекущееВремя(,,);
Сегодня=ТекущаяДата();
Дни=1;
Сегодня1=Сегодня+Дни;
Назад |
Начало урока |
Вверх |
Вперед
Содержание
