請問是否有現成的函數可以轉, ex: 360 秒-> 0時6分 因為秒數可能蠻多,轉出來可能到天. 謝謝.

寫一個function把秒數轉成時，分，秒時間型態字串： < class="code"> function ToTime(Seconds:Word):String; var hour,min,sec:Word; begin hour := Seconds div ( 60 * 60 ); min := ( Seconds mod ( 60 * 60 ) ) div 60; sec := Seconds mod 60; Result := TimeToStr(EncodeTime(hour,min,sec)); end; 很快的寫寫，不知道邏輯有無錯誤，請參考！ -----------------------------------------------

您好: 我查過DateUtils沒有看到可用的函數,所以您可能要自己做一下 要解析到天,所以麻煩了一點 記得要uses DateUtils,才能用IncSecond函數

procedure TForm1.Button1Click(Sender: TObject);
var
 DateTime:TDateTime;
 Day,Hour,Min,Sec,MSec:word;
 ASec:integer;
begin
ASec:=86401;//你輸入的秒數
Day:=ASec div 86400;//一天為86400秒
DateTime:=IncSecond(DateTime,ASec);//轉成TDateTime型態
DecodeTime(DateTime,Hour,Min,Sec,MSec);//解析成小時,分鐘,秒
Label1.Caption:=
IntToStr(Day) '天' 
IntToStr(Hour) '小時' IntToStr(Min) '分鐘' IntToStr(Sec) '秒';
end;