用DateTimePicker1控件的问题=====能否相减？

Question

可以，你可以使一使：
showmessage(datetimetostr(DateTimePicker1.DateTime-60));

Answer 1

在delphi6中可以实现。
function IncMonth(const Date: TDateTime; NumberOfMonths: Integer = 1): TDateTime;
可以查看一下帮助中的date/time routines中的函数说明

Answer 2

to vickly(Delphi新手)
你还up什么？
难道我说的方法不行!?

Answer 3

你去看一下decode函数它可以将日期分成年月日然后在月的数据上减1然后再用decode的相反函数具体函数名我倒记不住去查一下help就可以了我做了一个程序也是用该方法完成日期的加减的。

Answer 4

日期类型的说明：
    type TDateTime = Double;
由此可知，当前可以进行数学运算了。

Answer 5

TO： lizhenjia(暴雪) 
      哦，可以。我把相减的值赋给minDate;
          DateTimePicker1.MinDate:=Now-60;想把小于minDate的日期变成灰色，不可选。但找了DateTimePicker1的属性，好像没有。谁有办法？？？

Answer 6

两个月又不一定是60天，还是日期分解比较方便
var year,month,day:word;
decodedate(DateTimePicker1.date,year,month,day);
if month>2 then month:=month-2
else 
 begin
  year:=year-1;
  month:=month+10;
 end;
DateTimePicker1.date:=strtodate(inttostr(year)+'-'+inttostr(month)+'-'+inttostr(day));

Answer 7

shddj(小白) 的方法不错哦！