<!-- Date de mise-à-jour : 08/12/1999 -->
<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.CODE6
    this.JSEM
     }

function date(JJD,AN,MOIS,JOUR,TYPEA,NBMOIS) {
    this.JJD
    this.AN
    this.MOIS
    this.JOUr
    this.TYPEA
    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 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 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 BISR()
  { date.NBMOIS=13;
    if (((date.AN+1) % 4)==0) date.TYPEA=1;
    else date.TYPEA=0;   }

function DEBANR(an)
     { dt=an;
       dt=(dt-1)/4;
       jan=trunc(dt);
       dt=trunc(dt);
       dj=dt*1461;
       dan=an-(jan*4);
       dj=2375838.5+dj+(dan-1)*365+1;
       if ((dan/4)==1) dj++;
       return(dj);
     }

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

     DT=date.JJD-2375839.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)) ;
     DT=date.JOUR;
     while (DT>10) DT=DT-10;
     DT=DT-1;
     oar.CODE6=round(DT);
   }

 function REPUJ()
   { dj1=DEBANR(date.AN);
     DT=date.AN;
     DT=(DT-1)/4 ;
     JAN=trunc(DT);
     DT=trunc(DT);
     date.JJD=DT*1461;
     DAN=date.AN-(JAN*4) ;
     date.JJD=2375838.5+JJD+(DAN-1)*365+30*(date.MOIS-1)+date.JOUR ;
     if((DAN/4) == 1) date.JJD++;
     DT=date.JOUR;
     while (DT>10) DT=DT-10;
     DT=DT-1;
     oar.CODE6=round(DT);
      }

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


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

    rjour=new Array("primidi","duodi","tridi","quartidi",
                 "quintidi","sextidi","septidi","octidi",
                 "nonidi","décadi");

    lmoisg=new Array("null","janvier","février","mars","avril","mai","juin",
          "juillet","août","septembre","octobre","novembre","décembre");

    lmoisr=new Array("null","vendémiaire","brumaire","frimaire","nivôse",
          "pluviôse","ventôse","germinal",
          "floréal","prairial","messidor","thermidor",
          "fructidor","sanculottides");

    tean=new Array("année commune", "année bissextile",
                   "année ordinaire", "année sextile");

  NOMJOUR();
  form.jjul.value=eval(date.JJD+0.5);
  /*grégorien*/
        JJDATE(); BISG();
        form.calgre.value=" " + ljour[oar.JSEM] + " " + 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];
  /*républicain*/
        JREPU(); BISR();
        form.calrep.value=" " + rjour[oar.CODE6] + " " + date.JOUR + " " +
            lmoisr[date.MOIS] + " an " + date.AN;
        if (date.TYPEA==0) form.calrep.value=form.calrep.value +"   "+ tean[2];
        if (date.TYPEA==1) form.calrep.value=form.calrep.value +"   "+ tean[3];
}

function suivan(form) {
date.AN=(form.nyear.value=="") ? "0" :eval(form.nyear.value);
if (form.nmonth.selectedIndex == 0) { alert('sélecter le mois');return;}
date.JOUR=(form.nday.value=="") ? "0" :eval(form.nday.value);
JULIEN();
if (date.JJD++ >= 2380686.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;
AFEQ(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('sélecter le mois');return;}
date.JOUR=(form.nday.value=="") ? "0" :eval(form.nday.value);
JULIEN();
if (date.JJD-- <= 2375839.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;
AFEQ(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('sélecter le mois');return;}
date.MOIS=form.nmonth.selectedIndex;
if (date.AN<1792 || date.AN>1805) {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 */
if (date.JJD<2375839.5 || date.JJD>2380686.5) {alert("hors limites"); return;}
affich_nbjrs(this.form);
an=date.AN; mois=date.MOIS; jour=date.JOUR;
AFEQ(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);
if (date.AN<1792 || date.AN>1805) {alert("hors limites"); return;}
BISG();
}

function dateinit(form) {
date.AN=1792;
date.MOIS=9;
date.JOUR=22;
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><BR><FORM NAME="form">
<CENTER>
<H2>
<FONT Color="Maroon"><b>Conversion <br>Grégorien vers Républicain</b></FONT></H2></CENTER>
<CENTER><b><I>Entrez une date comprise entre le 22 septembre 1792 et le 31 d&eacute;cembre
1805</I></b><br><br>
<B>Ann&eacute;e&nbsp;</B><INPUT TYPE="text" NAME="nyear" SIZE="5" onBlur="msg1(this.form)">&nbsp;
<B>Mois&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>&nbsp;
<B>Jour</B><INPUT TYPE="text" NAME="nday" SIZE="2" onFocus="affocus(this.form)"><br>
<INPUT TYPE="hidden" NAME="nbre_jrs" SIZE="2">
<INPUT type="button" value="Calcul" onClick="couran(form)">&nbsp;&nbsp;&nbsp;<br>


&nbsp;&nbsp;<INPUT type="button" value="Jour précédent" onClick="preced(form)">&nbsp;<INPUT TYPE="button" VALUE="Jour suivant" onClick="suivan(this.form)"><br><br>

<B><FONT COLOR="Maroon"> Date gr&eacute;gorienne&nbsp;<INPUT TYPE="text" NAME="calgre" size="48"><br>
 Date r&eacute;publicaine&nbsp;<INPUT TYPE="text" NAME="calrep" SIZE="48"><br>
</FONT></B><INPUT TYPE="hidden" NAME="jjul" SIZE="7"><br>

</FORM></CENTER>
<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>