So, habe mir es mal angeschaut, und im Prinzip müsste man den Kapitalwert doch über folgende Funktion berechnen können, oder?
t: Anzahl der Jahre (1 Geldstrom pro Jahr --> Anzahl der Geldströme)
i: interner Zinsfuss
c: Array mit den Ein-/Auszahlungen
Delphi-Quellcode:
function berechne_kapitalwert(t:Integer;i:Double;c:Array of Double):Double;
var zaehler:Integer;
erg:Double;
begin
erg:=0;
for zaehler:=0 to (t-1) do begin
erg:=erg+c[zaehler]/math.power((1+i),zaehler);
end;
result:=erg;
end;
Aber ich glaube des stimmt nicht, weil ich es mal für Werte eines anderen Programms getestet habe, und ich bekomme einen Kapitalwert von ca. -550 raus, statt der gewünschten 0.
Habe schon ein paar andere Formeln ausprobiert, aber irgendwie klappt es nie.
Weiß jemand woran das liegt?
MfG
spezi