如何求一日期变量的向前推7天的日期值？比如将‘2001-8-2’变成‘2001-7-26’？

Question

日期类型直接相减就可以了～～
Date1:=StrToDate('2001-08-02');
Date2:=Date1-7;
ShowMessage(DateToStr(Date2));
就是2001-07-06

Answer 1

注意在Paradox中只支持美国日期格式：mm/dd/yyyy
这样写:
Date1:=StrToDate('2001-08-02');
Date2:=Date1-7;
Sql:='Select * from table wher theDate<='+''''+FormatDateTime('mm/dd/yyyy',Date1)+''''+' and theDate>='+''''+FormatDateTime('mm/dd/yyyy',Date1)+'''';
Query1.Active:=False;
Query1.SQL.Clear;
Query1.SQL.Add(Sql);
Query1.Active:=True;