Перевод даты в часы, работа с таймером

[Jack Fresco]

Здравствуйте. Снова я)
На этот раз вообще тема сложная, часа два думал как сделать, вообще нет идей.
Вообщем есть у меня таймер, работает он через обработчик ожидания, каждый тик он отнимает по секунде от даты окончания, но не суть. Допустим разница в датах составляет два дня
//дата начала - 01.01.2002
//дата окончания - 03.01.2002
Понятно что разница в двух днях, как мне вот эти два дня превратить в часы, типо 48:00:00 и при запуске таймера это всё превратилось бы в 47:59:59 / 47:59:58 и так далее

[antoneus]

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

&НаКлиенте
Функция РазностьДат(ДатаНачала, ДатаОкончания)

Секунды = ДатаОкончания - ДатаНачала;

Возврат СтрШаблон("%1:%2:%3",
Формат(Цел(Секунды / 3600), "ЧЦ=2; ЧДЦ=0; ЧН=; ЧВН="),
Формат(Цел((Секунды % 3600) / 60), "ЧЦ=2; ЧДЦ=0; ЧН=; ЧВН="),
Формат(Секунды % 60, "ЧЦ=2; ЧДЦ=0; ЧН=; ЧВН="))

КонецФункции //РазностьДат()
Бомба с часовым механизмом на 1с? Интересная задумка.

[Jack Fresco]

antoneus, мужчина вы гений. Спасибо, я немного поменял код и всё работает как надо)
Поменял ограничение, поставил максимальное число в часах на 3 , так как часы стакались до 99)))