如何在 Delphi 中获取昨天的日期

Question

我知道您可以使用 Now() 函数获取当前日期和时间，但是您如何获取昨天的日期？

Answer 1

您可以使用 DateUtils 中的 Yesterday 函数，如下所示：

uses DateUtils;

begin
  ShowMessage('Yesterday = ' + DateToStr(Yesterday)); // Date of yesterday
  ShowMessage('Today     = ' + DateToStr(Date)); // Date of Today
  ShowMessage('Tomorrow  = ' + DateToStr(tomorrow)); // Date of tomorrow
end;

这些函数return一种TDateTime数据类型。时间分量设置为零。

Answer 2

为什么不直接使用 Date - 1？

因为一天在TDateTime编码中是1.0，减去1就够了。