var periodo; var cap_iniziale; var saggio_interesse; var num_anni; var num_mesi; var ratamens; var rata_mens; var interessetotale; var complex; var interesse_totale; var cap_complex; function ver_capitale(cap_0){ var myString=""; var myValue=""; var lenCap0=cap_0.length; for (i=0; iPiano Ammortamento"); writeln("PROSPETTO INDICATIVO DI MUTUO
"); writeln(""); writeln(""); writeln(""); writeln(""); writeln(""); writeln("
Capitale mutuato"+cap_iniziale_form+"
Tasso d'interesse"+saggio_interesse+" %
Durata mutuo"+num_anni+" anni
Rate annue"+periodo+"
Importo rata"+rata_mens_form+"
Totale interessi pagati"+interesse_totale_form+"
Importo complessivo pagato"+cap_complex_form+"

"); writeln(""); } for (var xcv=1;xcv<=num_mesi;xcv++){ if (xcv==1) { capresiduo=cap_iniziale; } var interesserata = capresiduo*saggio_int/periodo; var inter_rata=arrotonda(interesserata); var ratanetta=ratamens-interesserata; var rata_netta=arrotonda(ratanetta); capresiduo=capresiduo-ratanetta; var cap_residuo=arrotonda(capresiduo); var inter_rata_form = formatta(""+inter_rata+""); var rata_netta_form = formatta(""+rata_netta+""); var cap_residuo_form = formatta(""+cap_residuo+""); mutuo.document.write(""); } mutuo.document.writeln("
N° RATAImporto RATAQuota InteressiQuota CapitaleCapitale residuo
"+xcv+""+rata_mens_form+""+inter_rata_form+""+rata_netta_form+""+cap_residuo_form+"

STAMPA LA PAGINA
"); mutuo.document.close(); } function formatta(valore) { var lungh=valore.length; var pezzi=Math.ceil(lungh/3); var primopezzo= lungh-((pezzi-1)*3); var mynumber=""; var xx; var yy; if (lungh>1){ for (i=0; i0 && i<(pezzi-1)) { xx=primopezzo+((i-1)*3); yy=3; mynumber=mynumber+valore.substr(xx,yy)+"."; } if (i==(pezzi-1)) { xx=primopezzo+((i-1)*3); yy=3; mynumber=mynumber+valore.substr(xx,yy); } } } else{ mynumber=""+valore+""; } return(mynumber); }