<?
// acquisizione

function getnumero($a) {

// $a testo numerico
// tolgo . delle migliaia
 $b= str_replace(".","",$a);
// sostituisco al post della , il punto
 return str_replace(",",".",$b)+0;



}

function Post2String($a) {
      if  (isset($_POST[$a]))
         return $_POST[$a];
    return "";
}
function Get2String($a) {
     
          if  (isset($_GET[$a]))
        return $_GET[$a];
    return "";
}



function Post2Num($a) {
       if  (isset($_POST[$a]))
        return getnumero($_POST[$a]);
        return 0;
}
function Get2Num($a) {
     
          if  (isset($_GET[$a]))
        return getnumero($_GET[$a]);
        return 0;
}
//

function intestazione($t) {
    return  "<h1>" . $t . "</h1>";
}

function nometitolo($t) {
    return  "<h3>" . $t . "</h3>";
}
function formato_italiano($valore,$ncifre) {
    return number_format($valore,$ncifre,',','.');
}
function formato_italianozero($valore,$ncifre) {
    if ($valore < -0.00000000001)
    return formato_italiano(-$valore,$ncifre);
    return formato_italiano($valore,$ncifre);
  
}
function calcolorata($interesse,$n,$C) {
// =(1+1/(POTENZA(1+tassomensile;numerorate)-1))*tassomensile*capitale
$nrate = $n*12;
$i = $interesse/1200; // diviso per 12 per avere il mese e per 100 perchè il valore è percentuale
return (1+1/(pow(1+$i,$nrate)-1))*$i*$C;

}
function PianoAmmortamento($C,$i,$numeroanni) {
    $NRATE =  $numeroanni*12;
    $INTERESSERATA = $i/1200;  // ERA PERCENTUALE
    $RATA = calcolorata($i,$numeroanni,$C);
    
    $TOTALERESTITUITOI = $RATA*$NRATE;              // valore iniziale da non toccare
    $INTESESSERESTITUITOI =   $TOTALERESTITUITOI-$C; // valore iniziale da non toccare
    
    $TOTALERESTITUITO = $TOTALERESTITUITOI;              
    $INTESESSERESTITUITO =   $INTESESSERESTITUITOI;  

    
        
    $CAPITALE_RESIDUO = $C;
    $INTESESSE_RESIDUO = $INTESESSERESTITUITO;
    
        
 
    echo '<table align="center" border="1"><caption>' . intestazione("dati del mutuo") . '</caption>';
    echo '<tr><td>Importo del finanziamento</td><td><b>' . formato_italiano($C,0) . '</b></td></tr>';
    echo '<tr><td>Tasso di interesse annuo</td><td><b>' . formato_italiano($i,2). '%</b></td></tr>';
    echo '<tr><td>Modalità di restituzione</td><td><b>' . $NRATE. '&nbsp;Rate Mensili</b></td></tr>';
    echo '<tr><td>Numero Anni</td><td><b>' . $numeroanni. '</b></td></tr>';
    //echo '<tr><td>Interesse per ciascuna  Rata</td><td><b>' . formato_italiano($INTERESSERATA,4) . '</b></td></tr>';
    echo '<tr><td colspan="2"><img src="https://www.a041.org/rata.png"></td></tr>';
    echo '<tr><td>Importo di ogni singola rata</td><td><b>' . formato_italiano($RATA,2) . '</b></td></tr>';
    echo '<tr><td>Restituisco</td><td><b>' . formato_italiano($TOTALERESTITUITO,2). '</b></td></tr>';
    echo '<tr><td>Totale Interessi</td><td><b>' . formato_italiano($INTESESSERESTITUITO,2). '</b></td></tr>';
    echo '<tr><td>Incidenza Interessi su Importo finanziamento</td><td><b>' . formato_italiano(100*$INTESESSERESTITUITO/$C,2). '%</b></td></tr>';
    echo '</table>';
    echo '<br><hr width="80%"><br>';
    
     
    
    
    for ($J=1;$J<=$numeroanni;$J++) {
    $TQI= 0;
    $TQC= 0;
    if ($J > 1) {
    
      echo '<br><hr width="80%">';
    }
        echo '<table align="center" border="1"><caption>' . nometitolo("Piano Ammortamento " . $J . "° anno") . '</caption>';    
    echo '<tr><td><b>1° Anno</b></td><td><b>Importo Rata</b></td><td><b>Quota Interessi</b></td><td><b>Quota Capitale</b></td><td><b>Interessi Residui</b></td><td><b>Capitale Residuo</b></td></tr>';
    for($I=1;$I<=12;$I++) {
        
        
        
        $QI =$INTERESSERATA*$CAPITALE_RESIDUO;
        $QC = $RATA-$QI;
        $TQI+=$QI;
        $TQC+=$QC;
        
    
        $CAPITALE_RESIDUO = $CAPITALE_RESIDUO - $QC;
        $INTESESSE_RESIDUO = $INTESESSE_RESIDUO -$QI;
        
        //echo '<tr><td>rata n. '. $I. '</td><td>'. formato_italiano($RATA,2).'</td><td>'. formato_italiano($QI,2).'</td><td>'. formato_italiano($QC,2).'</td><td>'. formato_italiano($INTESESSE_RESIDUO,2).'</td><td>'. formato_italiano($CAPITALE_RESIDUO,2).'</td></tr>';
        
        echo '<tr><td>rata n. '. $I. '</td><td>'. formato_italiano($RATA,2).'</td><td>'. formato_italiano($QI,2).'</td><td>'. formato_italiano($QC,2).'</td><td>'. formato_italianozero($INTESESSE_RESIDUO,2).'</td><td>'. formato_italiano($CAPITALE_RESIDUO,2).'</td></tr>';
    }
    
    
    echo '<tr><td><b>Tot. '. $J. '° anno</b></td><td><b>'. formato_italiano($TQI+$TQC,2).'</b></td><td><b>'. formato_italiano($TQI,2).'</b></td><td><b>'. formato_italiano($TQC,2).'</b></td><td>&nbsp;</td><td>&nbsp;</td></tr>';
    
    

    echo '<tr><td><b>Rimanente</b></td><td><b>'. formato_italianozero($TOTALERESTITUITO-($TQI+$TQC),2).'</b></td><td><b>'. formato_italianozero($INTESESSERESTITUITO-$TQI,2).'</b></td><td><b>'. formato_italiano($TOTALERESTITUITO-$TQC - $INTESESSERESTITUITO,2).'</b></td><td>&nbsp;</td><td>&nbsp;</td></tr>';
    echo '</table>';
    
    // AGGIORNO
    $TOTALERESTITUITO = $TOTALERESTITUITO-($TQI+$TQC);
    $INTESESSERESTITUITO = $INTESESSERESTITUITO-$TQI;
    
    }
    
}
?>

<html>
<head>
<title>piano ammortamento</title>
</head>
<body>

<?
  if (Post2String('ammortamento')=="") {
    ?>
      <h1> Calcolo Rata Mutuo</h1>
      <form method="POST">
      <table border="0" cellspacing="10">
      <tr><td>
      Importo Finanziamento:</td><td><input type="text" name="capitale"></td></tr>
     <tr><td> Tasso percentuale:</td><td><input size="2" type="text" name="interesse">%</td></tr>
      <tr><td>Durata in anni:</td><td><input size="2" type="text" name="anni"></td></tr>
      <tr><td colspan="2" align="center"><input type="submit" name="ammortamento" value="Calcola"></td></tr>
      </table>
      </form>
      <?
  }
  else {
        
//var_dump($_POST);
//var_dump($_POST['capitale']);
 $capitale = Post2Num('capitale');
 //var_dump($capitale);
 $interesse = Post2Num('interesse');  
 $anni = Post2Num('anni');  // pagamento in 10 anni
 if ($capitale <=0 ||  $interesse <=0 ||  $anni <=0) 
 echo "Digitare dati corretti";
 else 
 PianoAmmortamento($capitale,$interesse,$anni);
 
 echo '<br><div align="center"><a href="' .$_SERVER['PHP_SELF']. '">Indietro</a></div>'; 
  }
?>

</body>
</html>