<!-- 
w = self;
function oar(OK,CODE1,CODE2) { /*objets a ranger*/
    this.OK
    this.CODE1
    this.CODE2
    this.n_jrl
    this.JR_courant
    this.bool 
    this.chaine
     }
function date(JJD,AN,MOIS,JOUR,TYPEA,NBMOIS) {
    this.JJD
    this.AN
    this.MOIS
    this.JOUR
    this.TYPEA
    this.NBMOIS
     }
function trunc(x) {
if (x>0.0) return(Math.floor(x));
else return Math.ceil(x);
}
 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 moonph(form)     
       {
        PI314=3.141592653589793;
        tabm=new Array(0.041e0, 0.126e0, 0.203e0, 0.288e0,
                       0.370e0, 0.455e0, 0.537e0, 0.622e0,
                       0.707e0, 0.789e0, 0.874e0, 0.956e0);
        xMOIS=date.MOIS;
        oar.CODE1=date.AN; oar.CODE2=date.MOIS;
        if(date.MOIS==1){an=date.AN-1; date.MOIS=12;}
        else {an=date.AN; date.MOIS--;}
        an+=tabm[date.MOIS-1];
        k=(an-1900)*12.3685e0;
        lik=trunc(k);rk=lik;
        k=rk-0.25e0; if(k<0.e0)k=k-1;
        rad=PI314/180e0;
        nx=0;
        with (Math) {
        for(ii=0;ii<12;ii++)
          {
           k = k+0.25;  t=k/1236.85e0; t2=t*t; t3=t*t2;
           j = 2415020.75933e0 + 29.5305888531e0*k
              + 0.0001337e0*t2 - 0.000000150e0*t3
              + 0.00033e0*sin(rad*(166.56e0 + 132.87*t - 0.009*t2));
           m = rad*(359.2242e0 + 29.10535608e0*k
              - 0.0000333e0*t2 - 0.00000347e0*t3);
           m=m%(2*PI314);
           mp = rad*(306.0253e0 + 385.81691806e0*k
              + 0.0107306e0*t2 + 0.00001236e0*t3);
           mp=mp%(2*PI314);
           f = rad*(21.2964e0 + 390.67050646e0*k
              - 0.0016528e0*t2 - 0.00000239e0*t3);
           f=f%(2*PI314);
           oar.OK=0; i=ii%4;
           if(i==0 || i==2)
             {
               j = j + (0.1734e0 - 0.000393e0*t)*sin(m)
                     + 0.0021e0*sin(2*m) - 0.4068e0*sin(mp)
                     + 0.0161e0*sin(2*mp) - 0.0004e0*sin(3*mp)
                     + 0.0104e0*sin(2*f) - 0.0051e0*sin(m+mp)
                     - 0.0074e0*sin(m-mp) + 0.0004e0*sin(2*f+m)
                     - 0.0004e0*sin(2*f-m) - 0.0006e0*sin(2*f+mp)
                     + 0.001e0*sin(2*f-mp) + 0.0005e0*sin(m+2*mp);
               date.JJD = j;
               testmoi(i,xMOIS);                     
               if(oar.OK==1) affmoph(form,i);
             }
           else
             {
               j = j + (0.1721e0 - 0.0004e0*t)*sin(m)
                     + 0.0021e0*sin(2*m) - 0.6280e0*sin(mp)
                     + 0.0089e0*sin(2*mp) - 0.0004e0*sin(3*mp)
                     + 0.0079e0*sin(2*f) - 0.0119e0*sin(m+mp)
                     - 0.0047e0*sin(m-mp) + 0.0003e0*sin(2*f+m)
                     - 0.0004e0*sin(2*f-m) - 0.0006e0*sin(2*f+mp)
                     + 0.0021e0*sin(2*f-mp) + 0.0003e0*sin(m+2*mp)
                     + 0.0004e0*sin(m-2*mp) - 0.0003e0*sin(2*m+mp);
                if(i==1)
                   {                         
                    date.JJD = j + 0.0028e0 - 0.0004*cos(m)
                           + 0.0003e0*cos(mp);
                    testmoi(i,xMOIS);
                    if(oar.OK==1) affmoph(form,i);
                   }
                else
               {                           
                     date.JJD = j - 0.0028e0 + 0.0004*cos(m)
                                  - 0.0003e0*cos(mp);
                     testmoi(i,xMOIS);
                    if(oar.OK==1) affmoph(form,i);
                   }
              }                                 }   
              if (oar.OK==1) nx++;
              if (nx>=4 && oar.OK==0) alert('break');               }
            date.AN=oar.CODE1; date.MOIS=oar.CODE2;
        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);}
        while (oar.JR_courant <= date.NBJRS)
         affich_age(form);
       }
function testmoi(i,pMOIS)    
       {
        D=oar.CODE1/100.0;              
        TETUS = 32.23*(D-18.30)*(D-18.30)-15;
        TETUJ = TETUS/86400e0;
        date.JJD+=0.0003472222e0;         
        date.JJD+=(-TETUJ);
        if(date.JJD<2299160.5e0){JJDATEJ();BISJ();} else{JJDATE();BISG();}
        oar.OK=0;
        if(date.MOIS==pMOIS) oar.OK=1;
           if (i==0) if (pMOIS>date.MOIS) init_jrl(pMOIS);
                    else if (date.MOIS==12 && pMOIS==1) init_jrl(pMOIS); 
       }
function init_jrl(xmois)  
       {
             if (oar.bool==0) {
              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);}
             oar.JR_courant=1; 
             oar.n_jrl=date.NBJRS-date.JOUR+2;  }
       }
function affmoph(form,i)          
       {
        mois_fix=new Array("nul","January","February","March","April"," May ","June ",
                       "July","August","September","October","November","December");
        nompha=new Array("NEW MOON     ","FIRST QUARTER",
                    "FULL MOON    ","LAST QUARTER ");
        sigpha=new Array("NL","PQ","PL","DQ");
        tabjm=new Array(31,28,31,30,31,30,31,31,30,31,30,31);
        if(date.JJD<2299160.5E0) JJDATEJ(); else  JJDATE();
        FRACJ=(date.JJD+0.5E0)%1.0;
        jour=date.JOUR;
        HH=FRACJ*24e0; hh=Math.floor(HH);
        FRACJ-=hh/24.e0; MM=FRACJ*1440.e0; mm=Math.floor(MM);
        if(hh==24)                   
           {jfin=tabjm[date.MOIS-1];
            if(date.JJD<2299160.5E0) BISJ(); else  BISG();
            if(date.MOIS==2 && date.TYPEA==1)jfin=29;
            if(date.JOUR<jfin) { hh=0; jour=date.JOUR+1;}
           } 
       if (hh<10) hh="0"+hh;
       if (mm<10) mm="0"+mm;
 while (oar.JR_courant < date.JOUR)
  affich_age(form);
  nombre=((oar.JR_courant<=9)?"0" + oar.JR_courant++:oar.JR_courant++);
  document.form.CAL_JR.value=document.form.CAL_JR.value +  nombre;
  if (date.AN>=-9 && date.AN<=99) oar.chaine="  " + date.AN;
  else oar.chaine=date.AN;
  document.form.CAL_JR.value=document.form.CAL_JR.value + " "+ mois_fix[date.MOIS] + " " +
 oar.chaine +"    " + sigpha[i] + "  \r\n";
if (i==0) {oar.n_jrl=2; oar.bool=1;} else oar.n_jrl++;
if (hh>=0 && hh<=11) apm="a.m.";
if (hh==12) apm="p.m.";
if (hh>=13 && hh<=23) {hh=hh-12; apm="p.m.";}
  form.PHASES.value=form.PHASES.value + nompha[i] + " " + date.AN  + ", " + mois_fix[date.MOIS] + " " + 
      jour + " at " + hh + "h" + mm + "m " + apm + "\r\n";
       }
function affich_age(form)
  {
        mois_fix=new Array("nul","January","February","March","April"," May ","June ",
                       "July","August","September","October","November","December");
   nombre=((oar.JR_courant<=9)?"0" + oar.JR_courant++:oar.JR_courant++);
  document.form.CAL_JR.value=document.form.CAL_JR.value +  nombre;
  nombre=((oar.n_jrl<=9)?"0" + oar.n_jrl++:oar.n_jrl++);
  if (date.AN>=-9 && date.AN<=99) oar.chaine="  " + date.AN;
  else oar.chaine=date.AN;
  document.form.CAL_JR.value=document.form.CAL_JR.value + " "+ mois_fix[date.MOIS] + " " + 
oar.chaine +"    " + nombre + "  \r\n";
  }
function suivan(form) {
date.AN=(form.nyear.value=="") ? "0" :eval(form.nyear.value);
date.MOIS=(form.nmonth.value=="") ? "0" :eval(form.nmonth.value);
if (++date.MOIS==13) { date.MOIS=1; date.AN++;
    if (date.AN<-4000 || date.AN>2500) {alert('out of limits');
                                       date.AN--; date.MOIS=12;
                                        return;}}
form.nyear.value=date.AN; form.nmonth.value=date.MOIS;
form.PHASES.value="";
form.CAL_JR.value="";
oar.bool=0;
moonph(form);
}
function preced(form) {
date.AN=(form.nyear.value=="") ? "0" :eval(form.nyear.value);
date.MOIS=(form.nmonth.value=="") ? "0" :eval(form.nmonth.value);
if (--date.MOIS==0) {date.MOIS=12; date.AN--;
    if (date.AN<-4000 || date.AN>2500) {alert('out of limits');
                                       date.AN++; date.MOIS=1;}}
form.nyear.value=date.AN; form.nmonth.value=date.MOIS;
form.PHASES.value="";
form.CAL_JR.value="";
oar.bool=0;
moonph(form);}
function couran(form) {
date.AN=(form.nyear.value=="") ? "0" :eval(form.nyear.value);
date.MOIS=(form.nmonth.value=="") ? "0" :eval(form.nmonth.value);
form.PHASES.value="";
form.CAL_JR.value="";
oar.bool=0;
if (date.AN<-4000 || date.AN>2500) {alert('out of limits');}
if (date.MOIS<1 || date.MOIS>12) {alert('out of limits');}
moonph(form);
}
function dateinit(form) {
Todays=new Date();
if (Todays.getYear() < 1000)
 document.form.nyear.value=1900 + Todays.getYear();
else 
 document.form.nyear.value=Todays.getYear();  
 document.form.nmonth.value=Todays.getMonth() +1;                   
}
// -->