跨年第一贴:求转换成 小时:分钟:秒数的函数,小时数大于24,

[dqlihb]

double类型转换为字符串,有没有简化的代码或函数?

比如得出的结果是
1.????:MM:SS
255:59:09
255小时59分9秒
2.第??天?点?分

[ahjoe]

可以自己试试。

[ZuoBaoquan]

某个时间点可以直接用DateTimeToStr，
时间段可以使用Format和日期函数进行拼接

[僵哥]

function Func1(ADate: double): AnsiString;
const
  SecsPerHour = SecsPerMin * MinsPerHour;
var
  Hours,Mins,Secs: LongWord;
begin
  Secs := Trunc(ADate * SecsPerDay);
  Hours := Secs div SecsPerHour;
  Secs := Secs mod SecsPerHour;
  Mins := Secs div SecsPerMin;
  Secs := Secs mod SecsPerMin;
  Result := Format('%d:%d:%d',[Hours,Mins,Secs]);
end;

function Func2(ADate: double): AnsiString;
var
  Days,Hours,Mins: LongWord;
begin
  Mins := Trunc(ADate * MinsPerDay);
  Days := Mins div MinsPerDay;
  Mins := Mins mod MinsPerDay;
  Hours := Mins div MinsPerHour;
  Mins := Mins mod MinsPerHour;
  Result := Format('第%d天%d点%d分',[Days,Hours,Mins]);
end;

[gaobo873488743]

同求，我现在也遇到了这种情形，不知道怎么做，