Txt="";
      eFONT="</FONT>";
      eTD="</TD>";
      eTR="</TR>";

      schedule=new Array();
      yotei=new Array();

      schedule[0]="2008/3/24";
      yotei[0]="物理学会"
      schedule[1]="2008/3/25";
      yotei[1]="物理学会"
      schedule[2]="2008/3/26";
      yotei[2]="物理学会"            
      schedule[3]="2008/3/27";
      yotei[3]="物理学会"      
      schedule[4]="2008/4/19";
      yotei[4]="第23回東工大経済物理学セミナー"
      schedule[4]="2008/6/10";
      yotei[4]="何かが起こる？"
      holiday=new Array();
      saijitsu=new Array();

      holiday[0]="2005/1/1";
      saijitsu[0]="元日";



      Now=new Date();
      with(Now)
      {
        Year = getYear();
        Month=getMonth()+1;
        DD=getDate();
        WW=getDay();
      }
      A="20";
      if(Year < 90)
      {
        A="20";
        Year = A+Year;
      }
      else if(Year < 99)
      {
        A="19";
        Year = A+Year;
      }
      else if(Year < 1900)
      {
        A="20";
        Year = 1900+Year; 
      }

      Yoobi=new Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat");

      function Nissu(a, b) {
        if(b==2)
        {
          if(a % 4==0)
          {
            if(a % 100==0 && a % 400!=0) return 28;
            else return 29; 
          }
          else return 28;
        }
        else if(b==4 || b==6 || b==9 || b==11) return 30;
        else return 31;
      }

    function Calender(Tuki,annus) {
      First=0;

      Txt+="<FONT size=3>"+annus+"年"+Tuki+"月"+eFONT+"<BR><TABLE border=1 cellspacing=0 bordercolor='#000000' bgcolor='#ffffff'>";
      Txt+="<TR bgcolor='#99cccc'><TD align='center' width=30>日"+eTD+"<TD align='center' width=30>曜日"+eTD+"<TD align='center' width=210> イベント"+eTD+eTR; 
      Su=Nissu(annus, Tuki);
      Y=annus%(Math.floor(annus/100));
      M=Tuki;
      if(M==1)
      {
        M=13;
        Y-=1;
      }
      else if(M==2)
      {
        M=14;
        Y-=1;
      }
      First=(Math.floor(A/4)-2*A+Y+Math.floor(Y/4)+Math.floor((26*(eval(M)+1)/10)))%7;
      if(First<0) First+=7;
      for(i=0; i < Su; i++)
      {
        j=(First+i)%7;
        if(j==0) color="<FONT color='red'>";
        else color="<FONT color='black'>";
        if((i+1==DD) && (Tuki==Month) && (annus==Year)) today="bgcolor='aqua'";
        else today="";
        kyo = Date.parse(annus+"/"+Tuki+"/"+(i+1));
        for(k=0; k < holiday.length; k++)
        {
          it=Date.parse(holiday[k]);
          if(kyo==it)
          {
            memo="<FONT color='red'>"+saijitsu[k]+eFONT;
            color="<FONT color='red'>";
            break;
          }
          else memo="&nbsp;";
        }
        for(l=0; l < schedule.length; l++)
        {
          hd=Date.parse(schedule[l]);
          if(kyo==hd)
          {
            memo2=" "+yotei[l];
            break;
          }
          else memo2="&nbsp;";
        }
        Txt+="<TR><TD width=30 align='center'"+today+">"+color+(i+1)+eFONT+eTD+"<TD align='center'"+today+">"+color+Yoobi[j]+eFONT+eTD+"<TD width=100>"+memo+memo2+eTD+eTR;
      }
      Txt+="</TABLE>";
    }

    function newWin(EM,annus) {
      Txt="";
      Calender(EM,annus);
      document.getElementById("Calendarium"). innerHTML=Txt;
    }