求助：怎么使一个时间减去 30 天啊？谢谢！

Question

procedure TQueryKaiKRecordForm.FormActivate(Sender: TObject);var
     NowTime:string;//现在的时间
     BetweenTime:string;//时间差
begin
     NowTime:=formatdatetime('YYYY-MM-DD',now);  //得到新增场地时间
     BetweenTime:=datetimetostr(strtodate(NowTime)-strtodate('30'));
     DateTimePicker1.Date:=strtodate(BetweenTime);
end;提示有错误啊？
各位大哥，我是错在哪里啊？
谢谢！

Answer 1

DateTimePicker1.Date:= Now - 30;
就可以了

Answer 2

matrix1996 大哥
我的为什么错了啊？
谢谢！