Корректно ли нахождение разницы во времени?

[M1zantr0p]

Проверьте пожалуйста, кому не лень, корректность кода, можно-ли как-то сделать проще или более эффективно?

На форме 3 компонента TDateTimePicker: tp1, tp2, tp3. Tp3 получает через функцию now текущие дату и время. Требуется получить разницу во времени между tp1 и tp3 (tp1-tp3), при этом необходимо учесть, что в tp1 время может быть меньше чем в tp3.
И в tp2 надо поместить "чистое" время без даты (найденную разницу).

Вот что я написал:

if tp1.time>tp3.time then 
 tp1.Date:=tp3.Date 
else 
 tp1.Date:=incday(tp3.Date);
tp2.datetime:=tp1.dateTime-tp3.dateTime;

[Karabash]

Корректное вычитание (сложение) времени лучше делать специализированными функциями:
- получить разницу во времени в секундах функцией SecondsBetween;
- для получения новой даты/времени вычесть из даты полученное количество секунд функцией IncSecond;
- оставить только время в новой дате, убрав дату функцией TimeOf (впрочем, в tp2 будет показано только время, если Kind = dtkTime).

Простое вычитание не даст ожидаемых результатов, хотя, казалось бы, вычитание (сложение) двух числовых величин, коими натурально являются данные типа TDateTime, не должно дать осечки. Тем не менее.

[M1zantr0p]

Это простой будильник, поэтому точность в 1 секунду не критична
Спасибо

[Аватар]

Простое вычитание не даст ожидаемых результатов

И самое веселое - SecondsBetween только и делает, что из одной даты/времени вычитает другую и умножает на число секунд в сутках, ну и в int64 результат