var
d:tdatetime;
x:integer;
begin
d:=strtodate('2000-01-01');
d:=d+x;//x为你要的天数接下来就知道了吧!
.........
end;
d:tdatetime;
x:integer;
begin
d:=strtodate('2000-01-01');
d:=d+x;//x为你要的天数接下来就知道了吧!
.........
end;
等,DELPHI得帮助写的很清楚!
分、秒就不用说了吧
不过这样处理起来精确性会有点偏差最好用decodetime、decodedate、encodedate、encodetime函数来做较好。