finde den fehler leider nicht
bitte helt mir
procedure TForm1.Button_BerechneClick(Sender: TObject);
var Tag1, tag2, monat1, monat2, jahr1, jahr2:integer; alter:real;
begin
Tag1:=strtoint(Edit_tag1.text);
Tag2:=strtoint(Edit_Tag2.text);
Monat1:=strtoint(Edit_Monat1.text);
Monat2:=strtoint(Edit_Monat2.text);
Jahr1:=strtoint(Edit_Jahr1.text);
Jahr2:=strtoint(Edit_Jahr2.text);
if tag1>tag2 and if monat1>monat2
then alter:=Jahr2-jahr1
else
if Tag1<Tag2 and if monat1>monat2
then Alter:=Jahr2-jahr1
else
if tag1<tag2 and if monat1<monat2
then Alter:=Jahr2-jahr1-1
else
if Tag1>tag2 and if monat1<monat2
then Alter:=Jahr2-Jahr1-1
Edit_Ausgabe.text:=floattostr(Alter)
end;
mir wird bei Edit_Ausgabe... dass der operator nicht auf den operandentyp anwendbar ist
bitte helt mir
procedure TForm1.Button_BerechneClick(Sender: TObject);
var Tag1, tag2, monat1, monat2, jahr1, jahr2:integer; alter:real;
begin
Tag1:=strtoint(Edit_tag1.text);
Tag2:=strtoint(Edit_Tag2.text);
Monat1:=strtoint(Edit_Monat1.text);
Monat2:=strtoint(Edit_Monat2.text);
Jahr1:=strtoint(Edit_Jahr1.text);
Jahr2:=strtoint(Edit_Jahr2.text);
if tag1>tag2 and if monat1>monat2
then alter:=Jahr2-jahr1
else
if Tag1<Tag2 and if monat1>monat2
then Alter:=Jahr2-jahr1
else
if tag1<tag2 and if monat1<monat2
then Alter:=Jahr2-jahr1-1
else
if Tag1>tag2 and if monat1<monat2
then Alter:=Jahr2-Jahr1-1
Edit_Ausgabe.text:=floattostr(Alter)
end;
mir wird bei Edit_Ausgabe... dass der operator nicht auf den operandentyp anwendbar ist
Comment