时间函数，再线等待

Question

如何将两个时间相加，减？？？

Answer 1

Delphi提供了日期函数库Dateutils.pas，你可以引用该单元，打开看看，什么函数都有。
日期是可以相加减的，如：
var
  date1,date2 :TDatetime ;
  f : double ;  date1 := date ;//今天
  date2 := date1 -2 ;//前天  f := date2-date1 ; //f=2相差两天

Answer 2

两个日期相减，返回秒数
procedure TForm1.Button1Click(Sender: TObject);
var
  StartTime, StopTime, Difference : TDateTime;
begin
  StartTime :=Now;    //当前日期
  StopTime :=Now+8;   //一个日期
  Difference := StopTime - StartTime;
  Edit1.Text :=FloatToStr(Difference*24*3600);
end;

Answer 3

var
  date1,date2 :TDate ;
  i:integer;
begin
  date1 := date() ;//今天
  date2 := strtodate('2002-01-01');
  i:= trunc(date2-date1) ; 
end;

Answer 4

var
  i:double
begin 
  i:=date1-date2;
edn;

Answer 5

agree...
I was late for answer.      :(
+_)(*&^%$

Answer 6

请关注http://expert.csdn.net/Expert/topic/1380/1380380.xml?temp=.1580774中我的回复，对我的时间函数提提意见，我很菜的

Answer 7

请关注http://expert.csdn.net/Expert/topic/1405/1405574.xml?temp=.654812中我的回复，对我的时间函数提提意见，我很菜的
我抛砖了，能引来玉么？

Answer 8

decodetime(now,year,month,day);
encodetime(year+你要加的年数，month+你要加的月数，day+你要加的天数)；
另一种办法：
定义一个变量 t:tsystemtime;
getsystemtime(t);
t.hour+
t.minute+
t.second+
t.misecon+

Answer 9

把decodedate错写成了decodetime;
把encodedate错写成了encodedate;