Secs := Round(SecsPerMin * MinsPerHour * HoursPerDay * Abs(Time2 - Time1));
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.
Solution
OTHER TIPS
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;
Licensed under: CC-BY-SA with attribution
Not affiliated with StackOverflow