Secs := Round(SecsPerMin * MinsPerHour * HoursPerDay * Abs(Time2 - Time1));
Difference between 2 dates in Delphi 5
Frage
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.
Lösung
Andere Tipps
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;
Lizenziert unter: CC-BY-SA mit Zuschreibung
Nicht verbunden mit StackOverflow