function CAPA(Dat, Gir, Revenu, Euro)	{
var P, Base, Mini, Maxi, Aide, Taux
// 							ACTP	  Gir1	Gir2   Gir3	   Gir4  G5 G6 G7 G8 G9  Euro				Mini  Maxi   TxMax An-Maj
//	alert("CAPA Deb" + Dat + " gir=" + Gir)
	Gir=	Default(Gir,1)
	Revenu=	Default(Revenu,0)	
	Euro=	Default(Euro,1)
	switch   (Dat)     {
	  case "01/2002" : P = [916.315, 1.190, 1.020, 0.765, 0.510, 0, 0, 0, 0, 0, (Euro)? 1: 6.55957, 1.020 ,3.40 , 0.8, 2002]; break;
	  case "01/2003" : P = [930.05,  1.190, 1.020, 0.765, 0.510, 0, 0, 0, 0, 0, (Euro)? 1: 6.55957, 1.020 ,3.40 , 0.8, 2003]; break;
   	  case "04/2003" : P = [930.05,  1.190, 1.020, 0.765, 0.510, 0, 0, 0, 0, 0, (Euro)? 1: 6.55957, 0.670 ,2.67 , 0.9, 2003]; break;
 	  case "01/2004" : P = [945.87,  1.190, 1.020, 0.765, 0.510, 0, 0, 0, 0, 0, (Euro)? 1: 6.55957, 0.670 ,2.67 , 0.9, 2004]; break;
   	  case "01/2005" : P = [964.78,  1.190, 1.020, 0.765, 0.510, 0, 0, 0, 0, 0, (Euro)? 1: 6.55957, 0.670 ,2.67 , 0.9, 2005]; break;
   	  case "01/2006" : P = [982.15,  1.190, 1.020, 0.765, 0.510, 0, 0, 0, 0, 0, (Euro)? 1: 6.55957, 0.670 ,2.67 , 0.9, 2006]; break;
   	  case "01/2007" : P = [999.83,  1.190, 1.020, 0.765, 0.510, 0, 0, 0, 0, 0, (Euro)? 1: 6.55957, 0.670 ,2.67 , 0.9, 2007]; break;
	  case "01/2008" : P = [ARx((11997.97/12)*1.016,2), 1.190, 1.020, 0.765, 0.510, 0, 0, 0, 0, 0, (Euro)? 1: 6.55957, 0.670 ,2.67 , 0.9, 2008]; break;  //1010.82 ACTP de 1.1% au lieu de 1.6 mini : 1015,83
	  case "09/2008" : P = [1018.91, 1.190, 1.020, 0.765, 0.510, 0, 0, 0, 0, 0, (Euro)? 1: 6.55957, 0.670 ,2.67 , 0.9, "septembre 2008"]; break;  	  //Augmentation Sept 2008
	  case "04/2009" : P = [1029.10, 1.190, 1.020, 0.765, 0.510, 0, 0, 0, 0, 0, (Euro)? 1: 6.55957, 0.670 ,2.67 , 0.9, "avril 2009"]; break;  		  //Augmentation avril 2009
	  case "04/2010" : P = [1038.36, 1.190, 1.020, 0.765, 0.510, 0, 0, 0, 0, 0, (Euro)? 1: 6.55957, 0.670 ,2.67 , 0.9, "avril 2010"]; break;  		  //Augmentation avril 2010
   	  case "04/2011" : P = [1060.16, 1.190, 1.020, 0.765, 0.510, 0, 0, 0, 0, 0, (Euro)? 1: 6.55957, 0.670 ,2.67 , 0.9, "avril 2011"]; break;  		  //Augmentation avril 2011 
   	  default        : P = [1060.16, 1.190, 1.020, 0.765, 0.510, 0, 0, 0, 0, 0, (Euro)? 1: 6.55957, 0.670 ,2.67 , 0.9, "avril 2011"]; break;  
   	}
	Base = P[0] * P[10];
	if (Gir == "MTP") {return(ARx(Base,2))};		
	Mini = Base * P[11];
	Maxi = Base * P[12];
	if (Revenu == "Mini") {return(Mini)};
	if (Revenu == "Maxi") {return(Maxi)};
	Aide = Base * P[Gir];
	Taux = ((Revenu - Mini) / (Maxi - Mini)) * P[13];
	if (Revenu > Maxi) Taux = P[13];
	if (Taux < .0001) Taux = 0;
	if (Dat == "TxGir") {return(P[Gir])};	
	if (Dat == "Taux") {return(Taux)};	
	if (Dat == "Aide") {return(Aide)};	
	if (Dat == "An")   {return(P[14])};	
	return(Aide*(1-Taux));
}