delphi 日期加法运算

Question

大家好：  
   如何用TDateTimePicker实现日期加减的运算。
  1)、假如TDateTimePicker.date 为2010.06.29，现在要将日期
     加一天变成2010.06.30.
  2)、假如TDateTimePicker.date 为2010.06.30，现在要将日期
     加一天变成2010.07.01.
thanks

Answer 1

加上DateUtils单元, incday(now,1)

Answer 2

其实也可以直接加1, 如 DateTimePicker1.Date +1

Answer 3

如果你是用的   DateTimePicker 控件
直接   DateTimePicker.Date :=   DateTimePicker.Date  + 1;
就可以了啊.

Answer 4

用楼上给的方法即可，日期可以直接加减，用IncDay减的话直接写负数，如IncDay(Now,-1);
此外有专门针对月份和年加减的方法，IncMonth和IncYear

Answer 5

var MyDate:TDate;MyDate:=StrToDate('2010-06-30')+1;