function petcal(){
  dat =new Date();
  dat1=dat.getYear();
  dat2=dat.getMonth();
  dat3=dat.getDate();
  st='<STYLE type="text/css"><!--TD{font-size:9pt;}--></STYLE><TABLE width="100%" border="0" cellpadding="2" cellspacing="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></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||(toku==2&&((i+tuitati)%7==2))){
          flg_n++;
        }break;
      case 2:
        if(i==11){
          flg_n++;
        }break;
      case 3:
        if(i==20){
          flg_n++;
        }break;
      case 4:
        if(i==29){
          flg_n++;
        }break;
      case 5:
        if(i==3||i==4||i==5){
          flg_n++;
        }break;
      case 7:
        if(toku==3&&((i+tuitati)%7==2)){
          flg_n++;
        }break;
      case 9:
        if(i==23||(toku==3&&((i+tuitati)%7==2))){
          flg_n++;
        }break;
      case 10:
        if(toku==2&&((i+tuitati)%7==2)){
          flg_n++;
        }break;
      case 11:
        if(i==3||i==23){
          flg_n++;
        }break;
      case 12:
        if(i==23){
          flg_n++;
        }break;
    }
    if(flg_n>0||flg_f>0){
      if(i==dat3){
        hi[i]='<TD bgcolor="#ffff80"><FONT color="#FF0000">'+i+'</FONT></TD>'; //当日色
      }else{
        hi[i]='<TD><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="#ffff80"><FONT color="#0000FF">'+i+'</FONT></TD>'; //当日色
      }else{
        hi[i]='<TD><FONT color="#0000FF">'+i+'</FONT></TD>';
      }
    }else{
      if(i==dat3){
        hi[i]='<TD bgcolor="#ffff80">'+i+'</TD>'; //当日色
      }else{
        hi[i]='<TD>'+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><FONT color="#FF0000">日</FONT></TD><TD>月</TD><TD>火</TD><TD>水</TD><TD>木</TD><TD>金</TD><TD><FONT color="#0000FF">土</FONT></TD></TR>';
  doc=st+'<TR align="center"><TD colspan="7">'+dat1+'年'+tuki+'月</A></TD></TR>'+youbi+date+ed;
  document.write(doc);
}