【delphi】获取两个时间之间的时长间隔字符串

有时我们需要知道程序或者服务运行的时长，比如程序从启动到关闭，总共运行了 10天 3小时 23分 18秒 429毫秒。那么我们就需要一个函数来进行转换。T1，T2分别表示开始时间和结束时间。

//计算某个时间之间的字符串格式
function Get_IntervalTime(T1,T2 : TDateTime) : string;
const
  sFmt = '%d 天 %d 小时 %d 分钟 %d 秒 %d 毫秒';
  // sFmt = '%d Days %d Hours %d Minutes %d Seconds';
  HoursPerDay = 24;
var
  Days, Hours, Minutes, Seconds, miSeconds: Cardinal;
  ASeconds: Cardinal;
begin
  ASeconds := SecondsBetween(T1, T2);
  miSeconds := MilliSecondsBetween(T1, T2);
  miSeconds := miSeconds mod 1000;

  Hours := ASeconds div SecsPerHour; // 总的小时数
  Minutes := (ASeconds - Hours * SecsPerHour) div 60; // 总的分钟数
  Seconds := ASeconds mod 60;
  Days := Hours div HoursPerDay;
  Hours := Hours mod HoursPerDay;

  Result := Format(sFmt, [Days, Hours, Minutes, Seconds, miSeconds]);
end;