function holidaySet(x,n,m,d){
	var today=new Date(n,m,d);
	var seijin=100+14 -(today.getDay()+5) % 7;
	var shynbun=300+Math.floor(20.712662+0.242199*(n-1996)-Math.floor((n-1996)/4));
	var shuubun=900+Math.floor(23.130023+0.242199*(n-1996)-Math.floor((n-1996)/4));
	var taiiku=1000+14 -(today.getDay()+5) % 7;
	if(x==101 || x == seijin || x == 211 || x == shynbun || x == 429 || x == 503  || x == 504 || x == 505
	 || x == 720 || x == 918  || x==shuubun || x == taiiku || x == 1103 || x==1123 || x == 1223){return 1;}
}

var w=1;
var holiday=0;
var trans=0;

var today=new Date();
var ty=today.getFullYear();if(ty<2000){ty=ty+1900;}
var tm=today.getMonth() + 1;
var td=today.getDate();

var setmnt=new Date(ty,tm-1,1);
var crrday=setmnt.getDay();
var lmtmnt=new Array(0,31,28,31,30,31,30,31,31,30,31,30,31);
var crrmnt=new Array("","1月","2月","3月","4月","5月","6月","7月","8月","9月","10月","11月","12月");
if(((ty % 4 == 0) && (ty % 100 != 0)) || (ty % 400==0)){lmtmnt[2]=29;}

var spcTag="<TD><IMG SRC='s.gif' WIDTH='25' HEIGHT='2' VSPACE='0' HSPACE='0' BORDER='0'><\/TD>";



var cldrTag="<TABLE BORDER='0' CELLSPACING='0' CELLPADDING='0' WIDTH='175' STYLE='margin-left:10px;'><TR>";
cldrTag=cldrTag+"<TD COLSPAN='5'><DIV CLASS='Hdl' ID='Wht'>"+crrmnt[tm]+"<\/DIV><\/TD>";
cldrTag=cldrTag+"<TD COLSPAN='2'><DIV CLASS='Hdl' ID='Rht' STYLE='color:#FFFFFF;'>"+ty+"年<\/DIV><\/TD><\/TR>";
cldrTag=cldrTag+"<TR BGCOLOR='#006600'>"+spcTag+spcTag+spcTag+spcTag+spcTag+spcTag+spcTag+"<\/TR>";
cldrTag=cldrTag+"<TR><TD><DIV CLASS='Cyp' STYLE='color:#FF99CC;'>日</DIV></TD><TD><DIV CLASS='Cyp' ID='Wht'>月<\/DIV><\/TD>";
cldrTag=cldrTag+"<TD><DIV CLASS='Cyp' ID='Wht'>火<\/DIV><\/TD>";
cldrTag=cldrTag+"<TD><DIV CLASS='Cyp' ID='Wht'>水<\/DIV><\/TD><TD><DIV CLASS='Cyp' ID='Wht'>木<\/DIV><\/TD>";
cldrTag=cldrTag+"<TD><DIV CLASS='Cyp' ID='Wht'>金<\/DIV><\/TD><TD><DIV CLASS='Cyp' STYLE='color:#CCCCFF;'>土<\/DIV><\/TD><\/TR>";
cldrTag=cldrTag+"";

for(i=1;i<7;i++){
	cldrTag=cldrTag+"<TR>";
	for(j=1;j<8;j++){
		if(w==td && crrday<1){
			cldrTag=cldrTag+"<TD BGCOLOR='#009900'>";
		}else{
			cldrTag=cldrTag+"<TD>";
		}
		if(crrday-- > 0 || w > lmtmnt[tm]){
			cldrTag=cldrTag+"<\/TD>";
		}else{
			holiday = holidaySet(tm*100+w,ty,tm-1,1);
			if(j == 1 || holiday || trans){
				cldrTag=cldrTag+"<DIV CLASS='Cyp' STYLE='color:#FF99CC;'>"+(w++)+"<\/DIV>";
				if(j==1 && holiday){trans=1;}else{trans=0;}
			}else{
				if(j==7){cldrTag=cldrTag+"<DIV CLASS='Cyp' STYLE='color:#CCCCFF;'>"+(w++)+"<\/DIV>";}
				else{cldrTag=cldrTag+"<DIV CLASS='Cyp' STYLE='color:#FFFFFF;'>"+(w++)+"<\/DIV>";}
			}
		}
		cldrTag=cldrTag+"<\/TD>";
	}
	cldrTag=cldrTag+"<\/TR>";
}
cldrTag=cldrTag+"<TR><TD COLSPAN='7'><IMG SRC='s.gif' WIDTH='1' HEIGHT='5' VSPACE='0' HSPACE='0' BORDER='0'></TD></TR>";
cldrTag=cldrTag+"<TR><TD COLSPAN='7' BGCOLOR='#006600'><IMG SRC='s.gif' WIDTH='1' ";
cldrTag=cldrTag+"HEIGHT='2' VSPACE='0' HSPACE='0' BORDER='0'></TD></TR></TABLE>";