<SCRIPT LANGUAGE="JavaScript">
<!-- hide this script tag's contents from old browsers
w = self;

function oar(OK,CODE1,CODE2) { /*objets a ranger*/
    this.OK
    this.CODE1
    this.CODE2
    this.JSEM
    this.CYCLE
    this.ANC
     }

function date(JJD,AN,MOIS,JOUR,TYPEA,NBMOIS) {
    this.JJD
    this.AN
    this.MOIS
    this.JOUR
    this.TYPEA
    this.ESPEA
    this.NBMOIS
    this.NBJRS
     }

function trunc(x) {
if (x>0.0) return(Math.floor(x));
else return Math.ceil(x);
}

function round(x) {
if (x>0.0) return(Math.floor(x+0.5));
else return Math.ceil(x-0.5);
}

 function JJDATEJ()
   { Z1=date.JJD+0.5;
     Z=trunc(Z1);
     A=Z;
     B=A+1524;
     C=trunc((B-122.1)/365.25);
     D=trunc(365.25*C);
     E=trunc((B-D)/30.6001);
     date.JOUR=trunc(B-D-trunc(30.6001*E));
     if(E<13.5)date.MOIS = trunc(E-1);
      else date.MOIS = trunc(E-13);
     if(date.MOIS>=3) date.AN = trunc(C-4716);
      else   date.AN = trunc(C-4715); }

function JJDATE ()
   { Z1=date.JJD+0.5;
     Z=trunc(Z1);
     if (Z<2299161) A=Z;
      else {ALPHA=trunc((Z-1867216.25)/36524.25);
           A=Z+1+ALPHA-trunc(ALPHA/4);}
     B=A+1524;
     C=trunc((B-122.1)/365.25);
     D=trunc(365.25*C);
     E=trunc((B-D)/30.6001);
     date.JOUR=trunc(B-D-trunc(30.6001*E));
     if(E<13.5) date.MOIS = trunc(E-1);
      else date.MOIS = trunc(E-13);
     if(date.MOIS>=3) date.AN = trunc(C-4716);
      else   date.AN = trunc(C-4715); }

function BISG()
   { date.NBMOIS=12;
     date.TYPEA=0;
     if ((date.AN % 4)==0)               date.TYPEA=1;
     if ((date.AN % 100)==0 && (date.AN % 400)!=0) date.TYPEA=0;}

function BISJ()
   { date.NBMOIS=12;
     if ((date.AN % 4)==0) date.TYPEA=1; else date.TYPEA=0;  }

function BISC()
   { date.NBMOIS=13;
     if (((eval(date.AN) + 1) % 4)==0) date.TYPEA=1; else date.TYPEA=0;  }


function BISM()
  {  NBMOIS=12;
     dt=(date.AN-1)/30;
     oar.CYCLE=trunc(dt)+1;
     oar.ANC=date.AN-(trunc(dt)*30);
    if (oar.ANC==2 || oar.ANC==5 || oar.ANC==7 || oar.ANC==10 ||
       oar.ANC==13 || oar.ANC==16 || oar.ANC==18 || oar.ANC==21 ||
       oar.ANC==24 || oar.ANC==26 || oar.ANC==29) date.TYPEA=1;
    else date.TYPEA=0;
    }

function BISI()
  {  oar.CYCLE=1+(date.AN-1)/19;
     oar.ANC=1+(date.AN-1)%19;
     aa=date.AN;
     aa=12*aa+5;
     a=aa%19;
     jjd=DEBANJ(date.AN);
     jjd1=DEBANJ(date.AN+1);
     dt=jjd1-jjd;
     if (a>6) {date.ESPEA=trunc(dt-352);
           date.TYPEA=0;
           date.NBMOIS=12;}
      else {date.ESPEA=trunc(dt-382);
           date.TYPEA=1;
           date.NBMOIS=13;}
      }

function DEBANJ(an)
   {   x1=392640; x2=121555; x3=272953;
       x4=492480; x5=347605; x6=365;
       aa=an;
       aa=12*aa+5;
       a=aa%19;
       t=(x1+x2*an+x3*a)/x4;
       t=t+x5+x6*an+a;
       jj=trunc(t);
       dt=t-jj;
       t=jj+1;
       t=t-trunc(t/7)*7;
       j=round(t);
       pjjd=jj+0.5;
       if (j==2 || j==4 || j==6) pjjd=jj+1.5;
       if (j==1 && a>6 && dt>=0.632870) pjjd=jj+2.5;
       if (j==0 && a>11 && dt>=0.897724) pjjd=jj+1.5;
       return(pjjd);
       }

function JULIEN()
   {  IJOUR=date.JOUR;
      Y=date.AN;
      M=date.MOIS;
      A = Y + M/100 + IJOUR/10000;
      if(date.MOIS<=2){Y=Y-1;M=M+12;};
      if(Y<0)     date.JJD = Math.ceil(365.25*Y-0.75);
      else date.JJD = Math.floor(365.25*Y);
      date.JJD = date.JJD+trunc(30.6001*(M+1))+IJOUR+1720994.5;
      if(A>1582.1014) date.JJD=date.JJD+2-trunc(Y/100)+trunc(trunc(Y/100)/4);
    }

function JCOPTE()
   { BORNE=new Array(0,365,730,1096,1461) ;

     DT=date.JJD-1825029.5;
     AAN=DT/1461;
     date.AN=trunc(AAN);
     DT=DT-(Math.floor(AAN)*1461)+1 ;
     date.AN=date.AN*4;
     for (I=0; I<4; I++)
      { if ((BORNE[I]< DT) && (DT <= BORNE[I+1]))
                {JAN=I+1;DT=DT-BORNE[I];}   }
     date.AN=date.AN+JAN ;
     if(JAN==3) date.TYPEA=1;
      else  date.TYPEA=0;
     DJ=(DT-1)/30 ;
     date.MOIS=trunc(DJ)+1 ;
     date.JOUR=trunc(DT-(trunc(DJ)*30)) ;
     }

function JMUSUL()
   { BORNE = new Array (0,354,709,1063,1417,1772,2126,
     2481,2835,3189,3544,3898,4252,4607,4961,5315,5670,6024,6379,
     6733,7087,7442,7796,8150,8505,8859,9214,9568,9922,10277,10631);
     CMOIS = new Array(0,30,59,89,118,148,177,
                207,236,266,295,325,354);
     BMOIS=new Array;

      for (I=0; I<13; I++) { BMOIS[I] = CMOIS[I];}
      DT=date.JJD-1948438.5;
      NDT=trunc(DT/10631);
      date.AN=NDT*30;
      oar.CYCLE=NDT+1;
      DT=DT-trunc(DT/10631)*10631;
      if(DT==0) {JAN=0;oar.ANC=30;oar.CYCLE=NDT;}
      else { for(I=0; I<30; I++)
           {if ((BORNE[I]<DT) && (DT<=BORNE[I+1]))
               {JAN=I+1;oar.ANC=JAN;DT=DT-BORNE[I];}}}
      date.AN=date.AN+JAN;
     if (oar.ANC==2 || oar.ANC==5 || oar.ANC==7 || oar.ANC==10 ||
       oar.ANC==13 || oar.ANC==16 || oar.ANC==18 || oar.ANC==21 ||
       oar.ANC==24 || oar.ANC==26 || oar.ANC==29) {date.TYPEA=1;
                                                   BMOIS[12]=355;}
     else date.TYPEA=0;
      if(DT==0)   {date.MOIS=12;date.JOUR=29;}
      else { for(I=0; I<12; I++)
           {if ((BMOIS[I]<DT) && (DT<=BMOIS[I+1]))
                {date.MOIS=I+1;date.JOUR=trunc(DT)-BMOIS[I]; }}}
          }

function JISR()
 {  MOISC=new Array (
          1,31,60,89,118,148,177,207,236,266,295,325,
          1,31,60,90,119,149,178,208,237,267,296,326,
          1,31,61,91,120,150,179,209,238,268,297,327);
    MOISE=new Array (
          1,31,60,89,118,148,178,207,237,266,296,325,355,
          1,31,60,90,119,149,179,208,238,267,297,326,356,
          1,31,61,91,120,150,180,209,239,268,298,327,357);

      Z1=date.JJD+0.5;
      Z=trunc(Z1);
      if(Z<2299161) AA=Z;
      else {ALPHA=trunc((Z-1867216.25)/36524.25);
           AA=Z+1+ALPHA-trunc(ALPHA/4);}
      B=AA+1524;
      C=trunc((B-122.1)/365.25);
      D=trunc(365.25*C);
      E=trunc((B-D)/30.6001);
      date.JOUR=trunc(B-D-trunc(30.6001*E));
      if(E<13.5)   date.MOIS=trunc(E-1);
      else  date.MOIS=trunc(E-13);
      if(date.MOIS>=3)    date.AN=trunc(C-4716);
      else    date.AN=trunc(C-4715);
      AAN=date.AN+3761;
      JJD1=DEBANJ(AAN);
      if(date.JJD<JJD1)  { date.AN=AAN-1; JJDEB=DEBANJ(date.AN);}
      else   { date.AN=AAN; JJDEB=JJD1; AAN=AAN+1;
           JJD1=DEBANJ(AAN);}
      oar.CYCLE=(date.AN-1)/19 + 1;
      oar.ANC=1+(date.AN-1) % 19;
      AA=date.AN;
      AA=12*AA+5;
      A=AA%19;
      if(A>6)   { TYPE1=0; date.TYPEA=0; }
      else { TYPE1=1; date.TYPEA=1; }
      DT=JJD1-JJDEB; ;
      if(TYPE1==1)     date.ESPEA=round(DT-382);
      else   date.ESPEA=round(DT-352);
      DT=date.JJD-JJDEB+1;
      ARGC=12*(date.ESPEA-1);  ARGE=13*(date.ESPEA-1);
      if(TYPE1==1) { if(DT>=MOISE[ARGE+12])
           { date.MOIS=13;
           date.JOUR=round(DT)-MOISE[ARGE+12]+1;}
           else for (I=0; I<12; I++)
           {
           if ((DT>=MOISE[ARGE+I]) &&
               (DT<MOISE[ARGE+I+1]))
               {date.JOUR=round(DT)-MOISE[ARGE+I]+1;
                date.MOIS=I+1;}
           }}
      else      { if(DT>=MOISC[ARGC+11])
           {date.MOIS=12;
           date.JOUR=round(DT)-MOISC[ARGC+11]+1;}
           else for (I=0; I<11; I++)
           {if ((DT>=MOISC[ARGC+I])
           && (DT<MOISC[ARGC+I+1]))
                {date.MOIS=I+1;
                date.JOUR=round(DT)-MOISC[ARGC+I]+1;}
               }
    }}

function NOMJOUR()
  {  A=((eval(date.JJD)+2.5)/7)%1.0;
     oar.JSEM=round(A*7);       }

function affcc(form)
   {
    ljour=new Array("samedi","dimanche","lundi","mardi",
                 "mercredi","jeudi","vendredi");

    lmoisc=new Array("null","Tout","Babah","Hâtour","Keihak","Toubah",
                  "Amchir","Barmahat","Barmoudah","Bachnas",
                  "Bou'nah","Abib","Masari","Jours épagomènes");
    lmoisg=new Array("null","janvier","février","mars","avril","mai","juin",
                  "juillet","août","septembre","octobre","novembre","décembre");
    lmoism=new Array("null","Mouharram","Safar","Rabi'-oul-Aououal",
                  "Rabi'-out-Tani","Djoumada-l-Oula","Djoumada-t-Tania",
                  "Radjab","Cha'ban","Ramadan","Chaououal",
                  "Dou-l-Qa'da","Dou-l-Hidjja");
    lmoisic=new Array("null","Tisseri","Hesvan","Kislev","Tébeth",
                   "Schébat","Adar","Nissan","Iyar","Sivan",
                   "Tamouz","Ab","Elloul");
    lmoisie=new Array("null","Tisseri","Hesvan","Kislev","Tébeth",
                   "Schébat","Adar","Véadar","Nissan","Iyar","Sivan",
                   "Tamouz","Ab","Elloul");

    tean=new Array("année commune", "année bissextile",
                   "année abondante", "année embolismique",
                   "et défective", "et régulière",
                   "et abondante",
                   "année de 365 jours", "année de 366 jours");

  NOMJOUR();
  form.jsem.value=ljour[oar.JSEM];
  form.jjul.value=eval(date.JJD+0.5);
  /*grégorien*/
  if (date.JJD<2299160.5) form.calgre.value="pas en usage à cette date";
  else {  JJDATE(); BISG();
        form.calgre.value=" " + date.JOUR + " " +
            lmoisg[date.MOIS] + " " + date.AN;
        if (date.TYPEA==0) form.calgre.value=form.calgre.value +"   "+ tean[0];
        if (date.TYPEA==1) form.calgre.value=form.calgre.value +"   "+ tean[1];
     }
  /*julien*/
        JJDATEJ(); BISJ();
        form.caljul.value=" " + date.JOUR + " " +
            lmoisg[date.MOIS] + " " + date.AN;
        if (date.TYPEA==0) form.caljul.value=form.caljul.value +"   "+ tean[0];
        if (date.TYPEA==1) form.caljul.value=form.caljul.value +"   "+ tean[1];
  /*copte*/
  if (date.JJD<1825029.5) form.calcop.value="pas en usage à cette date";
  else {  JCOPTE(); BISC();
        form.calcop.value=" " + date.JOUR + " " +
            lmoisc[date.MOIS] + " " + date.AN;
        if (date.TYPEA==0) form.calcop.value=form.calcop.value +"   "+ tean[7];
        if (date.TYPEA==1) form.calcop.value=form.calcop.value +"   "+ tean[8];
     }
  /*musulman*/
  if (date.JJD<1948439.5) form.calmus.value="pas en usage à cette date";
  else {  JMUSUL(); BISM();
        form.calmus.value=" " + date.JOUR + " " +
            lmoism[date.MOIS] + " " + date.AN;
        if (date.TYPEA==0) form.calmus.value=form.calmus.value +"   "+ tean[0];
        if (date.TYPEA==1) form.calmus.value=form.calmus.value +"   "+ tean[2];
     }
  /*israélite*/
  if (date.JJD<347997.5) form.calisr.value="pas en usage à cette date";
  else {  JISR();  /*BISI();*/
        if (date.TYPEA==0) form.calisr.value=" " + date.JOUR + " " +
            lmoisic[date.MOIS] + " " + date.AN + "  " + tean[0];
        if (date.TYPEA==1) form.calisr.value=" " + date.JOUR + " " +
            lmoisie[date.MOIS] + " " + date.AN + "  " + tean[3];
        if (date.ESPEA==1) form.calisr.value=form.calisr.value +" "+ tean[4];
        if (date.ESPEA==2) form.calisr.value=form.calisr.value +" "+ tean[5];
        if (date.ESPEA==3) form.calisr.value=form.calisr.value +" "+ tean[6];
     }
}

function suivan(form) {
date.AN=(form.nyear.value=="") ? "0" :eval(form.nyear.value);
if (form.nmonth.selectedIndex == 0) { alert('choisir le mois');return;}
date.JOUR=(form.nday.value=="") ? "0" :eval(form.nday.value);
date.MOIS=form.nmonth.selectedIndex;
JULIEN();
if (++date.JJD >= 2634531.5) {alert('hors limites'); date.JJD--; return;}
JJDATE();
form.nyear.value=date.AN; form.nday.value=date.JOUR;
form.nmonth.selectedIndex=date.MOIS;
affich_nbjrs(this.form);
an=date.AN; mois=date.MOIS; jour=date.JOUR;
affcc(form);
date.AN=an; date.MOIS=mois; date.JOUR=jour;
}

function preced(form) {
date.AN=(form.nyear.value=="") ? "0" :eval(form.nyear.value);
if (form.nmonth.selectedIndex == 0) { alert('choisir le mois');return;}
date.JOUR=(form.nday.value=="") ? "0" :eval(form.nday.value);
date.MOIS=form.nmonth.selectedIndex;
JULIEN();
date.JJD--;
if (date.JJD < 0.5) {alert('hors limites'); date.JJD++; return;}
if (date.JJD < 2299160.5) {alert('pas en usage avant cette date'); date.JJD++; return;}
JJDATE();
form.nyear.value=date.AN; form.nday.value=date.JOUR;
form.nmonth.selectedIndex=date.MOIS;
affich_nbjrs(this.form);
an=date.AN; mois=date.MOIS; jour=date.JOUR;
affcc(form);
date.AN=an; date.MOIS=mois; date.JOUR=jour;
}

function couran(form) {
date.AN=(form.nyear.value=="") ? "0" :eval(form.nyear.value);
if (form.nmonth.selectedIndex == 0) { alert('choisir le mois');return;}
date.MOIS=form.nmonth.selectedIndex;
if (date.AN<1582 || date.AN>2500) {alert('hors limites');return;}
BISG();
if (date.MOIS==2) date.NBJRS=((date.TYPEA==0)?28:29);
else {if(date.MOIS<8) date.NBJRS=(((date.MOIS&1)!=0)?31:30);
      else date.NBJRS=(((date.MOIS&1)!=0)?30:31); }
date.JOUR=(form.nday.value=="") ? "0" :eval(form.nday.value);
if (date.JOUR<1 || date.JOUR>date.NBJRS) {affich_nbjrs(this.form);alert('date incorrecte'); return;}
JULIEN();  /* calcul du JJD */
affich_nbjrs(this.form);
an=date.AN; mois=date.MOIS; jour=date.JOUR;
affcc(form);
date.AN=an; date.MOIS=mois; date.JOUR=jour;
}

function affich_nbjrs(form) {
if (date.MOIS==2) date.NBJRS=((date.TYPEA==0)?28:29);
else {if(date.MOIS<8) date.NBJRS=(((date.MOIS&1)!=0)?31:30);
      else date.NBJRS=(((date.MOIS&1)!=0)?30:31);}
document.form.nbre_jrs.value=date.NBJRS;
 }

function affocus(form) {
date.MOIS=form.nmonth.selectedIndex;
affich_nbjrs(form);
 }

function msg1(form) {
date.AN=(form.nyear.value=="") ? "0" :eval(form.nyear.value);
BISG();
}

function dateinit(form) {
Todays=new Date();
 if (Todays.getFullYear() == 100) document.form.nyear.value=1900+Todays.getFullYear();
else document.form.nyear.value=Todays.getFullYear();
date.AN=eval(document.form.nyear.value);
BISG();
document.form.nmonth.selectedIndex=Todays.getMonth() +1;
date.MOIS=document.form.nmonth.selectedIndex;
document.form.nday.value=Todays.getDate();
date.JOUR=eval(document.form.nday.value);
JULIEN(); JJDATE();
document.form.nyear.value=date.AN;
document.form.nday.value=date.JOUR;
document.form.nmonth.selectedIndex=date.MOIS;
affich_nbjrs(this.form);
}
// done hiding from old browsers -->
</SCRIPT>
<html>
<head>
<title>le site des philat&eacute;listes francophones</title>
</head>
<body  onLoad='dateinit(this.form)' >
<center><table WIDTH="100%" BORDER="0" cellpadding="2" bgcolor="#ffffcc"><tr><td align=Left><a href="http://www.coppoweb.com/pda/index.php" title="Accueil"><img src="favicon.jpg" width="16" height="16" alt="Accueil" border="0">
<font color="Maroon" size="+2"><b>COPPOWEB</b></font></a></td>
<td align=right><font size="-2"><a href="http://www.coppoweb.com/pda/index.php" title="Accueil">&lt;Accueil</a></font></td></tr><tr><td colspan=2 align=Center><small><b><font color="Maroon">le site des philat&eacute;listes francophones</font></b></small></td></tr></table>
</center>
<hr><CENTER>

<BR><FORM NAME="form">

<H2><FONT Color="Maroon">Conversion Grégorien vers Autres Calendriers</FONT></H2>
<I><font color="Navy"> Entrez une date comprise<br> entre le 10 octobre 1582<br> et le 31 d&eacute;cembre2500</font></I><br><br>
<B>Ann&eacute;e&nbsp;:&nbsp;</B><INPUT TYPE="text" NAME="nyear" SIZE="5" onBlur="msg1(this.form)"><br>
<B>Mois&nbsp;:&nbsp;</B><SELECT NAME="nmonth" SIZE="1" onBlur="affocus(this.form)" onSelect="affocus(this.form)">
<OPTION value disabled></OPTION>
<OPTION value="Janvier">Janvier&nbsp;</OPTION>
<OPTION value="Février">F&eacute;vrier&nbsp;</OPTION>
<OPTION value="Mars">Mars&nbsp;</OPTION>
<OPTION value="Avril">Avril&nbsp;</OPTION>
<OPTION value="Mai">Mai&nbsp;</OPTION>
<OPTION value="Juin">Juin&nbsp;</OPTION>
<OPTION value="Juillet">Juillet&nbsp;</OPTION>
<OPTION value="Août">Ao&ucirc;t&nbsp;</OPTION>
<OPTION value="Septembre">Septembre&nbsp;</OPTION>
<OPTION value="Octobre">Octobre&nbsp;</OPTION>
<OPTION value="Novembre">Novembre&nbsp;</OPTION>
<OPTION value="Décembre">D&eacute;cembre&nbsp;</OPTION>
</SELECT>
<br>
<B>Jour&nbsp;:&nbsp;<INPUT   TYPE="text" NAME="nday" SIZE="2" onFocus="affocus(this.form)"></B>
<INPUT TYPE="hidden" NAME="nbre_jrs" SIZE="2"><br>
<INPUT TYPE="button" VALUE="Calcul" ONCLICK="couran(this.form)"><br>
<INPUT type="button" value="Jour pr&eacute;c&eacute;dent" onClick="preced(form)">
<INPUT TYPE="button" VALUE="Jour suivant" onClick="suivan(this.form)"><br>
<hr>
<B><FONT COLOR="#B00000"> Jour de la semaine : <INPUT TYPE="text" NAME="jsem" SIZE="8">
<INPUT TYPE="hidden" NAME="jjul" SIZE="7"><br>
calendrier gr&eacute;gorien : <INPUT TYPE="text" NAME="calgre" size="49"><br>
calendrier julien : <INPUT TYPE="text" NAME="caljul" SIZE="49"><br>
calendrier copte : <INPUT TYPE="text" NAME="calcop" size="49"><br>
calendrier musulman : <INPUT TYPE="text" NAME="calmus" SIZE="49"><br>
calendrier isra&eacute;lite : <INPUT TYPE="text" NAME="calisr" SIZE="49"></FONT></B>
</FORM>
</CENTER>
<br>
<center><hr><table WIDTH="100%" BORDER="0" cellpadding="2" bgcolor="#ffffcc">
<tr><td align=Left width="33%"><input type="button" value="Retour"  align="center" onclick="history.back()"></td>
<td align=Center width="33%"><a href="http://www.coppoweb.com/pda/index.php" title="Accueil"><img src="favicon.jpg" width="16" height="16" alt="Accueil" border="0"></a></td>
<td  width="33%" align=right><a href="http://www.coppoweb.com/pda/pda.contactform.php" title="Contacter le Webmaster"><img src="email01.gif" width="25" height="25" alt="Contacter le Webmaster" border="0"></a>&nbsp;&nbsp;
<a href="http://www.coppoweb.com/pda/pda.ego.php" title="Auteur du programme "><img src="tc.gif" width="20" height="25" alt="Auteur" border="0"></a></td></tr></table>
</center>
<hr></center></body>
</html>