Zinsrechnung

[-Phantom-]

Delphi-Quellcode:

Uses Math;

FUNCTION lZeit(gWert,eWert,pSatz:Real): Real;
var
faktor : Real;
BEGIN 
 faktor := (pSatz / 100) + 1;   
result := (ln(eWert) -  ln(gWert)) / ln(faktor);

Müsste gehen