Porque não acho idade?

Delphi

23/08/2008

Gostaria de saber o que há de erro no meu código.
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

Mauriciocuri

Curtidas 0

Respostas

Edilcimar

Edilcimar

23/08/2008

Onde está o valor do edit no else?


GOSTEI 0
Nilmarvi2005

Nilmarvi2005

23/08/2008

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;


GOSTEI 0
Nilmarvi2005

Nilmarvi2005

23/08/2008

DIGO IDADE


GOSTEI 0
POSTAR