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点之间的时间

delphi7时间判断解决方案

相关推荐