<script language="JavaScript" type="text/javascript">
   /*<![CDATA[  XML blockout */
   <!--
   function load() {
    /////////////// Called by BODY tag when page first loads ...

    // test browser version ...
    if (parseInt(navigator.appVersion.charAt(0)) < 4) {alert('Désolé ces fonctions nécessitent\n  JavaScript')}
     else {

      // clear framing if page was referred from site with frames ...
      if (self != top) {top.location.href = self.location.href};
      // fill fields in date conversion form ...
      update(true);
     }
   }
   /* XML end  ]]>*/
   // -->
  </script>
  
  <script language="JavaScript1.1" type="text/javascript">
   /*<![CDATA[  XML blockout */
   <!--
   function cvt() {
   /////////////// Roman numeral <--> number conversion ...

    // Evaluates input string passed from FORM; either converts a number to a
    // Roman numeral, or converts a Roman numeral to a number.

    // get string passed from FORM and declare local variables ...
    var inp = document.forms[0].elements[0].value, num = '', i = 0, n = 0;

    // trim leading spaces and trailing spaces or words...
    while (inp.charAt(0) == ' ') {inp = inp.substr(1)};
    if (inp.indexOf(' ') != -1) {inp = inp.substr(0, inp.indexOf(' '))}

    // check for valid input string ...
    if (inp == '') {msg = 'Aucune donnée entrée'}

     else {

      // check if input string is a number ...
      if (isNaN(inp)) {

       // input was a not a number, so convert Roman -> number ...
       num = inp;

       // for lower-case input, allow 'u' as alternate for 'v' and 'ij' as alternate for trailing 'ii' ...
       if (num == num.toLowerCase()) {
        i = num.indexOf('u'); if (i != -1) {num = num.substr(0, i) + 'v' + num.substr(i + 1, num.length - i)};
        if (num.substr(num.length - 2, 2) == 'ij') {num = num.substr(0, num.length - 2) + 'ii'};
       }

       n = evalRoman(num);
       if (n == -1) {msg = inp + ' est incorrect'}
        else {msg = n + ' = ' + inp};
      }
       else {

        // input was a number so convert number -> Roman ...
        n = Math.round(parseFloat(inp));
        if (n < 1 || n > 4999) {msg = n + ' est en dehors de  1 à 4999'}
         else {
          if (n != parseFloat(inp)) {alert(inp + ' sera arrondi à  ' + n)};
          msg = cvts(n) + ' = ' + n;
         }

       }

     }

    document.forms[0].elements[0].value = msg;
    document.forms[0].elements[0].focus()

   }

   function evalRoman(num) {
    // evaluate Roman numeral string ...
    var i = 0, h = 0, n, t = 0, u = 0;

    // ensure upper case and evaluate thousands ...
    num = num.toUpperCase();
    while (num.charAt(i) == 'M') {i ++};
    n = i * 1000;

    // evaluate hundreds ...
    if (num.substr(i, 2) == 'CM') {h = 9; i += 2}
     else if (num.substr(i, 1) == 'D') {h = 5; i ++}
      else if (num.substr(i, 2) == 'CD') {h = 4; i += 2};
    if (h == 0 || h == 5) {while (num.charAt(i) == 'C') {h ++; i ++}};
    n += h * 100;

    // evaluate tens ...
    if (num.substr(i, 2) == 'XC') {t = 9; i += 2}
     else if (num.substr(i, 1) == 'L') {t = 5; i ++}
      else if (num.substr(i, 2) == 'XL') {t = 4; i += 2};
    if (t == 0 || t == 5) {while (num.charAt(i) == 'X') {t ++; i ++}};
    n += t * 10;

    // evaluate units ...
    if (num.substr(i, 2) == 'IX') {u = 9; i += 2}
     else if (num.substr(i, 1) == 'V') {u = 5; i ++}
      else if (num.substr(i, 2) == 'IV') {u = 4; i += 2};
    if (u == 0 || u == 5) {while (num.charAt(i) == 'I') {u ++; i ++}};
    n += u;

    // check all subtractive and additive combinations for a valid Roman numeral ...
    if (!((num == cvt1000(n) + cvt100s(n) + cvt10s(n) + cvt1s(n))
       || (num == cvt1000(n) + cvt100s(n) + cvt10s(n) + cvt1a(n))
       || (num == cvt1000(n) + cvt100s(n) + cvt10a(n) + cvt1s(n))
       || (num == cvt1000(n) + cvt100s(n) + cvt10a(n) + cvt1a(n))
       || (num == cvt1000(n) + cvt100a(n) + cvt10s(n) + cvt1s(n))
       || (num == cvt1000(n) + cvt100a(n) + cvt10s(n) + cvt1a(n))
       || (num == cvt1000(n) + cvt100a(n) + cvt10a(n) + cvt1s(n))
       || (num == cvt1000(n) + cvt100a(n) + cvt10a(n) + cvt1a(n)))) {n = -1}

    return(n); // with n in range 1 &ndash; 4999, or n = -1 for invalid numeral
   }

   function cvts(n) {
    // converts number 1 - 4999 to a subtractive Roman numeral ...
    return (cvt1000(n) + cvt100s(n) + cvt10s(n) + cvt1s(n))
   }

   function cvt1000(n) {
    // converts thousands digit to a Roman numeral ...
    return ('MMMM'.substr(0, (Math.floor(n / 1000))));
   }

   function cvt100s(h) {
    // converts hundreds digit to a subtractive Roman numeral ...
    var m = '', h = Math.floor((h % 1000) / 100);
    if (h == 9) {m = 'CM'}
     else if (h > 4) {m = 'DCCC'.substr(0, h - 4)}
      else if (h == 4) {m = 'CD'}
       else {m = 'CCC'.substr(0, h)};
    return m;
   }

   function cvt100a(h) {
    // converts hundreds digit to an additive Roman numeral ...
    // used only in error-trapping Roman input
    var m = '', h = Math.floor((h % 1000) / 100);
    if (h > 4) {m = 'DCCCC'.substr(0, h - 4)}
      else {m = 'CCCC'.substr(0, h)};
    return m;
   }

   function cvt10s(t) {
    // converts tens digit to a subtractive Roman numeral ...
    var m = '', t = Math.floor((t % 100) / 10);
    if (t == 9) {m = 'XC'}
     else if (t > 4) {m = 'LXXX'.substr(0, t - 4)}
      else if (t == 4) {m = 'XL'}
       else {m = 'XXX'.substr(0, t)};
    return m;
   }

   function cvt10a(t) {
    // converts tens digit to an additive Roman numeral ...
    // used only in error-trapping Roman input
    var m = '', t = Math.floor((t % 100) / 10);
    if (t > 4) {m = 'LXXXX'.substr(0, t - 4)}
     else {m = 'XXXX'.substr(0, t)};
    return m;
   }

   function cvt1s(u) {
    // converts units digit to a subtractive Roman numeral ...
    var m = '', u = u % 10;
    if (u == 9) {m = 'IX'}
     else if (u > 4) {m = 'VIII'.substr(0, u - 4)}
      else if (u == 4) {m = 'IV'}
       else {m = 'III'.substr(0, u)};
    return m;
   }

   function cvt1a(u) {
    // converts units digit to an additive Roman numeral ...
    // used only in error-trapping Roman input
    var m = '', u = u % 10;
    if (u > 4) {m = 'VIIII'.substr(0, u - 4)}
     else {m = 'IIII'.substr(0, u)};
    return m;
   }

   function rst() {
    // Reset button clears field in number / numerals conversion ...
    document.forms[0].elements[0].value = '';
    document.forms[0].elements[0].focus();
   }

   /////////////// Date conversion ...

   // Date conversion algorithms used here are based, with thanks, upon those given in chapter 25;
   // Richards, 1998, Mapping Time, Oxford University Press, ISBN 0 19 286205 7.

   // declare constants ...
   var Eday = new Array('Dimanche', 'Lundi', 'Mardi', 'Mercredi', 'Jeudi', 'Vendredi', 'Samedi');
   var Emth = new Array('Janvier', 'Février', 'Mars', 'Avril', 'Mai', 'Juin', 'Juillet', 'Août', 'Septembre', 'Octobre', 'Novembre', 'Décembre');
   var Lday = new Array('Dies Dominica', 'Dies Lun\xE6', 'Dies Martis', 'Dies Mercurii', 'Dies Iovis', 'Dies Veneris', 'Dies Saturni');
   var Lmth = new Array('Januarius', 'Februarius', 'Martius', 'Aprilis', 'Maius', 'Junius', 'Julius', 'Augustus', 'September', 'October', 'Novembris', 'December');
   var Rday = new Array('DIES SOLIS', 'DIES LUN\xC6', 'DIES MARTIS', 'DIES MERCURII', 'DIES IOVIS', 'DIES VENERIS', 'DIES SATURNI');
   var Rmth = new Array('IAN', 'FEB', 'MART', 'APR', 'MAI', 'IVN', 'IVL', 'AVG', 'SEP', 'OCT', 'NOV', 'DEC');
   var y = 4716, j = 1401, m = 3, n = 12, p = 1461, q = 0, r = 4, s = 153, t = 2, u = 5, v = 3, w = 2;
   var g = 10, A = 184, B = 274277, G = -38;

   function update(L) {
    var today, D, M, Y, msg = '';

    if (L) {
     // get today's date ...
     today = new Date();
     D = today.getDate();
     M = today.getMonth() + 1;
     Y = today.getFullYear(); if (Y < 1970 ) {Y += 100};
     // and ensure Gregorian ...
     document.forms[0].elements[8].checked = true
     }
     else {
      // get data from fields in FORM ...
      D = parseInt(document.forms[0].elements[5].value);
      M = document.forms[0].elements[6].selectedIndex + 1;
      Y = parseInt(document.forms[0].elements[7].value);
     }

    var Y1 = Y + y - Math.floor((n + m - 1 - M) / n);
    var M1 = (M - m + n) % n;
    var D1 = D - 1;
    var c  = Math.floor((p * Y1 + q) / r);
    var d  = Math.floor((s * M1 + t) / u);

    if (document.forms[0].elements[8].checked) {
     // Gregorian input ...
     var g   = Math.floor(3 * (Math.floor((Y1 + A) / 100)) / 4) + G;
     var J   = c + d + D1 -j - g;
     var Gg  = Math.floor(3 * (Math.floor((4 * J + B) / 146097)) / 4) + G;
     var GJ1 = J + j + Gg;
     var GY1 = Math.floor((r * GJ1 + v) / p);
     var GT1 = Math.floor(((r * GJ1 + v) % p) / r);
     var GM1 = Math.floor((u * GT1 + w) / s);
     var GD1 = Math.floor(((u * GT1 + w) % s) / u);
     var GD  = GD1 + 1;
     var GM  = ((GM1 + m - 1) % n) + 1;
     var GY  = GY1 - y + Math.floor((n + m - 1 - GM) / n);
     if (J < 2299161 || J > 3272274 || GD != D || GM != M || GY != Y) {msg = 'Date Grégorienne incorrecte'}
      else {
       var JJ1 = J + j;
       var JY1 = Math.floor((r * JJ1 + v) / p);
       var JT1 = Math.floor(((r * JJ1 + v) % p) / r);
       var JM1 = Math.floor((u * JT1 + w) / s);
       var JD1 = Math.floor(((u * JT1 + w) % s) / u);
       var JD  = JD1 + 1;
       var JM  = ((JM1 + m - 1) % n) + 1;
       var JY  = JY1 - y + Math.floor((n + m - 1 - JM) / n)
      }
     }
     else {
      // Julian input ...
      var J   = c + d + D1 - j;
      var JJ1 = J + j;
      var JY1 = Math.floor((r * JJ1 + v) / p);
      var JT1 = Math.floor(((r * JJ1 + v) % p) / r);
      var JM1 = Math.floor((u * JT1 + w) / s);
      var JD1 = Math.floor(((u * JT1 + w) % s) / u);
      var JD  = JD1 + 1;
      var JM  = ((JM1 + m - 1) % n) + 1;
      var JY  = JY1 - y + Math.floor((n + m - 1 - JM) / n);
      if (J < 1722579 || J > 3272274 || JD != D || JM != M || JY != Y) {msg = 'Date Julienne incorrecte'}
       else {
        var Gg  = Math.floor(3 * (Math.floor((4 * J + B) / 146097)) / 4) + G;
        var GJ1 = J + j + Gg;
        var GY1 = Math.floor((r * GJ1 + v) / p);
        var GT1 = Math.floor(((r * GJ1 + v) % p) / r);
        var GM1 = Math.floor((u * GT1 + w) / s);
        var GD1 = Math.floor(((u * GT1 + w) % s) / u);
        var GD  = GD1 + 1;
        var GM  = ((GM1 + m - 1) % n) + 1;
        var GY  = GY1 - y + Math.floor((n + m - 1 - GM) / n)
       }
     }

    if (msg == '') {
     // output to fields in FORM ...
     var day = (J + 1) % 7, rd, RY = JY + 753; if (JM == 12 && JD > 13) {RY ++};
     if (JM == 3 || JM == 5 || JM == 7 || JM == 10) {rd = RD(JD, JM, 7, 15, 31)}
      else if (JM == 1 || JM == 8 || JM == 12) {rd = RD(JD, JM, 5, 13, 31)}
       else if (JM == 4 || JM == 6 || JM == 9 || JM == 11) {rd = RD(JD, JM, 5, 13, 30)}
        else if (JY % 4 == 0) {rd = leapFeb(JD)}
         else {rd = RD(JD, JM, 5, 13, 28)};
     with(document.forms[0]) {
      elements[5].value = D;
      elements[6].selectedIndex = M - 1;
      elements[7].value = Y;
      if (J > 2299160) {
       // output Gregorian only after 14 Oct 1582 ...
       elements[0].value = Eday[day] + ' ' + GD + ' ' + Emth[GM - 1]+ ' ' + GY;
       elements[1].value = Lday[day] + ' ' + cvts(GD).toLowerCase() + ' ' + Lmth[GM - 1] + ' ' + cvts(GY)
       }
       else {
        elements[0].value = '(Le calendrier grégorien non encore en usage)';
        elements[1].value = '(Le calendrier grégorien non encore en usage)'
       }
      elements[2].value = Eday[day] + ' ' + JD + ' ' + Emth[JM - 1]+ ' ' + JY;
      elements[3].value = Lday[day] + ' ' + cvts(JD).toLowerCase() + ' ' + Lmth[JM - 1] + ' ' + cvts(JY);
      elements[4].value = Rday[day] + ' ' + rd + '. ' + cvts(RY) + ' A.U.C.';
      elements[5].focus()
     }
    }
    else {alert(msg)};
   }

   function RD(JD, JM, NON, ID, PKAL) {
    // returns string with date in Roman format (except for leap February) ...
    var rd;
    if (JD == 1) {rd = 'KAL. ' + Rmth[JM - 1]}
     else if (JD < NON - 1) {rd = 'A.D. ' + cvts(NON + 1 - JD) + ' NON. ' + Rmth[JM - 1]}
      else if (JD == NON - 1) {rd = 'PRID. NON. ' + Rmth[JM - 1]}
       else if (JD == NON) {rd = 'NON. ' + Rmth[JM - 1]}
        else if (JD < ID - 1) {rd = 'A.D. ' + cvts(ID + 1 - JD) + ' ID. ' + Rmth[JM - 1]}
         else if (JD == ID - 1) {rd = 'PRID. ID. ' + Rmth[JM - 1]}
          else if (JD == ID) {rd = 'ID. ' + Rmth[JM - 1]}
           else if (JD < PKAL) {rd = 'A.D. ' + cvts(PKAL + 2 - JD) + ' KAL. ' + Rmth[JM % 12]}
            else {rd = 'PRID. KAL. ' + Rmth[JM % 12]};
    return rd;
   }

   function leapFeb(JD) {
    // returns string with date in Roman format for leap February ...
    var rd;
    if (JD == 1) {rd = 'KAL. FEB'}
     else if (JD < 4) {rd = 'A.D. ' + cvts(6 - JD) + ' NON. FEB'}
      else if (JD == 4) {rd = 'PRID. NON. FEB'}
       else if (JD == 5) {rd = 'NON. FEB'}
        else if (JD < 12) {rd = 'A.D. ' + cvts(14 - JD) + ' ID. FEB'}
         else if (JD == 12) {rd = 'PRID. ID. FEB'}
          else if (JD == 13) {rd = 'ID. FEB'}
           else if (JD < 25) {rd = 'A.D. ' + cvts(30 - JD) + ' KAL. MART'}
            else if (JD == 25) {rd = 'BIS VI KAL. MART'}
             else if (JD < 29) {rd = 'A.D. ' + cvts(31 - JD) + ' KAL. MART'}
              else {rd = 'PRID. KAL. MART'};
    return rd;
   }

   function datefocus() {
    // give focus to date conversion input field ...
    document.forms[0].elements[5].focus()
   }

   
   // -->
   /* XML end  ]]>*/
  </script>
  <html>
<head>
<title>le site des philat&eacute;listes francophones</title>
</head>
<body  onload='load()' >
<center><table WIDTH="100%" BORDER="0" cellpadding="2" bgcolor="#ffffcc"><tr><td align=Left><a href="http://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://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>

     <h2><font color="Maroon"><b>Conversion</b></font></h2>

     <form action="#"> 
	 <b><i>Date du calendrier Grégorien : </i></b><br />
     <input size="50" onfocus="datefocus()" /><br>
     <b><i>Date du calendrier Grégorien en Latin : </i></b><br /> 
	 <input size="50" onfocus="datefocus()" /> <br>
     <b><i>Date du calendrier Julien : </i></b><br /> 
	 <input size="50" onfocus="datefocus()" /><br>
     <b><i>Date du calendrier Julien en Latin : </i></b><br /> 
	 <input size="50" onfocus="datefocus()" /> <br>
     <b><i>Date du calendrier Julien en style Romain : </i></b><br />
     <input size="50" onfocus="datefocus()" /><br />
     <input size="2" />
      <select onchange="update(false)">
	  <option>Janvier</option>
	  <option>Février</option>
	  <option>Mars</option>
	  <option>Avril</option>
	  <option>Mai</option>
	  <option>Juin</option>
	  <option>Juillet</option>
	  <option>Août</option>
	  <option>Septembre</option>
	  <option>Octobre</option>
	  <option>Novembre</option>
	  <option>Décembre</option>
	  </select>

      <input size="4" /> &nbsp; &#171;&mdash;&nbsp; Vous pouvez taper une date dans le calendrier<br />
      <input type="radio" onclick="update(false)" name="1" checked="checked"></input><big>Grégorien</big> 
	  &nbsp; ou &nbsp; <input type="radio" onclick="update(false)" name="1" /><big>Julien</big> 

      <input type="button" value="et cliquez ici" onclick="update(false)" class="button"></input>
     </form>
     &nbsp;<br />Vous pouvez aussi trouver le jour de la semaine pour une date grégorienne ou julienne ...<br />
	 <small>e.g. à Pompei, l'éruption du Vésuve était un &nbsp; <i>Mardi</i>, 24  Août 79; DIES MARTIS A.D. IX KAL. SEP. DCCCXXXII A.U.C.</small>
    </th>
   </tr>
  </table>
  </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://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://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://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>