// (C)1999-2002 三宅龍太郎
// 2001.11.18
// 2002.1.20 修正
// 2002.1.31 修正
// 2002.4.18 点検
// 2003.3.30 点検

// カレンダーを表示

	var url; //リンク先 URL
	var ur_win = new Array("_top","_blank");
	var u_win = 0; //リンク表示先
	var a_tit = "今日です";

	var sur; var surZ = 36; //表示月数&最大数
	var todF; //表題・今日の日付の表示（ 1:非表示 ）
	var lev; //並べ方向（ 1:横方向 ）

	var cap = "CALENDER"; //表題
	var smry = "該当月のカレンダーを記述します。"; // sumarry 属性値

	var Days = new Array("日","月" ,"火","水","木","金","土");
	var date = new Date();
	var Monthdays = new Array(31,28,31,30,31,30,31,31,30,31,30,31);

	var year;
	var month;
	var today;
	var Startday;
	var thisMonthdays;

	var row;
	var col;
	var mm;

	var c;

	var i = 0;
	var j = 0;

function calender(url,sur,todF,lev) {

	url = '' + url;

	if ( sur>surZ ) { sur=surZ; }

	year = date.getYear();
	month = date.getMonth();
	today = date.getDate();
	date.setDate(1);
	Startday = date.getDay();

	document.open();

	scale(url,todF,lev);

	for ( j=0; j<sur; j++ ) {
		month++; if ( month>11 ) { month=0; year++; }
		today = 0; cap = "";
		scale(url,todF,lev);
	}

	document.write("<address>&copy;1999-",year," RYU's<\/address>");
	document.close();

}

function scale(url,todF,lev) {

	document.write('<div class=\"spc\"');
	if ( lev==1 ) { document.write(' style=\"float:left;\"'); }
	document.write('>');
	cale_html(url,todF,lev);
	document.write('<\/div>');

}


	// HTML 出力

function cale_html(url,todF,lev) {

	if ( year<2000 ) { year = year + 1900; }
	if (((year%4==0) && (year%100!=0)) || (year%400==0)) { Monthdays[1] = 29; }
	thisMonthdays = Monthdays[month];

	with(document){

	write('<table sumarry=\"',smry,'\">');

	if ( todF!=1 ) {
		write('<caption>',cap,'</caption>');
	}

	write('<colgroup>');
	write('<col span=\"1\" class=\"c1\">');
	write('<col span=\"5\" class=\"c2\">');
	write('<col span=\"1\" class=\"c3\">');
	write('</colgroup>');

	write('<thead><tr><td colspan=\"7\">' + year + '<span>年<\/span> ',
		month+1,'<span>月<\/span><\/td><\/tr><\/thead>');

	if ( todF!=1 ) {
		write('<tfoot><tr><td colspan=\"7\">');
		days('#555555');
		write('<\/td><\/tr><\/tfoot>');
	}


	write('<tbody>');

	// 曜日表示
	write('<tr>');
	for ( i=0; i<7; i++ ) {
		if ( i==0 ) {
		write('<th class=\"sun\" scope=\"col\">',Days[i],'<\/th>');
		}
		else if ( i==6 ) {
		write('<th class=\"sat\" scope=\"col\">',Days[i],'<\/th>');
		}
		else write('<th class=\"day\" scope=\"col\">',Days[i],'<\/th>');
	}
	write('<\/tr>');

	// 日にち表示
	row=0;
	col=0;
	mm=month-1; if ( mm<0 ) { mm=11; }

	write('<tr>');

	for ( i=0; i<Startday; i++ ) {
		write('<td><small class=\"emp\">');
		write(Monthdays[mm]-(Startday-(i+1)));
		write('<\/small><\/td>');
		col++;
	}

	for ( i=1; i<=thisMonthdays; i++ ) {
		if ( col==0 ) {
			write('<td class=\"sun\">');
		}
		else if ( col==6 ) {
			write('<td class=\"sat\">');
		}
		else { write('<td class=\"day\">'); }


		if ( i==today ) {
			write('<a href=\"',url,'\" target=\"',ur_win[u_win],'\"');
			write(' title=\"',a_tit,'\">');
			write('<strong class=\"tdy\">',i,'<\/strong><\/a>');
		}
		else { write(i); }

		write('<\/td>');

		col++;
		if ( col==7 ) {
			write('<\/tr>');
			if ( i<thisMonthdays ) { write('<tr>'); }
			col=0; row++;
		}
		Startday = col;
	}

	if ( col!=0 ) {
		for ( i=1; i<(8-col); i++ ) {
			write('<td><small class=\"emp\">',i,'<\/small><\/td>');
		}
		write('<\/tr>');
	}

	if ( lev==1 && ( row<5 || col==0 )) {
		gdy = i; if ( col==0 ) { gdy = 1; }

		write('<tr>');
		for ( i=gdy; i<(gdy+7); i++ ) {
			write('<td><small class=\"emp\">',i,'<\/small><\/td>');
		}
		write('<\/tr>');
	}

	write('<\/tbody><\/table>');

	}

}



// 今日の日付を表示

function days(c) {

	c = '' + c;

	var nd = new Date();
	var y;
	var m;
	var d;

	y = nd.getYear(); if (y<2000) { y = y + 1900; }
	y = y + " ";
	y = y.italics() + "年".small().fontcolor(c);

	m = " " + (nd.getMonth()+1) + " ";
	m = m.italics() + "月".small().fontcolor(c);

	d = " " + (nd.getDate(nd)) + " ";
	d = d.italics() + "日".small().fontcolor(c);

	document.open();
	document.write(y,m,d);
	document.close();

}