How can I implement MS Excel's "IRR()" formula in PHP?
I tried the algorithm mentioned in this page but the results were not accurate and it was really slow.
How can I implement MS Excel's "IRR()" formula in PHP?
I tried the algorithm mentioned in this page but the results were not accurate and it was really slow.
After investigating a while, I ended up with the function copied below.
It is based on this question.
function IRR($investment, $flow, $precision = 0.001) {
$min = 0;
$max = 1;
$net_present_value = 1;
while(abs($net_present_value - $investment) > $precision) {
$net_present_value = 0;
$guess = ($min + $max) / 2;
foreach ($flow as $period => $cashflow) {
$net_present_value += $cashflow / (1 + $guess) ** ($period + 1);
}
if ($net_present_value - $investment > 0) {
$min = $guess;
} else {
$max = $guess;
}
}
return $guess * 100;
}
This is modified from Tomas's answer. It stops the infinite loop by a check at the start to make sure cashflow is greater than investment. I have also increased the precision and run it a maximum of 20 times.
private function IRR($investment, $flow, $precision = 0.000001) {
if (array_sum($flow) < $investment):
return 0;
endif;
$maxIterations = 20;
$i =0;
if (is_array($flow)):
$min = 0;
$max = 1;
$net_present_value = 1;
while ((abs($net_present_value - $investment) > $precision)&& ($i < $maxIterations)) {
$net_present_value = 0;
$guess = ($min + $max) / 2;
foreach ($flow as $period => $cashflow) {
$net_present_value += $cashflow / (1 + $guess) ** ($period + 1);
}
if ($net_present_value - $investment > 0) {
$min = $guess;
} else {
$max = $guess;
}
$i++;
}
return $guess * 100;
else:
return 0;
endif;
}
function IRR($values, $guess = 0.1) {
$maxIterations = 100;
$tolerance = 0.00001;
$count = count($values);
$positive = false;
$negative = false;
for ($i = 0; $i < $count; $i++) {
if ($values[$i] > 0) {
$positive = true;
} else {
$negative = true;
}
}
if (!$positive || !$negative) {
return null;
}
$guess = ($guess == 0) ? 0.1 : $guess;
for ($i = 0; $i < $maxIterations; $i++) {
$npv = 0;
$dnpv = 0;
for ($j = 0; $j < $count; $j++) {
$npv += $values[$j] / pow(1 + $guess, $j);
$dnpv -= $j * $values[$j] / pow(1 + $guess, $j + 1);
}
$newGuess = $guess - $npv / $dnpv;
if (abs($newGuess - $guess) < $tolerance) {
return $newGuess;
}
$guess = $newGuess;
}
enter code here
return null;
}