O que aconteceu com o Delphi 7 ?

Delphi

29/04/2004

Pessoal, Eu tinha rotinas em delphi 5 e agora não rodam no Delphi 6 e 7 Alguém sabe o que aconteceu?

Tipo Decodetime

var
Present:TDateTime;
Hour, Min, Sec, Msec: Word;
Begin
Present:= Now;
DecodeTime(Present, Hour, Min, Sec,Msec);
if (Hour > 00) and (Hour < 12) then
begin
Caption := ´Bom Dia´;
end else
if (Hour > 12) and (Hour < 19) then
begin
Caption := ´Boa tarde´;
end else
if (Hour > 19) and (Hour < 24) then
begin
Caption := ´Boa Noite´;

Desde já agradeço


Zottis

Zottis

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

29/04/2004

Colega,

Depende da hora que você testou, pois, independente da versão, ela não funciona no seguintes horários: 12h, 19h e 00h.


GOSTEI 0
POSTAR