Delphi中计算两个时间差值有没有函数？

Question

Delphi中计算两个时间差值有没有函数？有，是什么？没有，怎么解决？

Answer 1

用datediff就可以了.
datediff('s', date1, date2)取得秒.
大于3天
datediff('s', date1, date2)>60*60*24*3
大于2小时
datediff('s', date1, date2)>60*60*2
大于30分钟
datediff('s', date1, date2)>60*30
sleepy:
 's'表示用于计算 date1 和 date2 之间的时间间隔。它可以是以下的值：
yyyy 年 
q 季度 
n 月 
y 一年的日数 
d 日 
w 一周的日数 
ww 周 
h 小时 
m 分钟 
s 秒 

Answer 2

相差的小时数:=round(abs(time1-time2)*24*60);
相差的秒数:=round(abs(time1-time2)*24*60*60);

Answer 3

计算相隔天数：
  在Uses中加入dateutils;
  
  函数为daysbetween(datetime1,datetime2)