delphi - 如何使用Delphi计算小时数？

Question

嗨，我需要在delphi中添加小时数，我有几个小时的数据以这种方式表示9:18:02、8:15:19、9:22:13，我需要知道这些小时的总数，对于例如，这三个数据总计为 26:55:34。这个想法是为了了解用户花费的总小时数。感谢您的帮助。

Answer 1

如果你想要whole时间:

var 
  totalHours: Integer;
...
totalHours := HoursBetween(0,StrToTime(s1) + StrToTime(s2) + StrToTime(s3));

如果你想要fractional时间:

var
  fracHours: Double;
...
fracHours := HourSpan(0,StrToTime(s1) + StrToTime(s2) + StrToTime(s3));

其中 s1、s2、s3 是表示为字符串的时间值。

注意，在使用日期、时间值时，请查看 RTL 提供的内容:Date and Time Support .

---

正如 mg30rg 在评论中提到的，有 StrToTime 的重载版本。和 TryStrToTime它处理时间字符串的特定区域设置转换，并消除可能线程更改应用程序转换设置的影响。阅读文档中有关 TFormatSettings 的说明在上面的链接中。

真实代码还应该处理可能的转换错误。