我想实现 当前日期加上天数转换后取得日期，比如 今天借书，根据他能借书的天数，取得应还日期，IncDay(Date,MaxDate) 能实现吗，或者应该怎么做？拜托了~~~

 

http://zhidao.baidu.com/link?url=TTwTUpCwXp95YHvtEaPjbeT82NpgMHAHvS0Cww9oGL-KPdhExOgqxoa-Tgm3YiUbLXaS3vJP0zU9YCGG52rZpK

热心网友

var
a : Longint;
b : String;//毫秒数
t1,t2:tdatetime;
fs:TFormatSettings;

begin

fs.ShortDateFormat:='yyyy-mm-dd hh:MM:ss';
fs.DateSeparator:='-';

//StrtoDateTime('1970-01-01 0:00:00');
t1:= StrtoDatetime('1970-01-01 8:00:00',fs);

 // t1 := StrToDateTime('2013-10-2 1:1:1'); 

  t2 := IncDay(t1,10);
  ShowMessage(DateTimeToStr(t2)); //2013-10-12 1:01:01