Delphi 如何使用时间函数
1，如果获得7天前的Tdatetime时间对象？

2，如何获得上个月26号的Tdatetime时间对象？

[解决办法]
uses dateutils;

var
D:TDateTime;

1. D:=Date-7;
2. if monthof(date)=1 then
D:=EncodeDate(yearof(date)-1,12,26)
else
D:=EncodeDate(yearof(date),monthof(date)-1,26);
[解决办法]
uses DateUtils

IncDay(now,-7);
RecodeDay(IncMonth(now,-1),29);