Haylo, Pelo que entendi, veja se é isso mesmo que você quer.
function TemPermissao (HoraEntrada, HoraSaida : TTime) : Boolean; var Agora, a, b : TDateTime; begin Agora := Now; if HoraEntrada < HoraSaida then begin a := Trunc(Agora) + HoraEntrada; b := Trunc(Agora) + HoraSaida; end else begin a := Trunc(Agora) + HoraEntrada; b := Trunc(Agora) + HoraSaida + 1; end; Result := ((a <= Agora) and (b > Agora)); end; Atenciosamente, Felippe. -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html