Valeu Pela Ajuda Galera, mas enquanto não chegava a respota
fiquei pensando em uma solução e CONSEGUI fazer da seguinte Forma:
Var
Tempo:TDateTime;
HOra:TTime;
Begin
if Hora < Tempo then
begin
Labe2.Caption := 'Bom Dia';
end
else
Label2.caption := 'BOA TARDE!';
E FUNCIONOU!!!!
Esse Código é no Evento onshow do FormPricipal.
Se não estiver certo, me digam...Me diz o que poderá ocrrer
colocando desta forma.
Agradeço a Atenção!!!!
--- Em delphi-br@yahoogrupos.com.br, Guionardo Furlan <guiona...@...>
escreveu
>
> O tipo datetime é um float em que 1 é igual a 1 dia, e 1 hora equivale
> a 1/24 e assim por diante. Dessa forma, 12 horas valem 0,5.
> Assim, é só vc testar se Frac(suahora)<0.5 pra saber se suahora é de
manhã.
> Fácil, não?
>
> Aquele abraço.
>
> 2009/1/22 rafaelpinto19 <rafaelpi...@...>:
> >
> >
> > Boa Tarde Galera,
> >
> > Pessoal, eu sei que é uma coisa bem básica, mas não estou
> > conseguindo resolver este problema:
> >
> > Quero Só colocar uma condição com Hora...exemplo... Se HORA < =
> > 11:59 tem que aparecer na Label1.Caption:= "Bom DIA" Se não := "BOA
> > TARDE". Parece Ser uma coisa Bem Simples, mas não estou conseguindo
> > resolver. Não sei se precisa colocar uma variável. Não sei se tem qu
> > econverter... Se alguém puder ajudar...iria ficar muito grato!!!!
>
> --
> Timeo hominem unius libri
> Cogito ergo sum - Carpe diem
>
> []s
> Guionardo Furlan
> http://guionardo.blogspot.com
>
