Yesterday、Today、Tomorrow - 昨天、今天、明天

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs;type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}uses DateUtils;procedure TForm1.FormCreate(Sender: TObject);var  t1,t2,t3: TDateTime;begin  t1 := Yesterday;  t2 := Today;     //同 SysUtils.Date;  t3 := Tomorrow;  ShowMessageFmt('%s, %s, %s', [DateToStr(t1), DateToStr(t2), DateToStr(t3)]);  {2009-5-20, 2009-5-21, 2009-5-22}end;end.