Как правильно перевести время в секундах к нормальному значению

-=OHRANA=- 04.06.2003 13:35

Нашел вариант вот такой

@body[]
$sec(3721)
Время в сек. - $sec<BR>
$ost(^eval($sec%3600))
$hour(^eval($sec-$ost)/3600)
$sec(^eval($ost%60))
$min(^eval(($ost-$sec)/60))
часы - $hour	<BR>
минуты - $min	<BR>
секунды - $sec	<BR>

а есть ли что покороче.

---