var DaysList;
var MonthsList;
var MonthLength = new Array("Mois_longueur_vide",31,29,31,30,31,30,31,31,30,31,30,31);

/* Definition des style du calendrier */
/* Couleur */
var contour_tableau='#80ADD6';
var fond_tableau='#FEF4D9';
var fond_semaine='LIGHTSTEELBLUE';
var lettre_semaine='#005386';
var lettre_jours='#005386';
var lettre_moisan='#005386';
var jours_selectionne='burlywood';
var jours_actif='RED';
var jours_weekend='firebrick';
var jours_contours='#80ADD6';
var lettre_button='#005386';

calStyle = "<STYLE TYPE=\"text/css\">";
calStyle += ".calTable1 {";
calStyle += " background-color: "+contour_tableau;
calStyle += "}";
calStyle += ".calTable2 {";
calStyle += " background-color: "+fond_tableau;
calStyle += "}";
calStyle += ".calcolHeader {";
calStyle += " background: "+fond_semaine+";";
calStyle += " font-family: Verdana, Arial, Helvetica, sans-serif;";
calStyle += " font-size: 9px;";
calStyle += " font-weight: bold;";
calStyle += " border:0.5pt solid "+ contour_tableau+";";
calStyle += " color: "+lettre_semaine;
calStyle += "}";
calStyle += ".calAction {";
calStyle += " font-family: Verdana, Arial, Helvetica, sans-serif;";
calStyle += " font-size: 9px;";
calStyle += " font-weight: bold;";
calStyle += " color: "+lettre_jours;
calStyle += "}";
calStyle += ".calTdAction {";
calStyle += "   background-color: "+fond_tableau+";";
calStyle += " font-family: Verdana, Arial, Helvetica, sans-serif;";
calStyle += " font-size: 9px;";
calStyle += " font-weight: bold;";
calStyle += " color: "+lettre_moisan+";";
calStyle += " border:0.5pt solid "+ jours_contours +";";
calStyle += " text-align:center";
calStyle += "}";
calStyle += ".calButton {";
calStyle += " font-family: Verdana, Arial, Helvetica, sans-serif;";
calStyle += " font-size: 9px;";
calStyle += " font-weight: bold;";
calStyle += " color: "+lettre_button;
calStyle += "}";

calStyle += "</STYLE>";
document.write(calStyle);
maxX = 800;
maxY = 600 ;
// Taille de la fenetre
if (navigator.userAgent.indexOf("MSIE" ) >= 0){
     maxX = document.body.scrollLeft + document.body.clientWidth;
 maxY = document.body.scrollTop  + document.body.clientHeight ;
  }else{
        // AVOIR pour le scroll
        maxX = window.innerWidth;
 maxY = window.innerHeight;
}

var xp=0;
var yp=0;

/* Ecriture des DIV */
calhtml = "<DIV onmouseover=\"kill();\" id=caleck1 style=\"position:absolute;z-index:99;visibility:hidden;top:0px;left:0px;width:"+maxX+";height:"+maxY+";\" )";
calhtml += "<TABLE width=100% height=100% border=0><TR><TD></TD></TR></TABLE>";
calhtml += "</DIV>";
calhtml += "<DIV id=caleck style=\"position:absolute;z-index:100;VISIBILITY:hidden\"></DIV>";
document.write(calhtml);

var calflag=0;
var calchamp; /* nom du champ date a modifie dans la page */
var calskn = document.getElementById("caleck" ).style;
var calskn1 = document.getElementById("caleck1" ).style;
var calcontent = "";
var calHTML = "";
var FirstDay = 0;
var CalToday = new Date();
var CalDay = CalToday.getDate();
var CalYear = CalToday.getYear();
var CalMonth = CalToday.getMonth() + 1;
if (navigator.userAgent.indexOf("MSIE" ) >= 0){
var calxpos = "event.x";
var calypos = "event.y";
}else{
var calxpos = "e.pageX";
var calypos = "e.pageY";
}

document.onmousemove = mouseMove;

/* Function principale appellee par la page HTML*/
/* Parametre : calchamp = le champ date a mettre jour */
function pop(lechamp){

/* Liste des jours et mois dans la langue demandee francais par defaut */
  DaysList = new Array("Jour_Vide", "Lun", "Mar", "Mer", "Jeu", "Ven", "Sam", "Dim" );
  MonthsList = new Array("Mois_Vide", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre" );
    calchamp = lechamp;
   
    try{
     var ladate = document.getElementById(calchamp).value;
     if (ladate.length == 10){
  if (ladate.substring(0,1) == 0)
          CalDay = ladate.substring(1,2);
  else
          CalDay = ladate.substring(0,2);

 if (ladate.substring(3,4) == 0)
          CalMonth = ladate.substring(4,5);
  else
          CalMonth = ladate.substring(3,5);

        CalYear = ladate.substr(6,4);
  }else{
         CalDay = CalDay;
         CalMonth = CalMonth;
         CalYear = CalYear;
  }

   } catch(exception) {
        CalDay = CalDay;
        CalMonth = CalMonth;
        CalYear = CalYear;
    }

//    var x = eval(calxpos);
//    var y = eval(calypos)+document.body.scrollTop;

var x=xp;
var y=yp;

   if ((x+170) > maxX)
        calskn.left = x-150;
    else
        calskn.left = x-10;

   if ((y+140) > maxY)
     calskn.top  = y-120;
    else
     calskn.top  = y-12;

   CalAffiche();

   calskn1.visibility = "visible";
    calskn.visibility = "visible";

}

/* Mouvement de la souris */
function mouseMove(e) {
        // AVOIR pour le scroll
 xp = eval(calxpos);
 if (navigator.userAgent.indexOf("MSIE" ) >= 0)
  yp = eval(calypos)+document.body.scrollTop;
 else
  yp = eval(calypos);
}

/* Teste une annee pour determiner si elle est bissextile ou pas*/
function CalBissextile(yy){
    if (((yy % 4 == 0) && (yy % 100 != 0)) || (yy % 400 == 0)){ return 29; }
       else { return 28; }
}

/* Retour de la date selectionnee */
function CalSelecteur(obj){
calvaleur = document.getElementById("caltd"+obj).value;
if (calvaleur > 0) {
 if (calvaleur < 10 )
   retjrs = "0"+calvaleur;
 else
   retjrs = calvaleur;

if (document.getElementById('Month').value.length < 2)
   retmoi = "0"+document.getElementById('Month').value;
 else
  retmoi = document.getElementById('Month').value;

document.getElementById(calchamp).value=retjrs + "/" + retmoi + "/" + document.getElementById('Year').value;
 kill();
}
}

/* Produit le code HTML qui formera le calendrier */
function CalAffiche(){
  /* Recherche si l'annee est bissextile */
  if (CalMonth == 2)
   MonthLength[2] = CalBissextile(CalYear);

 calHTML = "<TABLE border=0 class=calTable1 cellspacing=0 cellspading=0><TR><TD >";
  calHTML += "<TABLE border=0 class=calTable2 ><TR><TD valign=CENTER>";
  calHTML += "<input type=hidden id=Month value="+CalMonth+">";
  calHTML += "<input class=calAction type=text size=10 id=MonthLib style=\"text-align:center;cursor:'default'\" value="+MonthsList[CalMonth]+" READONLY>";
  calHTML += "<input type=\"button\" value=\"<\" class=calButton onmouseover=\"style.cursor='hand'\" onClick=\"Change(0)\">";
  calHTML += "<input type=\"button\" value=\">\" class=calButton onmouseover=\"style.cursor='hand'\" onClick=\"Change(1)\">";
  calHTML += "<input class=calAction type=text id=Year size=5 style=\"text-align:center;cursor:'default'\" value="+CalYear+" READONLY >";
  calHTML += "<input type=\"button\" value=\"<\" class=calButton onmouseover=\"style.cursor='hand'\" onClick=\"ChangeY(0)\">";
  calHTML += "<input type=\"button\" value=\">\" class=calButton onmouseover=\"style.cursor='hand'\" onClick=\"ChangeY(1)\"></CENTER></TD></TR>";
  calHTML += "<TR><TD bgcolor="+fond_tableau+">";
  calHTML += "<CENTER><table cellspacing=0 cellpadding=0 border=0 style='border:0.5pt solid "+contour_tableau+"; border-collapse:collapse'>";
  calHTML += "<tr align=center>";

 for (s=1; s<8; s++)
 calHTML += "<td class=calcolHeader width=23 style=\"cursor:'default'\">" + DaysList[s] + "</td>";

 calHTML += "</tr>";

 a = 0;
  b = 1;
  // Calcul du premier jour du mois
  var caldefjour = CalDefDateDay(CalYear,CalMonth,1);
  for (i=(1-caldefjour); i<MonthLength[CalMonth]; i++){
 calHTML += "<tr id=\"calTR"+(a+1)+"\" align=center>";
 for (j=1; j<8; j++){
  calHTML += "<td width=23 class=calAction onClick=\"CalSelecteur("+b+" )\">";
  if ((i+j) <= 0) {
   calHTML += "<input class=calTdAction size=1 type=text id=\"caltd"+b+"\" style=\"border-color:"+fond_tableau+";background:'';cursor:'default'\" value=\"\" READONLY onmouseover=\"mousesur("+b+" )\" onmouseout=\"mousepassur("+b+" )\">";
  }else if ((i+j) > MonthLength[CalMonth]) {
   calHTML += "<input class=calTdAction size=1 type=text id=\"caltd"+b+"\" style=\"border-color:"+fond_tableau+";background:'';cursor:'default'\" value=\"\" READONLY onmouseover=\"mousesur("+b+" )\" onmouseout=\"mousepassur("+b+" )\">";
  } else {
   if ((i+j) == CalDay )
     calHTML += "<input class=calTdAction style=\"background:RED;cursor:'hand'\" size=1 type=text id=\"caltd"+b+"\" value="+(i+j)+" READONLY onmouseover=\"mousesur("+b+" )\" onmouseout=\"mousepassur("+b+" )\">";
   else
    if (b == 6 || b == 7 || b == 13 || b == 14 || b == 20 || b == 21 || b == 27|| b == 28 || b == 34|| b == 35 )
      calHTML += "<input class=calTdAction style=\"background:firebrick;cursor:'hand'\" size=1 type=text id=\"caltd"+b+"\" value="+(i+j)+" READONLY>";
    else
     calHTML += "<input class=calTdAction size=1 type=text id=\"caltd"+b+"\" value="+(i+j)+" style=\"background: '';cursor:'hand'\" READONLY onmouseover=\"mousesur("+b+" )\" onmouseout=\"mousepassur("+b+" )\">";
  }
   calHTML += "</TD>";
   b++;
        }
 calHTML += "</tr>";
 a++;
 i = i + 6;
  }

 for (aa=a+1;aa<=6;aa++){
 calHTML += "<tr id=\"calTR"+aa+"\" align=center style=\"display:none\">";
 for (j=1; j<8; j++){
  calHTML += "<td class=calAction onClick=\"CalSelecteur("+b+" )\">";
  calHTML += "<input class=calTdAction size=1 type=text id=\"caltd"+b+"\" value=\"\" READONLY onmouseover=\"mousesur("+b+" )\" onmouseout=\"mousepassur("+b+" )\"></td>";
   b++;
        }
 calHTML += "</tr>";
   }

 calHTML += "</table>";
  calHTML += "</TD></TR></TABLE>";
  calHTML += "</TD></TR></TABLE>";
    document.getElementById("caleck" ).innerHTML = calHTML;
}

function kill() {
 calskn.visibility = "hidden";
 calskn1.visibility = "hidden";
}

function Change(typ){
 var moi=document.getElementById('Month').value;
 var an=document.getElementById('Year').value;
 if (typ == 1){
  if ( moi == 12){
   an++;
   CalMonth =1;
   CalYear=an;
  }else{
   moi++;
   CalMonth = moi;
  }
 }else{
  if ( moi == 1){
   an--;
   CalMonth =12;
   CalYear=an;
  }else{
   moi--;
   CalMonth = moi;
  }
 }

CalAffiche2();
}

function ChangeY(typ){
 var an=document.getElementById('Year').value;

if (typ == 1){
  an++;
  CalYear=an;
 }else{
  an--;
  CalYear=an;
 }

CalAffiche2();
}

/* Renvoie le numero du jour de la semaine correspondant a la date requise */
function CalDefDateDay(yy,mm,dd){
 return Math.floor((CalDate2Days(yy,mm,dd)-2) % 7) + 1;
}

/* Transforme la date en nb de jours theoriques */
function CalDate2Days(yy,mm,dd){
 if (mm > 2){
  var bis = Math.floor(yy/4) - Math.floor(yy/100) + Math.floor(yy/400);
  var zy = Math.floor(yy * 365 + bis);
  var zm = (mm-1) * 31 - Math.floor(mm * 0.4 + 2.3);
  return (zy + zm + dd);
 }else{
      var bis = Math.floor((yy-1)/4) - Math.floor((yy-1)/100) + Math.floor((yy-1)/400);
  var zy = Math.floor(yy * 365 + bis);
  return (zy + (mm-1) * 31 + dd);
 }
}

function mousesur(lid){
 if (document.getElementById("caltd"+lid).value != "" ){
   document.getElementById("caltd"+lid).style.background = jours_selectionne;
    document.getElementById("caltd"+lid).style.borderColor= jours_contours;
 }else{
   document.getElementById("caltd"+lid).style.background='';
    document.getElementById("caltd"+lid).style.borderColor=fond_tableau;
 }
}
function mousepassur(lid){
 if (document.getElementById("caltd"+lid).value == CalDay ){
  document.getElementById("caltd"+lid).style.background=jours_actif;
 }else if (document.getElementById("caltd"+lid).value != "" ){
  document.getElementById("caltd"+lid).style.background=fond_tableau;
  document.getElementById("caltd"+lid).style.borderColor=jours_contours;
 }else{
  document.getElementById("caltd"+lid).style.background=fond_tableau;
  document.getElementById("caltd"+lid).style.borderColor=fond_tableau;
  }
}

/* Produit le code HTML qui formera le calendrier */
function CalAffiche2(){
  if (CalMonth == 2)
   MonthLength[2] = CalBissextile(CalYear);

 document.getElementById("Month" ).value=CalMonth;
  document.getElementById("MonthLib" ).value=MonthsList[CalMonth];
  document.getElementById("Year" ).value=CalYear;

 if (CalDay > MonthLength[CalMonth])
   CalDay = MonthLength[CalMonth];

 a = 0;
  b = 1;
  // Calcul du premier jour du mois
  caldefjour = CalDefDateDay(CalYear,CalMonth,1);
  for (i=(1-caldefjour); i<MonthLength[CalMonth]; i++){
 for (j=1; j<8; j++){
  if ((i+j) <= 0){
     document.getElementById("caltd"+b).style.borderColor=fond_tableau;
     document.getElementById("caltd"+b).value="";
     document.getElementById("caltd"+b).style.background=fond_tableau;
     document.getElementById("caltd"+b).style.cursor='default';
  } else if ((i+j) > MonthLength[CalMonth]){
     document.getElementById("caltd"+b).style.borderColor=fond_tableau;
     document.getElementById("caltd"+b).value="";
     document.getElementById("caltd"+b).style.background=fond_tableau;
     document.getElementById("caltd"+b).style.cursor='default';
  }else{
        document.getElementById("caltd"+b).style.borderColor= jours_contours;
     document.getElementById("caltd"+b).value=(i+j);
     document.getElementById("caltd"+b).style.cursor='hand';
   if (b == 6 || b == 7 || b == 13 || b == 14 || b == 20 || b == 21 || b == 27|| b == 28 || b == 34|| b == 35 )
       document.getElementById("caltd"+b).style.background=jours_weekend;
   else
       document.getElementById("caltd"+b).style.background=fond_tableau;
  }

 if ((i+j) == CalDay )
     document.getElementById("caltd"+b).style.background=jours_actif;

b++;
 }
 a++;
 i = i + 6;
  }

  if ( b > 29)
     document.getElementById("calTR5" ).style.display='block';
  else
   document.getElementById("calTR5" ).style.display='none';

 if ( b > 36)
   document.getElementById("calTR6" ).style.display='block';
  else
   document.getElementById("calTR6" ).style.display='none';

 for (i=b;i<=42;i++){
  document.getElementById("caltd"+i).style.background=fond_tableau;
 document.getElementById("caltd"+i).value="";
  }
}