摘要
将秒数转换成日期格式，是经常用到的一个算法，下面有几个方法，可以借鉴
具体代码
1：转换成HH:MM:SS格式的字符串格式：
function SecondToTime(a:integer):string;
begin
result:=timetostr(a/86400);
end;
或者
function SecondToTime(a:integer):string;
begin
result:=Format('%-.2d:%-.2d:%-.2d', [FTime div 3600, (FTime mod 3600) div 60,FTime mod 60]);
end;
2：转换成TDateTIme格式
function ConvertSecondsToTime(iSeconds: Word): TDateTime;
var
Hour, Min, Sec: Word;
begin
Hour := iSeconds div 3600;
Min := (iSeconds div 60) mod 60;
Sec := iSeconds mod 60;
Result := EncodeTime(Hour, Min, Sec, 0);
end;
本文地址：http://www.xszlo.com/article/2013-04-04/7990.html，转发请保留这个地址，谢谢
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/28623727/viewspace-757768/ ，如需转载，请注明出处，否则将追究法律责任。
