Отсчет секунд до Нового года
Задачи пользователя - Поздравления
Бесплатные
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Узнавайте о новых бесплатных решениях в нашей телеграм-группе Инфостарт БЕСПЛАТНО
Перем мСчет;
&НаКлиенте
Процедура Старт(Команда)
мСчет = 0;
ПодключитьОбработчикОжидания("Отсчет", 1);
КонецПроцедуры
&НаКлиенте
Процедура Стоп(Команда)
ОтключитьОбработчикОжидания("Отсчет");
КонецПроцедуры
&НаКлиенте
Процедура Отсчет()
//мСчет = мСчет + 1;
мСчет = КонецГода(ТекущаяДата()) - ТекущаяДата();
Элементы.ЗначениеТаймера.Заголовок = Время(мСчет);
ПоказатьОповещениеПользователя(Время(мСчет));
КонецПроцедуры // Отсчет()
&НаКлиенте
Функция Время(Значение)
Если Значение < 60 Тогда
Возврат Строка(Значение) + " сек.";
ИначеЕсли Значение >= 60 И Значение < 60*60 Тогда
Возврат Строка(Цел(Значение/60)) + " мин. " + Строка(Значение-Цел(Значение/60)*60) + " сек.";
ИначеЕсли Значение >= 60*60 и Значение < 60*60*24 Тогда
Возврат Строка(Цел(Значение/(60*60))) + " час. "
+ Строка(Цел((Значение - (Цел(Значение/(60*60))*60*60))/60)) + " мин. "
+ Строка(Значение-Цел(Значение/60)*60) + " сек.";
ИначеЕсли Значение >= 60*60*24 и Значение < 60*60*24*31 Тогда
Возврат Строка(Цел(Значение/(60*60))) + " час. "
+ Строка(Цел((Значение - (Цел(Значение/(60*60))*60*60))/60)) + " мин. "
+ Строка(Значение-Цел(Значение/60)*60) + " сек.";
КонецЕсли;
КонецФункции // Время()
Внешняя обработка для управляемых форм с отчетом часов, минут, секунд до Нового Года.
Код честно позаимствован тут, за что автору спасибо=)
Вступайте в нашу телеграмм-группу Инфостарт
