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.
La solution
Autres conseils
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;
Licencié sous: CC-BY-SA avec attribution
Non affilié à StackOverflow