unit zinseszins;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Eintrittsalter: TLabel;
Endalter: TLabel;
Jahresbeitrag: TLabel;
Endbetrag: TLabel;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
function Power (Base,Exponent:Extended):Extended;
var eintritt,austritt,rate,
Anzahl,Abzug,Abzug2,gesamtabzug,Beitrag,KApital:integer;
hoch:extended;
begin
edit1.text:=inttostr(eintritt);
edit2.text:=inttostr(Rate);
edit3.text:=inttostr (Austritt);
Anzahl:=Austritt-Eintritt;
Abzug:= [(Rate*4)/100];
Abzug2:=[(Rate*10)/100];
gesamtabzug:=Abzug+Abzug2;
Beitrag:=rate-Abzug;
hoch:=power(1,05,Anzahl);
Kapital:=Beitrag*[hoch-1/[hoch*(hoch-1)];
Kapital:=inttostr (edit4.text);
end;
end;
end.