hora dentro de um intervalo

Delphi

02/06/2004

Olá,

Fiz uma função para verificação de uma hora dentro de um intervalo
Por exemplo : Se a hora atual está dentro do intervalo entre 09:00 hrs e 12:00 hrs.

if (time >= HoraInicio.AsDateTime)
   and (time <= HoraFim.AsDateTime) then
   result := True;


Beleza. Funcionando.

Mas estou com problemas quando o intervalo passa por meia noite.
ex: Hora inicial 23:00 hrs e hora final 03:00 hrs.


Alguem sabe como resolver este problema com uma rotina que sirva para os dois casos.

Desde já agradeço.

Peace. Out.


Marcelo.l

Marcelo.l

Curtidas 0

Respostas

Paulo_amorim

Paulo_amorim

02/06/2004

Olá

Você poderia testar por partes...

- hora entre 23h00 e 24h00
- hora entre 00h00 e 03h00

if (time >= 23h00) and (time <= 24h00)
or (time >= 00h00) and (time <= 03h00)

Espero que ajude

Até+


GOSTEI 0
Rômulo Barros

Rômulo Barros

02/06/2004

Junto com a hora, utilize o dia ... ... ... .. :twisted: :twisted:


GOSTEI 0
POSTAR