Question

关于DELPHI的问题：date与INT类型相加

生产日期（DATE类型），保质期为（INT），如何把他们相加得到到期日（DATE类型）？？

Answer 1

关于DELPHI的日期操作有个很好用的单元:DateUtils.

uses DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
d,e : TDateTime;
i : integer;
begin
d := StrToDate('2007-1-1');
e := IncDay(d,31); //IncDay(开始日期,要加的天数)
showmessage(DateToStr(e));
end;