delphi7时间判断解决方案

delphi7时间判断
var
 time: string;
begin
time := '22:45:35'；
 
如何判断 time 是否在 '00:00:00' 和 '02:00:00'这个区间内？

[解决办法]
都转为datetime类型，就可以直接大于小于比较了
[解决办法]

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);var  time,time1,time2: string;begin  time := '22:45:35';  time1 := '00:00:00';  time2 := '02:00:00';  if (strToDateTime(time)>=strToDateTime(time1)) and (strToDateTime(time)<=strToDateTime(time2)) then    showmessage('在區間內')  else    showmessage('不在區間內');end;
[解决办法]
转化为DateTime类型，然后比较小数部分

 小数部分 > 0 and 小数部分 < 2.0 / 24 就是0点到2点之间的时间