Difference between 2 dates in Delphi 5

Question

I want to be able to find the difference in seconds between two TDateTime variables in Delphi 5. In the later versions of delphi there are helper functions SecondsBetween to do this. Is there a better way to do this other than rolling my own (Finding the difference of the two variables as a double then converting them to seconds)?

Thanks.

Answer 1

Secs := Round(SecsPerMin * MinsPerHour * HoursPerDay * Abs(Time2 - Time1));

Answer 2

Here goes another way of doing the same. Tested in Delphi 5

var
  Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(datetime2-datetime1, Hour, Min, Sec, MSec);
end;