Hi
HAb noch ein kleines Problem. ICh möchte das KApital1 auf 2 NAchkommastellen beschränken, weiß auch das das z.B.mit kapital1:10:2 gemacht wird aber ich weiß nicht wo ich das einfüge muss oder wo das überhaupt hinkommt. Würde mich sehr über eure Hilfe freuen.
DAnke
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Eintritt,Austritt,Rate,
Verwaltung,Todesfall,Jahre,Beitrag,
Kapital1:real;
hoch:extended;
begin
Eintritt:=strtofloat (edit1.Text);
Austritt:=strtofloat(Edit2.text);
Rate:=strtofloat(Edit3.text);
Verwaltung:=(Rate*4)/100;
Todesfall:=(Rate*10)/100;
Jahre:=Austritt-Eintritt;
Beitrag:=Rate-Verwaltung-Todesfall;
hoch:=Power(1.05,Jahre);
Kapital1:=Beitrag*1.05*(hoch-1)/0.05;
Edit4.Text:=floattostr (Kapital1);
end;
procedure TForm1.beendenClick(Sender: TObject);
begin
close;
end;
end.
[edit=Luckie]Delphi-Tags hinzugefügt. Mfg, Luckie[/edit]