关于delphi中time的问题

Question

var
    time1 : TDateTime;
    time2 : TDateTime;
    time3 : TDateTime;begin     time1 := strtotime('10:30:00');
     time2 := strtotime('10:32:00');
     time3 := time;判定time3是否在time1和time2之间，此判断语句该怎么写呢？

Answer 1

TDateTime类型其实就是一个Double值，可以直接比较：= , < , > ...

Answer 2

嗯
也可以把time转换成str比较 formatdatetime('hh:nn:ss', time)

Answer 3

if (time3 > time1) and (time3 < time2) then
  //你的代码

Answer 4

使用DateUtils单元中的CompareDateTime函数即可。