delphi 秒计算分钟、小时函数 

1 function GetTimeStr(Sec: Integer): string;
2 begin
3   if Sec >= 3600 then
4     Result := Format('%d hour %d min %d sec', [Sec div 3600, Sec mod 3600 div 60, Sec mod 60])
5   else if Sec >= 60 then
6     Result := Format('%d min %d sec', [Sec div 60, Sec mod 60])
7   else
8     Result := Format('%d sec', [Sec]);
9 end;

 

posted @ 2021-04-19 08:34  一梦五千年  阅读(473)  评论(0)    收藏  举报