摘要
将秒数转换成日期格式,是经常用到的一个算法,下面有几个方法,可以借鉴
具体代码
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博客 ” ,链接:http://blog.itpub.net/28623727/viewspace-757768/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/28623727/viewspace-757768/