(Resolvido) Comparar horas

[NöU@]

Dae pessoal!! beleza?

Eu denovo aki....heheh

mas eu queria saber o seguinte

como eu faço para comparar a hora atual para saber se é manhã, tarde ou noite??

Vlw desde já...

Abraços

[Jhonas]

como eu faço para comparar a hora atual para saber se é manhã, tarde ou noite??

Uma das maneiras

procedure TForm1.Button1Click(Sender: TObject);
var hora : TTime;
begin
   hora := now;
   label1.caption := timetostr(hora);
   if (timetostr(hora) >= '06:00:00') and (timetostr(hora) <= '12:00:00') then
      showmessage('Manha');
   if (timetostr(hora) >= '12:01:00') and (timetostr(hora) <= '18:01:00') then
      showmessage('Tarde');
   if (timetostr(hora) >= '18:01:00') and (timetostr(hora) <= '23:59:00') then
      showmessage('Noite');
   if (timetostr(hora) >= '00:01:00') and (timetostr(hora) <= '05:59:00') then
      showmessage('Madrugada');
end;

abraço

[NöU@]

Aí Jhonas..

Vlw pela ajuda..

mas depois que eu postei comecei a pensar nisso....

e fiz bem assim como você escreveu...

mas mesmo assim, brigadão pela dica

Resolvido!