Fórum Porque não acho idade? #362889
23/08/2008
0
Gostaria de saber o que há de erro no meu código.
Deveria aparecer a idade no editIdade, mas não dá certo. Alguém sabe por quê?
procedure TFormLocalizar.FormCreate(Sender: TObject);
var DiaNasc,AnoNasc,MesNasc,DiaAtual,MesAtual,AnoAtual: word;
idade: integer;
begin
inherited;
DecodeDate(now,AnoAtual,MesAtual,DiaAtual);
DecodeDate(DM.Tab_CadastrodataNascimento.AsDateTime,AnoNasc,MesNasc,DiaNasc);
if((MesAtual >= MesNasc) and (DiaAtual >= DiaNasc)) then
begin
idade:=AnoAtual-AnoNasc;
EditIdade.Text:=intToStr(DiaNasc);
ShowMessage(´A idade é ´+IntToStr(idade))
end
else
begin
idade:=AnoAtual-1-AnoNasc;
end;
end;
Deveria aparecer a idade no editIdade, mas não dá certo. Alguém sabe por quê?
Mauriciocuri
Curtir tópico
+ 0
Responder
Posts
23/08/2008
Edilcimar
Onde está o valor do edit no else?
Responder
Gostei + 0
23/08/2008
Nilmarvi2005
procedure TFormLocalizar.FormCreate(Sender: TObject);
var DiaNasc,AnoNasc,MesNasc,DiaAtual,MesAtual,AnoAtual: word;
idade: integer;
begin
inherited;
DecodeDate(now,AnoAtual,MesAtual,DiaAtual);
DecodeDate(DM.Tab_CadastrodataNascimento.AsDateTime,AnoNasc,MesNasc,DiaNasc);
if((MesAtual >= MesNasc) and (DiaAtual >= DiaNasc)) then
begin
idade:=AnoAtual-AnoNasc;
EditIdade.Text:=intToStr(DiaNasc);????????????DiaNasc????? OU dade
ShowMessage(´A idade é ´+IntToStr(idade))
end
else
begin
idade:=AnoAtual-1-AnoNasc;
end;
end;
var DiaNasc,AnoNasc,MesNasc,DiaAtual,MesAtual,AnoAtual: word;
idade: integer;
begin
inherited;
DecodeDate(now,AnoAtual,MesAtual,DiaAtual);
DecodeDate(DM.Tab_CadastrodataNascimento.AsDateTime,AnoNasc,MesNasc,DiaNasc);
if((MesAtual >= MesNasc) and (DiaAtual >= DiaNasc)) then
begin
idade:=AnoAtual-AnoNasc;
EditIdade.Text:=intToStr(DiaNasc);????????????DiaNasc????? OU dade
ShowMessage(´A idade é ´+IntToStr(idade))
end
else
begin
idade:=AnoAtual-1-AnoNasc;
end;
end;
Responder
Gostei + 0
23/08/2008
Nilmarvi2005
DIGO IDADE
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)