通过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;

 

 

本文地址：http://www.xszlo.com/article/2013-04-04/7990.html，转发请保留这个地址，谢谢

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/28623727/viewspace-757836/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/28623727/viewspace-757836/