通过delphi将秒数转换成日期格式
2020-02-17 11:08
567 查看
摘要
将秒数转换成日期格式,是经常用到的一个算法,下面有几个方法,可以借鉴
具体代码
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/
- 点赞
- 收藏
- 分享
- 文章举报
相关文章推荐
- 通过delphi将秒数转换成日期格式
- VC调用Delphi制作的动态链接库如何互相传递字符串
- Delphi 中用 GetEnvironmentVariable 获取常用系统变量
- Speed up the display of Delphi list components
- 用Delphi写ActiveX的经验
- Delphi6利用WebService 编写 SendEMail程序
- delphi 中分隔符分隔的字符串
- Delphi快速从文件流读取数据存入本地txt
- Delphi Opendialog用法
- Delphi选择指定路径作为操作路径
- [转]Delphi 12种大小写转换的方法
- 如何给ActiveX数字签名(Step by Step, Delphi)
- Delphi还是那个Delphi,变化了的只是世界
- 再执牛耳,Delphi的安卓开发,效率与性能兼而有之,比之鱼与熊掌
- Delphi的资料和教程,多多的
- delphi中TreeView使用常见问题
- 用delphi写下载程序
- delphi技巧--分离汉字和英文字母
- delphi中var关键字
- Delphi和C++ Builder中的Hibernate开发(一)