如何得到当前日期一个月前的日期？在线解决立马结贴！

Question

加一个月有incmonth函数，减一个月有没有decmonth函数哪？

Answer 1

IncMonth 不行的， 第二个参数是常数

Answer 2

incyear，incmonth，incweek函数
你把参数设置成incyear(tempdate,-1),incmonth(tempdate,-1),incweek(tempdate,-1)就可以了
要use DateUtils单元

Answer 3

  ShowMessage(DateTimeToStr(IncMonth(now,-1))) ;真还是对的 ！ :) ,指定值的常数参数也可以替换 

Answer 4

showmessage(datetostr(incyear(now,-1)));//上年
showmessage(datetostr(incmonth(now,-1)));//上月

Answer 5

function PreMonth(NowDate:TDateTime):Integer;
var
  YY,MM,DD:word;
begin
  DecodeDate(NowDate,yy,mm,dd);
  if MM>1 then MM:= MM-1 else MM:=12;
  result := MM;
end;

Answer 6

的确好用，多谢CloneCenter(复制中心)