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;
原文：https://www.cnblogs.com/jijm123/p/14152488.html