Из секунд в дни, минуты, часы

Question

Доброго времени суток. Есть значение разности дат в виде секунд, например  123600 сек.(разница между 25.03.2019  0:00:00 и 26.03.2019 10:20:00)

Помогите написать функцию, которая бы переводила эти секунды в количество дней, минут, часов и секунд.

Есть заготовка:

[1C-CODE]Функция ПредставлениеВремени(Знач Секунд) Экспорт
    
    Если НЕ ЗначениеЗаполнено(Секунд) Тогда
        Возврат "";
    КонецЕсли;
    
    Если ТипЗнч(Секунд) <> Тип("Число") Тогда
        Секунд = ?(ПустаяСтрока(Секунд), 0, Число(Секунд));
    КонецЕсли; 
    
    Часов  = Цел(Секунд / 3600);
    Минут  = Цел((Секунд % 3600) / 60);
    Секунд = Цел(Секунд % 60);
    
    Если Часов = 0 И Минут = 0 Тогда
        Возврат Строка(Секунд) + " с"; 
    ИначеЕсли Часов = 0 И Минут > 0 Тогда
        Возврат Строка(Минут) + " м " + Формат(Секунд, "ЧЦ=2; ЧН=00; ЧВН=") + " с"; 
    Иначе
        Возврат Строка(Часов) + " ч " + Формат(Минут, "ЧЦ=2; ЧН=00; ЧВН=") + " м " + Формат(Секунд, "ЧЦ=2; ЧН=00; ЧВН=") + " с";
    КонецЕсли;
    
КонецФункции[/1C-CODE]

Как сюда добавить дни?

Accepted Answer

(1)
я бы так сделал:

[CODE]Функция РазбитьСекунды(ВсегоСекунд)

Секунды = ВсегоСекунд % 60;
ВсегоМинут = (ВсегоСекунд - Секунды) / 60;
Минуты = ВсегоМинут % 60;
ВсегоЧасов = (ВсегоМинут - Минуты) / 60;
Часы = ВсегоЧасов % 24;
Дни = (ВсегоЧасов - Часы) / 24;

ПредставлениеДней = ?(ЗначениеЗаполнено(Дни), Строка(Дни) + " дн.", "");

Результат = СтрШаблон("%1 %2 ч. %3 мин. %4 сек.", ПредставлениеДней, Строка(Часы), Строка(Минуты), Строка(Секунды));

Возврат Результат;

КонецФункции[/CODE]