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

最新推荐文章于 2025-05-26 11:35:45 发布

海纳老吴

最新推荐文章于 2025-05-26 11:35:45 发布

阅读量858

点赞数 1

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： delphi 时间 Time DateTme 时长

本文链接：https://blog.youkuaiyun.com/sensor_WU/article/details/115588864

Delphi 专栏收录该内容

183 篇文章

订阅专栏

本文介绍了一个用于计算两个时间点之间的时间间隔的函数，并演示了如何将其转换为易于理解的字符串格式，如“10天3小时23分18秒429毫秒”。此函数可以方便地应用于程序启动到关闭等场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

有时我们需要知道程序或者服务运行的时长，比如程序从启动到关闭，总共运行了 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;