delphi - 如何在德尔福获得昨天的日期

Question

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

Answer 1

您可以使用以下Yesterday功能DateUtils：

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;

这些函数返回一个TDateTime数据类型。时间分量设置为零。

Answer 2

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

由于一天在TDateTime编码中是1.0，因此减法1就足够了。