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