请问怎么进行时间对比

Question

定义一个TTime的变量，直接进行比较，要不你可以自己写一个通用的函数，也不是很复杂的。

Answer 1

function CompareTime(d1,d2:TDateTime):boolean;
var h1,m1,s1,ss1: Word;
    h2,m2,s2,ss2: Word;
begin
  DecodeTime(d1, h1, m1, s1, ss1);
  DecodeTime(d2, h2, m2, s2, ss2);  result := (h1=h2) and (m1=m2);
end;var time1,time2: TDateTime;
begin
  time1 := .....
  time2 := ....
  if CompareTime(time1,time2) then
     //这两个时间相等
end;

Answer 2

var t1,t2: ttime;
t1:=time;
t2:=你的时间;直接用两个TIME相减啊，
再乘secperday常数就是秒差，
乘msecperday就是毫秒差啊