delphi - Delphi 如何将 TDateTime 计算为 Float 值？

Question

我是 Delphi 编程新手。在查看 Delphi 中的数据类型时，我发现了TDateTime。

在我的测试应用程序中使用它时，我发现 TDateTime 对象为我提供了一个 Float\Double 值。

我对TDateTime如何计算Date Time到Double值有点好奇。

下面是我使用的示例代码:

var
  LDateTime: TDateTime;
  LFloat: Double;
begin
   LDateTime := now;// current DateTime
   LFloat:= LDateTime; // provide me a float value   
end;

是否使用任何公式从 Windows 计算日期和时间值？

任何人都可以建议/向我提供有关 TDateTime 工作的更多信息吗？

提前致谢。

Answer 1

float 表示自 1899 年 12 月 30 日以来的天数。因此浮点值 = 1 将是 31.12.1899，2 = 01.01.1900 等等。时间被保存为一天的一小部分。 0.25 = 06:00、0.5 = 12:00、0.75 = 18.00 ...

因此 31.12.1899 12:00 将等于 1.5。

这使得 TDateTime 非常易于使用。要获得天数差异，只需减去两个日期时间即可。

2015年1月2日 - 2015年1月1日 = 1

就这么简单。要获得小时差，只需乘以 24。

另请查看 Unit DateUtils 中的函数。它们有时会派上用场。