关于日期的推算

Question

已知1986-11-5如何知道100天后是几月几日？
在TdateTime中是否有方法可供调用？
谢谢

Answer 1

直接把一个TDateTime的变量加上100赋给TDateTime类型就可以了.
ex:
var
a:TDateTime;
begin
a:=strtoDatetime('1986-11-5');
end;

Answer 2

同意楼上
DateTime类型，整数部分就是表示连续的天数，小数部分表示时间
uses DateUtils; // 其他推算这个单元里都有函数处理procedure TForm1.FormCreate(Sender: TObject);
var
  vDate: TDateTime;
begin
  vDate := StrToDateDef('1986-11-5', 0);
  vDate := IncDay(vDate, 100); //vDate + 100;
  Caption := DateToStr(vDate);
end;