function petcal(){
  dat =new Date();
  dat1=dat.getYear();
  dat2=dat.getMonth();
  dat3=dat.getDate();
  st='<STYLE type="text/css"><!--TD{font-size:12px;}--></STYLE><TABLE width="100%" height="160px" border="0" cellspacing="1" cellpadding="0">';
  ed='</TR></TABLE>';
  tuki=dat2+1;
  if(dat1<2000){
    dat1=dat1+1900;
  }
  niti=new Array(31,28,31,30,31,30,31,31,30,31,30,31);
  if((dat1%4==0&&dat1%100!=0)||dat1%400==0){
    niti[1]=29;
  }
  suu=niti[dat2];
  dat.setDate(1);
  tuitati=dat.getDay();
  mae='<TR align="center">';
  for(y=1;y<=tuitati;y++){
    mae=mae+'<TD bgcolor="#dddddd"></TD>';
  }

  hi=new Array();
  toku =0;
  flg_d=0; //土
  flg_n=0; //日,祝
  flg_f=0; //振替
  for(i=1;i<=suu;i++){
    if((i+tuitati)%7==2){ //改正祝日法
      toku++;
    }if((i+tuitati)%7==1){ //日
      flg_n++;
    }else if((i+tuitati)%7==0){ //土
      flg_d++;
    }
    switch(tuki){
      case 1:
        if(i==1||i==2||i==3||i==23||(toku==2&&((i+tuitati)%7==2))){
          flg_n++;
        }break;
      case 2:
        if(i==6||i==11||i==20||i==27){
          flg_n++;
        }break;
      case 3:
        if(i==6||i==13||i==22||i==27){
          flg_n++;
        }break;
      case 4:
        if(i==10||i==17||i==24||i==29){
          flg_n++;
        }break;
      case 5:
        if(i==3||i==4||i==5||i==15){
          flg_n++;
        }break;
      case 6:
        if(i==5||i==12||i==19||i==26){
          flg_n++;
        }break;
      case 7:
        if(i==3||i==10||i==24||i==31||(toku==3&&((i+tuitati)%7==2))){
          flg_n++;
        }break;
      case 8:
        if(i==7||i==13||i==14||i==16||i==28){
          flg_n++;
        }break;
      case 9:
        if(i==4||i==11||i==23||(toku==3&&((i+tuitati)%7==2))){
          flg_n++;
        }break;
      case 10:
        if(i==2||i==23||(toku==2&&((i+tuitati)%7==2))){
          flg_n++;
        }break;
      case 11:
        if(i==3||i==23){
          flg_n++;
        }break;
      case 12:
        if(i==23||i==30||i==31){
          flg_n++;
        }break;
    }
    if(flg_n>0||flg_f>0){
      if(i==dat3){
        hi[i]='<TD bgcolor="#88ccff"><FONT color="#FF0000">'+i+'</FONT></TD>'; //当日色
      }else{
        hi[i]='<TD bgcolor="#dddddd"><FONT color="#FF0000">'+i+'</FONT></TD>';
      }
      flg_f=0;
      if(flg_n==2){flg_f++;}
    }else if(flg_d>0){
      if(i==dat3){
        hi[i]='<TD bgcolor="#88ccff"><FONT color="#0000FF">'+i+'</FONT></TD>'; //当日色
      }else{
        hi[i]='<TD bgcolor="#dddddd"><FONT color="#0000FF">'+i+'</FONT></TD>';
      }
    }else{
      if(i==dat3){
        hi[i]='<TD bgcolor="#88ccff">'+i+'</TD>'; //当日色
      }else{
        hi[i]='<TD bgcolor="#dddddd">'+i+'</TD>';
      }
    }
    flg_d=0;flg_n=0;
  }

  for(k=7-tuitati;k<=suu;k=k+7){
    hi[k]=hi[k]+'</TR><TR align="center">';
  }
  date=mae;
  for(j=1;j<=suu;j++){
    date=date+hi[j];
  }
  youbi='<TR align="center"><TD bgcolor="#dddddd"><FONT color="#FF0000">日</FONT></TD><TD bgcolor="#dddddd">月</TD><TD bgcolor="#dddddd">火</TD><TD bgcolor="#dddddd">水</TD><TD bgcolor="#dddddd">木</TD><TD bgcolor="#dddddd">金</TD><TD bgcolor="#dddddd"><FONT color="#0000FF">土</FONT></TD></TR>';
  doc=st+'<TR align="center"><TD bgcolor="#ffdd88" colspan="7">'+dat1+'年'+tuki+'月</TD></TR>'+youbi+date+ed;
  document.write(doc);
}