时间或日期的相减

字体大小: 中小 标准 ->行高大小: 标准 中 大 
var 
time1,time2,time3:TDatetime;

h,m,s:integer;

begin

time3:=time1-time2;

decodetime(time3,h,m,s);

result:=h*3600+m*60+s;

end;

　//返回秒数

此文章由 http://www.ositren.com 收集整理 ,地址为: http://www.ositren.com/htmls/67943.html