//----------------------------------------------------------------- 
//Copyrigth Global Laboratory s.r.l. - Bari
// E' vietata qualsiasi riproduzione non autorizzata per iscritto
// dall'azienda
//-----------------------------------------------------------------
// calcola  IRE/Irpef
function calcola_irpef(panno,preddito){

var scaglioni = new Array (
      0,    26000,    0,23
, 26000,    33500, 5980,33
, 33500,   100000, 8455,39
,100000,999999999,34390,43
);

var Sc_2007 = new Array (
      0,    15000,    0,23
, 15000,    28000, 3450,27
, 28000,    55000, 6960,38
, 55000,    75000,17220,41
, 75000,999999999,25420,43
);

var Sc_2005 = new Array (
      0,    26000,    0,23
, 26000,    33500, 5980,33
, 33500,   100000, 8455,39
,100000,999999999,34390,43
);
var Sc_2003 = new Array (
      0,    15000,    0,23
, 15000,    29000, 3450,29
, 29000,    32600, 7510,31
, 32600,    70000, 8626,39
, 70000,999999999,23212,45
);
var Sc_2001 = new Array (
      0,    10329.13,       0,18
, 10329.13, 15493.70, 1859.24,24
, 15493.70, 30987.40, 3098.74,32
, 30987.40, 69721.67, 8056.73,39
, 69721.67,999999999,23163.09,45
);


// sposta gli scaglioni nell'anno
if (panno>=2007){scaglioni=Sc_2007;}
else if (panno>=2005){scaglioni=Sc_2005;}
else if (panno>=2003){scaglioni=Sc_2003;}
else if (panno>=2001){scaglioni=Sc_2001;}
//
// Calcola imposta 
//
r1 = preddito *1;
r2 = 0;

for (var i=0; i<scaglioni.length; i+=4) {
  if  ((r1<=0) | (scaglioni[i+1]<=0) | (r1 > scaglioni[i+0]))  {
    if  (r1 <= scaglioni[i+1]) {
	 r2 = scaglioni[i+2] + ((r1 - scaglioni[i+0]) * scaglioni[i+3] / 100);
	 break;
	} 
  }  		
 } 
 var oggi   = new Date();
 var giorno = oggi.getDay()
 var ora    = oggi.getHours()
 //if ( giorno > 0 && giorno < 5 && ora >= 9 && ora <=16 ){
 //	alert ('I calcoli sono disabilati dal luned́ al Venerd́ dalle ore 9 alle ore 17.');
 //       r2 = 0;
 //} 	

return r2;
}