如何获得昨天和明天的日期？

Question

请问各位大哥，我想通过日期来获取数据库中的信息，如：
date                  name            pickage            mix
2010-06-28           at33            50kg包装桶          混合30kg a02
2010-06-29 （今天）  at35            50kg包装桶          混合30kg a04
2010-06-30           at34            50kg包装桶          混合30kg a03我通过now获取今天的日期，从而得到今天的信息，我想问有什么办法可以自动得到昨天的日期和明天的日期？麻烦各位大哥啦

Answer 1

datetostr(now-1);
datetostr(now+1);

Answer 2

Yesterday、Today、Tomorrow - 昨天、今天、明天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)]);
　 {2010-6-28, 2010-6-29,2010-6-30}
end;

Answer 3

datetostr(now-1);
datetostr(now+1);

Answer 4

FORMATDATETIME('YYYY-MM-DD', NOW - 1) 昨天
FORMATDATETIME('YYYY-MM-DD', NOW - 1) 明天

Answer 5

datetostr(now-1);
datetostr(now+1);
NOW就是系统日期

Answer 6

ok啦，麻烦你们啦。
now+1
now-1
这个可以....