Вы как-то странно считаете. Давайте вместе
:
1. В 1 секунде 1000 мс.
2. В 1 минуте 60 секкунд.
3. В 1 часе 60 минут.
Для начала определим большее (часы):
hh := msec div (60 * 60 * 1000)
Глянем остаток:
ost := msec - hh * (60 * 60 * 1000)
Если остаток > 0, то продолжаем. Определим минуты:
mm := ost div (60 * 1000)
Опять смотрим остаток:
ost := mm * (60 * 1000)
Если остаток > 0, то продолжаем. Определим секунды:
ss := ost div 1000
Ну и еще раз вычислив аналогично остаток, получим миллисекунды:
mms := ost - ss * 1000
Фсе
Можно сделать и без переменной под остаток.