linux 秒数转时间格式,通过delphi将秒数转换成日期格式

摘要

将秒数转换成日期格式，是经常用到的一个算法，下面有几个方法，可以借鉴

具体代码

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;

本文地址：，转发请保留这个地址，谢谢