delphi 秒计算分钟、小时函数

本文整理自网络，侵删。

 
function GetTimeStr(Sec: Integer): string;
begin
  if Sec >= 3600 then
    Result := Format('%d hour %d min %d sec', [Sec div 3600, Sec mod 3600 div 60, Sec mod 60])
  else if Sec >= 60 then
    Result := Format('%d min %d sec', [Sec div 60, Sec mod 60])
  else
    Result := Format('%d sec', [Sec]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
caption:=GetTimeStr(120);
end;
 

相关阅读 >>

Delphi 释放资源文件中的exe文件并运行

Delphi firedac mysql 连接

Delphi trimright 删除字符串右边的空格

Delphi sccoloredid，星际争霸彩色 id 修改器 v0.2.0，支持 windows vista

Delphi获取ie路径

Delphi createmessagedialog

Delphi tfilestream流操作1

Delphi xe中 exit 的新用法

Delphi 强制删除文件 zwdeletefile

Delphi保存读取utf-8的文本文件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 秒计算分钟、小时函数