Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
15 июл 2024, 05:11

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

Автор Jack Fresco, 30 мая 2023, 20:08

0 Пользователей и 1 гость просматривают эту тему.

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)))

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск