如何计算某个日期一个前一个月的日期，急，在线等待

Question

例如：计算2005/10/31的一个月前的日期为多少。

Answer 1

如果是要求月份减一，用
IncMonth(const Date: TDateTime; NumberOfMonths: Integer = 1)
后面的参数写-1就可以了如果是30天，直接减30就可以了

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
    DateTimePicker1.DateTime:=IncMonth(DateTimePicker1.DateTime,-1)
end;

Answer 3

随便定义天数，就是我上面说的，直接减就可以了
比如15天前：
DateTimePicker1.DateTime:=DateTimePicker1.DateTime-1523天后
DateTimePicker1.DateTime:=DateTimePicker1.DateTime+23