Перем мСчет;
&НаКлиенте
Процедура Старт(Команда)
мСчет = 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) + " сек.";
КонецЕсли;
КонецФункции // Время()
Внешняя обработка для управляемых форм с отчетом часов, минут, секунд до Нового Года.
Код честно позаимствован тут, за что автору спасибо=)
