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