Törlesztő részlet számítás?

Sziasztok!!

Van egy képlet amivel ki tudom számolni a havi törlesztőrészletet. Ezt excelben kaptam amiben visual basic nyelven írtak egy függvény-t és az számolja.

Nekem ezt PHP-ban kellene implementálnom de már sok sok időt rászántam és nem kapom a megfelelő eredményt, ezért fordulok hozzátok.

Az excel doksiban írt függvény a következő:

Function torlesztoreszlet(n As Long, H As Double, r As Double, datum As Date) As Double

Dim a, osszeg As Double

Dim tomb() As Variant

Dim napok_szama, p As Long

ReDim tomb(0 To n) As Variant

a = 1 / (1 + r)

napok_szama = 365

For p = 0 To n

tomb(p) = 0

Next p

tomb(0) = datum

For p = 1 To n

tomb(p) = DateSerial(Year(datum), Month(datum) + p, 10)

Next p

osszeg = 0

For p = 0 To n - 1

osszeg = osszeg + a ^ ((tomb(p + 1) - tomb(0)) / napok_szama)

Next p

torlesztoreszlet = H / osszeg

End Function

Ha ezt 2015-10-01-es dátummal bombázom meg és 130000 forintos finanszírozással és 10 hónapos futamidővel, akkor 14463 Ft-os havi törlesztőrészletet kellene kiköpnie.

PHP-ban így próbáltam:

/**

* n - futamidő

* h - finanszírozás

* r - kamatláb

* datum - dátum

*/

function torlesztoreszlet($n, $h, $r, $datum){

$tomb = [];

$a = 1/(1 + $r);

$napok_szama = 365;

for($p = 0; $p < $n; $p++){

$tomb[$p] = 0;

}

$tomb[0] = $datum;

$month = $n;

$year = 2015;

for($p=1; $p < $n; $p++){

if($month > 12){$month = 1;$year++;}

echo $tomb[$p] = "$year/$month/10"."<br />";

$month++;

}

$osszeg = 0;

for($p=0; $p<$n-1; $p++){

$osszeg += pow($a,($tomb[$p+1]-$tomb[0]) / $napok_szama);

}

return $torlesztoreszlet = $h / $osszeg;

}

echo torlesztoreszlet(10, 130000, 25, "2015/10/01");

Ehelyett teljesen más számok jönnek ki.

Egyébként gondoltam rá, hogy az excelben a DateSerial az az 1900 január 1 óta eltelt napok számát az adott dátumig kiszámolja és azt pakolja be a tömb indexekbe de amikor átalakítottam akkor se jött ki az eredmény.

Esetleg ha valakinek van ötlete vagy látja, hogy mit szúrok el, kérem jelezze. Köszönöm a segítséget!!