delphi7时间判断

Question

本帖最后由 chengccy2010 于 2012-01-01 22:45:39 编辑

Answer 1

都转为datetime类型，就可以直接大于小于比较了

Answer 2

if LeftStr(time, 2) = '00' or LeftStr(time, 2) = '10' then
begin
    ...
end;

Answer 3

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;

Answer 4

转化为DateTime类型，然后比较小数部分  小数部分 > 0 and 小数部分 < 2.0 / 24 就是0点到2点之间的时间

Answer 5

如果都是hh:mm:ss格式，不用转换，直接字符串比较就可以达到要求的。

Answer 6

var
 time: string;
begin
time := '22:45:35'；
 
if (time>'00:00:00') and (time<'02:00:00') then 即可，你试试，直接比较就管用！