?呵呵,这不是问题吧? var d : TDateTime; begin d := d + 1; end; ok。没好好看书吧?
呵呵,只要你的这个字段是DateTime型的,天数直接加减即可, 当天数加减到了,月份自动加减, 比如: var d : TDateTime; begin d:=strtodatetime('2003-06-30'); d := d + 1; edit1.text:=datetimetostring(d);//此时edit1.text='2003-07-01' end;
var d : TDateTime; begin d:=strtodatetime('2003-06-30'); d := d + 1; edit1.text:=datetimetostring(d);//此时edit1.text='2003-07-01' end;
你要的是不是这个
EncodeDate(Year, Month, Day: Word): TDateTime;
var
d : TDateTime;
begin
d := d + 1;
end;
ok。没好好看书吧?
当天数加减到了,月份自动加减,
比如:
var
d : TDateTime;
begin
d:=strtodatetime('2003-06-30');
d := d + 1;
edit1.text:=datetimetostring(d);//此时edit1.text='2003-07-01'
end;
d : TDateTime;
begin
d:=strtodatetime('2003-06-30');
d := d + 1;
edit1.text:=datetimetostring(d);//此时edit1.text='2003-07-01'
end;