//万年暦  by「菊池さん」 <http://village.infoweb.ne.jp/~tkiku/>
//個人設定。あなたの環境にあわせて変更します
   cont = 0;	//sayhappy_sp.cgiを利用しない(0)、する(1)
   dir = "./birthday/sayhappy_sp.cgi";	//利用する場合sayhappy_sp.cgiのパス指定
//ここまで
   nDate=new Date();
   thisDay = nDate.getDate();
   thisMonth = nDate.getMonth();
function koyomi(mymonth) {
   myday = new Date(mymonth+"/01");
   monthDays = new Array(31,28,31,30,31,30,31,31,30,31,30,31);
   kyuDays = new Array("0101","0115","0211","0321","0429","0503","0504","0505","0720","0915","0923","1010","1103","1123","1223");  //祝日設定(変更出来ません)
   kyuDayn = new Array("元旦","成人の日","建国記念日","春分の日","みどりの日","憲法記念日","国民の休日","子供の日","海の日","敬老の日","秋分の日","体育の日","文化の日","勤労感謝日","天皇誕生日");

   tokuDays = new Array();	//特別日設定
   year = myday.getYear(); if (year < 2000) year = year + 1900;
   month = myday.getMonth()+1;

   if (((year % 4 == 0) && (year % 100 != 0)) || (year % 400 == 0))
      { monthDays[1] = 29; }  // うるう年計算
   kyuDays[3] = "03" + Math.floor(20.8431 + 0.242194 * (year - 1980) - Math.floor((year - 1980)/4));  // 春分の日を求める（1980-2099まで）
   kyuDays[10] = "09" + Math.floor(23.2488 + 0.242194 * (year - 1980) - Math.floor((year - 1980)/4));  // 秋分の日を求める（1980-2099まで）

   nDays = monthDays[myday.getMonth()];

   firstDay = myday;
   firstDay.setDate(1);
   startDay = firstDay.getDay();

if (year >= 2000 &&(month == 1 || month == 10)) { // 2000年以降の成人の日/体育の日(第２月曜日)の計算
   if (startDay <= 1) happyMon = 7 + (2 - startDay);
   else               happyMon = 14 - (startDay - 2);
   if (happyMon < 10) happyMon = "0" + happyMon;
   if (month == 1) kyuDays[1] = "01" + happyMon;
   else            kyuDays[11] = "10" + happyMon;
}

for (i = 0; i < kyuDays.length; i++) { // 振替休日の自動計算
   hmon = kyuDays[i].substring(0,2);
   if (hmon == month) {
      hday = kyuDays[i].substring(2,4)*1;
      if (hmon <= 2) { zyear = year - 1;	zmon = parseInt(hmon) + 12; }
      else { zyear = year;	zmon = hmon; }
      zday = (zyear + parseInt(zyear/4) - parseInt(zyear/100) + parseInt(zyear/400) + parseInt((13*zmon + 8)/5) + hday ) % 7;
      if (zday == 0) {
         hday = hday + 1;
         if (hday < 10) hday = "0"+ hday;
         kyuDays[kyuDays.length] = hmon + hday;
         kyuDayn[kyuDayn.length] = "振替休日";
      }
   }
}
   doc ="<CENTER><TABLE bgcolor=white border=0 bordercolor=white cellpadding=2 width=100%>";
//   doc+="<TR bgcolor=#0000a0><TH COLSPAN=7><FONT color=white>";
//   doc+=year + "年 ";
//   doc+=month + "月</FONT></TH></TR>";
   doc+="<TR bgcolor=#f7ffa0><TD><FONT color=red>日</FONT></TD><TD><FONT color=black>月</FONT></TD><TD><FONT color=black>火</FONT></TD><TD><FONT color=black>水</FONT></TD><TD><FONT color=black>木</FONT></TD><TD><FONT color=black>金</FONT></TD><TD><FONT color=blue>土</FONT></TD></TR>";

   doc+="<TR bgcolor=#ddffdd>";
   column = 0;
   for (i=0; i<startDay; i++)
   {
      doc+="<TD>　</TD>";
      column++;
   }
   for (i=1; i<=nDays; i++)
   {
      if (i==thisDay && myday.getMonth()==thisMonth) {  //本日の背景色変更
        doc+="<TD ALIGN=center bgcolor=cyan>";
      } else { doc+="<TD ALIGN=center>"; }
      if (cont == 1) {
        doc+="<a href='"+ dir +"?month="+ month +"&day="+ i +"'>"; //ハッピーバースディのリンク設定
      }
      weekDay = myday;
      weekDay.setDate(i);
      if (weekDay.getDay() == 0)      doc+="<FONT COLOR=red>";
      else if (weekDay.getDay() == 6) doc+="<FONT COLOR=blue>";
      else                            doc+="<FONT COLOR=black>";
      for (j=0; j<kyuDays.length; j++)		//祝日判定
      {
        if (myday.getMonth()+1 == kyuDays[j].substring(0,2) && i == kyuDays[j].substring(2,4)*1) doc+="<FONT COLOR=red>";
      }
      for (j=0; j<tokuDays.length; j++)		//特別日判定
      {
        if (myday.getMonth()+1 == tokuDays[j].substring(0,2) && i == tokuDays[j].substring(2,4)*1) doc+="<FONT COLOR=magenta>";
      }
      doc+=i;
      doc+="</FONT></a></TD>"
      column++;
      if (column == 7 && i != nDays)
      {
         doc+="</TR><TR bgcolor=#ddffdd>";
         column = 0;
      }
   }
   for (i=0; column<7; i++){
      doc+="<TD>　</TD>";
      column++;
   }
   doc+="</TR></TABLE></CENTER>";
   document.write(doc);
}