如何将秒数转换为时分秒

Question

比如现在描述为10000秒，我要转换为2小时46分4秒，最好有个函数

Answer 1

咪咪你也敢杀，呵呵function SecondToTime(a:integer):TTime;
begin
  result:=(a/86400);
end;ShowMessage(TimeToStr(SecondToTime(10000)));

Answer 2

完全可以自己算啊
function TForm1.GetTime(t: integer): string;
var
  a: string;
  h, m, s: integer;
begin
  h := t div 3600;
  a := intToStr(h) + '小时';
  i := t - h * 3600;
  m := t div 60;
  a := a + intToStr(m) + '分';
  t := t - m *60;
  s := t;
  Result  := a + intToStr(s) + '秒';
end;

Answer 3

完全可以自己算啊
function TForm1.GetTime(t: integer): string;
var
  a: string;
  h, m, s: integer;
begin
  h := t div 3600;
  a := intToStr(h) + '小时';
  t := t - h * 3600;
  m := t div 60;
  a := a + intToStr(m) + '分';
  t := t - m *60;
  s := t;
  Result  := a + intToStr(s) + '秒';
end;

Answer 4

uses DateUtils;procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := FormatDateTime('h"小时"n"分"s"秒"', IncSecond(0, 10000))
end;//2小时46分40秒