摘要
将秒数转换成日期格式,是经常用到的一个算法,下面有几个方法,可以借鉴
具体代码
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;
本文地址:,转发请保留这个地址,谢谢