function leasing() {
var v = parseFloat(document.form1.valore.value);
var a = parseFloat(document.form1.anticipo.value);
var ant = parseFloat(document.form1.anticipo2.value);
var inc = parseInt(document.form1.incluso.value);
var nr = parseInt (document.form1.nrrate.value);
var z = parseFloat(document.form1.riscatto.value);
var h = parseFloat(document.form1.anni.value);
var m = parseInt (document.form1.versamenti.value);
var i = parseFloat(document.form1.tasso.value);
var pa = parseFloat(document.form1.pa.value);
var pr = parseFloat(document.form1.pr.value);
var d = parseInt(document.form1.mod.value);
var w = parseInt(document.form1.res.value);
var we = parseInt(document.form1.we.value);
var scor = parseInt(document.form1.scor.value);
var ali = parseFloat(document.form1.ali.value);
document.form1.rare.value= w-we;
//pre-condizioni
{
if (d==2) var w = document.form1.res.value ;
else if (inc==2) var w = document.form1.res.value = (h*m)-nr;
else var w = document.form1.res.value = h*m;
if (z==0) var z =document.form1.riscatto.value= ((pr*v)/100);
else var pr =document.form1.pr.value= format(((z/v)*100),2,true)+"%";
if (a==0) var a =document.form1.anticipo.value= ((pa*v)/100);
else var pa =document.form1.pa.value= format(((a/v)*100),2,true)+"%";
if (scor==2 && ali==0)
alert("indicare l'aliquota");
//tasso equivalente
var tas=((i/100)/m);
//tasso periodico
var ipo = Math.pow((1+tas),-w);
//a figurato n al tasso i
var ani = ((1-Math.pow((1+tas),-w))/tas);
//rata con anticipo
var ratauno=((v-a)-(z*ipo))/ani;
//post-condizioni
if (ant==2)var a =document.form1.anticipo.value=format(((v-(z*ipo))/(nr+ani)),2,true)*nr;
if (scor==1) var ali=document.form1.ali.value=0;
document.form1.rare.value= w-we;
//rata con rata come anticipo
if (ant==2) ratadue=((v-a)-(z*ipo))/ani;
//post-condizioni
if (ant==2)var a =document.form1.anticipo.value=format (ratadue,2,true)*nr;
//opzione rata
if (ant==1) var rata=ratauno;
else if (ant==2) var rata=ratadue;
var pa =document.form1.pa.value= format(((a/v)*100),2,true)+"%";
document.form1.tot.value = format(rata,1,true);
}
//sviluppo tabella
var j=0;//contatore
var Ij=0; //quota interessi
var PIj=0;//arrotondamento
var Cj=0; //quota capitale
var PCj=0;//arrotondamento
var IMj=0;//imponibile
var Rj=0; //quota rata
var Vj=v; //capitale
var Qj=ali; //aliquota
if (ant==1)var Aj=a; //anticipo
else var Aj=format(ratadue,1,true)*nr
var Zj=z; //riscatto
var Hj=h; //anni
if (m==12) var Mj = "
mens.";//versamenti
else if (m==6) var Mj = "
bim.";
else if (m==4) var Mj = "
trim.";
else if (m==3) var Mj = "
quad.";
else if (m==2) var Mj = "
sem.";
else if (m==1) var Mj = "
ann.";
var Lj=0; //totale rate
var Tj=0; //totale rimborso
if (ant==1) var Dj=v-Aj; //cap.-ant.
else if (ant==2) var Dj=v-format(((v-(z*ipo))/(nr+ani)),2,true)*nr; //cap.-ant.
var Ej=0; //debito estinto
var Fj=0;
var Pj=w; //nr rate
var ivaj=0;
var tivaj=0; //somma iva rate
var Tivj=0; //totale iva
var Tij=0;
var Taj=0;
var Tzj=0;
var G="
cap
tasso
anticipo
riscatto
iva
anni
vers.
nr rate
"; //intestazione della tabella
G+="
"+format(Vj,2,true)+"
"+i+"%"+"
"+format(Aj,4,true)+"
"+format(Zj,5,true)+"
"+Qj+"%"+"
"+Hj+"
"+Mj+"
"+Pj+"
";
G+="
Calcoli & Calcoli
ammortamento
";
G+="
cap
tasso
rata
q. i.
q. c.
c. e.
c. r.
r. r.
imp.
iva
"; //intestazione della tabella
for (j=1;j<=w;++j)
{
var Ij=tas*Dj;
Rj=rata;
Cj=Rj-Ij;
var PIj=Rj-format(Cj,2,true)
var PCj=Rj-PIj
var Pj=w-j;
Ej+=Cj;
Lj=(format(Rj,2,true)*w)+Aj;
Tj=Lj+z;
Tij+=Ij;
if (scor==2) ivaj=Cj-((Cj*100)/(100+ali));
else IMj=Cj
IMj=Cj-ivaj
tivaj+=ivaj;
Taj=(Aj-((Aj*100)/(100+ali)));
Tzj=(Zj-((Zj*100)/(100+ali)));
Tivj=tivaj+(Aj-((Aj*100)/(100+ali)))+(Zj-((Zj*100)/(100+ali)));
if (j==we+1) document.form1.vc.value=format(Dj,3,true);
document.form1.tot.value = format(rata,1,true);
//tasso equivalente
var vc = document.form1.vc.value;
var tasso = document.form1.pippo.value;
var rare = document.form1.rare.value;
var tasio=((tasso/100)/m);
//tasso periodico
var ipox = Math.pow((1+tasio),-rare);
//a figurato n al tasso i
var anix = ((1-Math.pow((1+tasio),-rare))/tasio);
var toto = (vc-(z*ipox))/anix
document.form1.riscat.value = z;
document.form1.toto.value = format(toto,1,true);
//sviluppo righe
G+="
"+ format(Dj,2,true)+"
"+i+"%"+"
"+format(Rj,4,true)+"
"+format(PIj,5,true)+"
"+format(IMj,6,true)+"
"+format(ivaj,6,true)+"
"+format(Ej,7,true)+"
"+format(Dj-Cj,8,true)+"
"+j+" --"+format(Pj,3,false)+"
";
Dj-=Cj;
}
if (isNaN(rata) ) var h=0;
else var h= Math.round(((Tij/Tj)*100)*1000)/1000; //interesse
var y= 100-h; //cap. + iva
if (isNaN(rata) ) var x=ali;
else var x= y-(((100-h)*100)/(100+ali)); //iva
if (isNaN(rata) ) var q=100-ali;
else var q= y-x;
var add = ("");
document.getElementById("graf").innerHTML=add;
G+="
riepilogo
capitale rimborsato
"+ format(Lj,2,true)+"
riscatto
"+ format(Zj,2,true)+"
Totale rimborsato
"+ format(Tj,2,true)+"
iva anticipo
"+Math.round(Taj*100)/100+"
iva riscatto
"+Math.round(Tzj*100)/100+"
totale iva
"+ Math.round(Tivj*100)/100+"
"
G+="
"; //chiusura tabella
//funzione ausiliaria per normalizzare la rappresentazione dei dati in output
function format(n,campo,decimale)
{
l = 0;
var s;
if (decimale)
{
n = Math.round(n*10000)/10000;
s = String(n);
l = s.length;
punto = s.indexOf('.');
if (punto<0) s +='.00';
if (punto==l-1) s +='00';
if (punto==l-2) s +='0';
punto = s.indexOf('.');
s = s.substr(0,punto+3);
}
else
s = String(n);
l = s.length;
while (l\ \ ";
body.innerHTML= codice;
}
}
else alert("metodo non supportato");
}