Работа со временем без типа Data

[monty "2"]

Имеется задача:

Заданы моменты начала и конца некоторого периода времени в часах, минутах и секундах. Найти продолжительность этого периода в том же виде
(в пределах одних суток).

Задача вроде простая НО как ее реализовать не используя тип данных Data?

[Google2010]

 ks:=h1*3600+m1*60+s1-s2-m2*60-h2*3600;// количество секунд между h2:m2:s2 и h1:m1:s1 

s:=ks mod 60;// секунды
h:=(ks-s) div 3600;//часы
m:=(ks-s-h*3600)/60;//минуты

[Tirendus]

Например, время начала - 5:30:25, а конца - 12:40:11. В таком виде примерно? Если да, просто все время переведите в секунды, от конца отнимите начало и переведите секунды обратно в заданный формат. Главное учитывать, что нет такой вещи, как 60 минут - это уже 1 час и нет такой вещи, как 60 секунд - это уже 1 минута.

[monty "2"]

не понятно немного, можно в коде?

[monty "2"]

спасибо, попробую в таком варианте

[monty "2"]

а если первая дата меньше второй?

[Google2010]

Заданы моменты начала и конца некоторого периода времени (в пределах одних суток).

как тут начало может быть больше конца)
ну или накрайняк

ks:=abs(h1*3600+m1*60+s1-s2-m2*60-h2*3600);

[monty "2"]

у меня когда тестили первоначальный вариант то вбили первую дату 19:10:50 а вторую 20:20:25, все и развалилось

сейчас на переменной m касяк какойто с типами, [Error] Unit1.pas(71): Incompatible types: 'Integer' and 'Extended', переменные объявлены как integer, floatTOint и наоборот не работает.