Sistema Francés de amortización para préstamos o créditos en PHP
Sistema Francés de amortización para préstamos o créditos en PHP
CÓDIGO FUENTE PHP
<?PHP $pre = $_POST['pre']; $int = $_POST['int']; $per = $_POST['per'];$imt = $int / 100;
$cuo = $pre * (($imt * ((1 + $imt) ^ $per)) / (((1 + $imt) ^ $per) - 1));
$int1 = $pre * $imt;
$amo1 = $cuo - $int1;
$sal1 = $pre - $amo1;
$amt1 = $amo1;
$pre2 = $sal1;
$int2 = $pre2 * $imt;
$amo2 = $cuo - $int2;
$sal2 = $pre2 - $amo2;
$amt2 = $amo2 + $amt1;
$pre3 = $sal2;
$int3 = $pre3 * $imt;
$amo3 = $cuo - $int3;
$sal3 = $pre3 - $amo3;
$amt3 = $amo3 + $amt2;
$pre4 = $sal3;
$int4 = round($pre4 * $imt,2);
$amo4 = $cuo - $int4;
$sal4 = $pre4 - $amo4;
$amt4 = $amo4 + $amt3;
$pre5 = $sal4;
$int5 = round($pre5 * $imt,2);
$amo5 = $cuo - $int5;
$sal5 = $pre5 - $amo5;
$amt5 = $amo5 + $amt4;
$pre6 = $sal5;
$int6 = round($pre6 * $imt,2);
$amo6 = $cuo - $int6;
$sal6 = $pre6 - $amo6;
$amt6 = $amo6 + $amt5;
$pre7 = $sal6;
$int7 = round($pre7 * $imt,2);
$amo7 = $cuo - $int7;
$sal7 = $pre7 - $amo7;
$amt7 = $amo7 + $amt6;
$pre8 = $sal7;
$int8 = round($pre8 * $imt,2);
$amo8 = $cuo - $int8;
$sal8 = $pre8 - $amo8;
$amt8 = $amo8 + $amt7;
$pre9 = $sal8;
$int9 = round($pre9 * $imt,2);
$amo9 = $cuo - $int9;
$sal9 = $pre9 - $amo9;
$amt9 = $amo9 + $amt8;
$pre10 = $sal9;
$int10 = round($pre10 * $imt,2);
$amo10 = $cuo - $int10;
$sal10 = $pre10 - $amo10;
$amt10 = $amo10 + $amt9;
?>