//MVVM, 55.51.4-56.24.6, JS/StatWind.js

/*

Copyright (C) 53-56 ASWW, M. Vincent van Mechelen. All Rights Reserved.

This script may be re-used for non-commercial puposes, if credit is

given to the author in the source code.

*/



function Greg_to_Metr(yChrEI,mGregI,dGregI)

{

 this.year=yChrEI-1945;

 if (mGregI==1) add_days=10;    if (mGregI==2) add_days=41;

 if (mGregI==3) add_days=69;    if (mGregI==4) add_days=100;

 if (mGregI==5) add_days=130;   if (mGregI==6) add_days=161;

 if (mGregI==7) add_days=191;   if (mGregI==8) add_days=222;

 if (mGregI==9) add_days=253;   if (mGregI==10) add_days=283;

 if (mGregI==11) add_days=314;

 if (mGregI==12)

  { if (dGregI<22) yr_day=344+dGregI;

     else { this.year=this.year+1; yr_day=dGregI-21 }

  }

  else  yr_day=dGregI+add_days;



 this.day=0;

 if (yChrEI%4==0)  // Gregorian leap year

  { if (yr_day>69 && mGregI>2)

     { yr_day=yr_day+1;

       if (yr_day==366) { this.week=52; this.day=8 }

     }

  }



 if (yr_day==183) { this.week=26; this.day=8 };

 if (this.day==0)

 { if (yr_day>182) yr_day=yr_day-1;

   this.day=1+((yr_day-1)%7);

   this.week=1+((yr_day-this.day)/7) }



 this.month=Math.floor((this.week+3)/4);

}

function two_digitS(number)

{

 numberS=number;

 if (number<10) numberS="0"+numberS

 return(numberS)

}

function TodayF()

{

 today=new Date();

 yChrE=today.getYear();

 if (yChrE<2000)

 { if (yChrE>99) yChrE=yChrE+1900;

    else yChrE=yChrE+2000 }

 mGreg=today.getMonth()+1; dGreg=today.getDate();

 Today= new Greg_to_Metr(yChrE,mGreg,dGreg);

 yNow=Today.year;

 mNow=Today.month; month_noS=two_digitS(mNow);

 wNow=Today.week; week_noS=two_digitS(wNow);

 dNow=Today.day;

}



function StatWind(T)

{

 TodayF();

 beginS="Today's date is ";

 dateS=yNow+"."+week_noS+"."+dNow;

 endS="";

  if ((week_noS=="01")&&(dNow==1)) endS=".  HAPPY NEW YEAR!"

 if (T)

   window.defaultStatus=beginS+dateS+endS;

  else

   document.write(dateS);

}



//Copyright 55-56 aSWW, M. Vincent van Mechelen