时间比较

 1 var
 2 t:string;
 3 i:integer;
 4 
 5 begin
 6 t:=formatdatetime('hhnn',now);
 7 i:=strtoint(t);
 8 if (i>0800) and(i<1500) then
 9 
 showmessage(t);
 
 end;