Hora no Form

Delphi

11/05/2009

Quero colocar uma mensagem no meu form de acordo com o horário do sistema:

de 00:00:00 até 12:00:00 (Bom Dia);
de 12:00:00 até 18:00:00(Boa Tarde);
de 18:00:00 até 00:00:00(Boa Noite);

Qual seria a linha de código em Delphi?

Abraço

Carlos


Caleonel

Caleonel

Curtidas 0

Respostas

Woinch

Woinch

11/05/2009

   if (TimeOf(Now) < StrToTime(´12:00:00´)) then ShowMessage(´Bom dia!´)
   else if (TimeOf(Now) < StrToTime(´18:00:00´)) then ShowMessage(´Boa tarde!´)
   else ShowMessage(´Boa noite!´);


Espero ter ajudado!
Obrigado...


GOSTEI 0
POSTAR