Fórum Intervalo entre Horas #224385
05/04/2004
0
: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.
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
Curtir tópico
+ 0
Responder
Posts
05/04/2004
Marco Salles
Primeito Declarea Vriável Como TTime e Não Como TDateTime
Segundo Tente Isto;
Acho que dá para ter uma idéia do que realmente precisa
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)