Delphi中把分钟转换成多少天多少小时多少分钟

最新推荐文章于 2024-05-30 11:27:43 发布

D-Nolan

最新推荐文章于 2024-05-30 11:27:43 发布

阅读量153

点赞数

分类专栏： delphi常用函数文章标签： delphi

本文链接：https://blog.csdn.net/gust2013/article/details/129953207

版权

delphi常用函数专栏收录该内容

38 篇文章 1 订阅

订阅专栏

该函数名为MinsToStr，接受一个Cardinal类型的参数AMinutes，将其转换为天数、小时数和分钟数的字符串形式。它使用了Div和Mod运算符来计算天数和小时数，并通过SysUtils.Format方法格式化输出结果。

摘要由CSDN通过智能技术生成

函数代码

function MinsToStr(AMinutes: Cardinal): string;
{$IFNDEF FPC}
resourcestring
{$ELSE}
const
{$ENDIF}
  sFmt = '%d Days %d Hours %d Minutes';
const
  HoursPerDay = 24;
var
  Days, Hours, Minutes: Cardinal;
begin
  Hours := AMinutes div 60;
  Minutes := AMinutes mod 60;
  Days := Hours div HoursPerDay;
  Hours := Hours mod HoursPerDay;
  Result := SysUtils.Format(sFmt, [Days, Hours, Minutes]);
end;