Intervalo entre Horas

Delphi

05/04/2004

:shock: Como saber se uma hora esta entre um intervalo de horas?

Ex:
var a : tdatetime;

a := strtotime(´08:00:00´);
if a in [´08:00:00´..´10:00:00´] then
showmessage(timetostr(a));

Como Saber se 08:00:00 está entre o untervalo´ 09:00:00 e 10:00:00´.

Entendeu.


Geraldo Júnior

Geraldo Júnior

Curtidas 0

Respostas

Marco Salles

Marco Salles

05/04/2004

Primeito Declarea Vriável Como TTime e Não Como TDateTime
Segundo Tente Isto;
procedure TForm1.Button1Click(Sender: TObject);
var
horas:TTime;
begin
 horas:=StrToTime(Edit1.Text);
 if (StrToTime(´09:00:00´)<Horas)and
    (Horas<StrToTime(´10:00:00´))then
   ShowMessage(´Esta Dentro Do Intervalo´);
end;
Acho que dá para ter uma idéia do que realmente precisa


GOSTEI 0
POSTAR