Análise Da Hora Em Delphi7

[Guest LPCamargo]

beleza!?

HELP!!!!!

Como fazer o Delphi7 analisar a hora e colocar no label se é bom dia, boa tarde ou boa noite!???

HELP-ME PLEASE!!!!

Valeu....

LPCamargo

[Graymalkin]

Não esqueça de acrescentar DateUtils na cláusula Uses e use:

var agora : TDateTime;
    hora : integer;
    retorno : String;

begin
  agora := now;
  hora := HourOf(agora);
  case hora of
    0..11: retorno := 'Bom dia!';
    12..17: retorno := 'Boa tarde!';
    18..23: retorno := 'Boa noite!';
  end;
  label1.caption := retorno;
end;

Seria algo assim?

Abraços,

Graymalkin