使用delphi将HH：MM：SS转换为秒或分钟

发布时间：2020-12-15 09:09:41 所属栏目：大数据来源：网络整理

导读：有人可以告诉我关于将持续时间格式化HH：MM：SS转换为秒或分钟的最佳方法吗？即. 00:01:49 = 109secs 我正在使用此代码但不起作用 vari: real;j: integer;begini := frac(real(StrToTime('00:00:01')));j := trunc(frac(real(StrToTime('01:00:00'))) / i )

有人可以告诉我关于将持续时间格式化HH：MM：SS转换为秒或分钟的最佳方法吗？

即. 00:01:49 = 109secs

我正在使用此代码但不起作用

var
i: real;
j: integer;
begin
i := frac(real(StrToTime('00:00:01')));
j := trunc(frac(real(StrToTime('01:00:00'))) / i );
memo2.lines.add(inttostr(j));

当我用00:10:00尝试代码返回599

谢谢

解决方法

用于处理持续时间的非常灵活的工具是在System.TimeSpan单元中找到的TTimeSpan.您可以以不同的单位(秒,分钟,小时……)获得结果,并根据您的需要进行格式化.

var
  timeSpan: TTimeSpan;
begin
  timeSpan := TTimeSpan.Parse('00:01:49');
  memo2.lines.add(Format('%1.1f min',[timeSpan.TotalMinutes]));
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!