unit Unit1; interface uses 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.posted on 2009-05-21 17:37 万一 阅读(3143) 评论(0) 编辑 收藏
Yesterday、Today、Tomorrow - 昨天、今天、明天
Yesterday、Today、Tomorrow - 昨天、今天、明天