//----------------------------------------------------------------- 
//Copyrigth Global Laboratory s.r.l. - Bari
// E' vietata qualsiasi riproduzione non autorizzata per iscritto
// dall'azienda
//-----------------------------------------------------------------
//
// calcola interessi legali dal 1942 ad oggi
//richiama le funzioni: data_corretta; addgiorni; confrontadate

function calcola_interessi (pdal, pal, pimporto){

var dal = new Date();
var al  = new Date();

dal     = pdal;
al      = pal;

//tavola interessi legali
var tavola_interessi = new Array (
 '21/03/1942','15/12/1990','5'
,'16/12/1990','31/12/1996','10'
,'01/01/1997','31/12/1998','5'
,'01/01/1999','31/12/2000','2.5'
,'01/01/2001','31/12/2001','3.5'
,'01/01/2002','31/12/2003','3'
,'01/01/2004','31/12/2007','2.5'
,'01/01/2008','31/12/2009','3'
,'01/01/2010','31/12/2999','1'
);
var elementi_tavola =9;
var giorni     = 0;
var interessi  = 0;
var tinteressi = 0;
var w_dal      = new Date(2999,11,31);
var w_al       = new Date(2999,11,31);
var w_dal_sc   = new Date(2999,11,31);
var w_al_sc    = new Date(2999,11,31);
var elemento   = 0;

for (var i=1; i<=elementi_tavola; i++){
  // prende le date dallo scaglione
  elemento = (i-1)*3;
  w_dal_sc = data_corretta(tavola_interessi[elemento]);
  w_al_sc  = data_corretta(tavola_interessi[elemento+1]);    
  if (dateconfronta(dal,w_al_sc) != 'MAGGIORE') {
     if (dateconfronta(dal,w_dal_sc) != 'MINORE'){
         w_dal  = dal;	  
     }else{
       w_dal = w_dal_sc;
     }
   
     if (dateconfronta(al,w_al_sc) != 'MAGGIORE'){
      w_al  = al;	  
     }else{
      w_al = w_al_sc;
     }
   // calcola gli interessi dello scaglioni
    giorni     = Math.round((w_al.getTime() - w_dal.getTime()) / 1000 / 60 / 60 / 24)+1;
    interessi  = (pimporto*1)*(giorni*1)*(tavola_interessi[elemento+2]*1)/36500;
    tinteressi = tinteressi+interessi;
    if (dateconfronta(w_al,al) == 'UGUALE'){
      i=elementi_tavola+1;
    }	
   // riposiziona le date per lo scaglione successivo
      dal = addgiorno(w_al,1);
  }// fine test data in scaglione 	 	 
} // fine ciclo for

 return tinteressi;
 
} // fine funzione