//日期资料
var lunarInfo=new Array(
0x04bd8,0x04ae0,0x0a570,0x054d5,0x0d260,0x0d950,0x16554,0x056a0,0x09ad0,0x055d2,
0x04ae0,0x0a5b6,0x0a4d0,0x0d250,0x1d255,0x0b540,0x0d6a0,0x0ada2,0x095b0,0x14977,
0x04970,0x0a4b0,0x0b4b5,0x06a50,0x06d40,0x1ab54,0x02b60,0x09570,0x052f2,0x04970,
0x06566,0x0d4a0,0x0ea50,0x06e95,0x05ad0,0x02b60,0x186e3,0x092e0,0x1c8d7,0x0c950,
0x0d4a0,0x1d8a6,0x0b550,0x056a0,0x1a5b4,0x025d0,0x092d0,0x0d2b2,0x0a950,0x0b557,
0x06ca0,0x0b550,0x15355,0x04da0,0x0a5d0,0x14573,0x052d0,0x0a9a8,0x0e950,0x06aa0,
0x0aea6,0x0ab50,0x04b60,0x0aae4,0x0a570,0x05260,0x0f263,0x0d950,0x05b57,0x056a0,
0x096d0,0x04dd5,0x04ad0,0x0a4d0,0x0d4d4,0x0d250,0x0d558,0x0b540,0x0b5a0,0x195a6,
0x095b0,0x049b0,0x0a974,0x0a4b0,0x0b27a,0x06a50,0x06d40,0x0af46,0x0ab60,0x09570,
0x04af5,0x04970,0x064b0,0x074a3,0x0ea50,0x06b58,0x055c0,0x0ab60,0x096d5,0x092e0,
0x0c960,0x0d954,0x0d4a0,0x0da50,0x07552,0x056a0,0x0abb7,0x025d0,0x092d0,0x0cab5,
0x0a950,0x0b4a0,0x0baa4,0x0ad50,0x055d9,0x04ba0,0x0a5b0,0x15176,0x052b0,0x0a930,
0x07954,0x06aa0,0x0ad50,0x05b52,0x04b60,0x0a6e6,0x0a4e0,0x0d260,0x0ea65,0x0d530,
0x05aa0,0x076a3,0x096d0,0x04bd7,0x04ad0,0x0a4d0,0x1d0b6,0x0d250,0x0d520,0x0dd45,
0x0b5a0,0x056d0,0x055b2,0x049b0,0x0a577,0x0a4b0,0x0aa50,0x1b255,0x06d20,0x0ada0)
var solarMonth=new Array(31,28,31,30,31,30,31,31,30,31,30,31);
var Gan=new Array("甲","乙","丙","丁","戊","己","庚","辛","壬","癸");
var Zhi=new Array("子","丑","寅","卯","辰","巳","午","未","申","酉","戌","亥");
var Animals=new Array("鼠","牛","虎","兔","龙","蛇","马","羊","猴","鸡","狗","猪");
var solarTerm = new Array("小寒","大寒","立春","雨水","惊蛰","春分","清明","谷雨","立夏","小满","芒种","夏至","小暑","大暑","立秋","处暑","白露","秋分","寒露","霜降","立冬","小雪","大雪","冬至");
var sTermInfo = new Array(0,21208,42467,63836,85337,107014,128867,150921,173149,195551,218072,240693,263343,285989,308563,331033,353350,375494,397447,419210,440795,462224,483532,504758);
var nStr1 = new Array('日','一','二','三','四','五','六','七','八','九','十');
var nStr2 = new Array('初','十','廿','卅','　');
var lmonthName = new Array('','一','二','三','四','五','六','七','八','九','十','十一','十二');
var monthName = new Array("1 月","2 月","3 月","4 月","5 月","6 月","7 月","8 月","9 月","10 月","11 月","12 月");
var sFtv = new Array(//国际节日 *表示放假日
	"0101*元旦",
	"0214 情人节",
	"0308 妇女节",
	"0312 植树节",
	"0314 国际警察日",
	"0315 消费者权益日",
	"0323 世界气象日",
	"0401 愚人节",
	"0407 世界卫生日",
	"0501*劳动节",
	"0504 青年节",
	"0508 红十字日",
	"0512 护士节",
	"0515 国际家庭日",
	"0517 世界电信日",
	"0519 全国助残日",
	"0531 世界无烟日",
	"0601 儿童节",
	"0605 世界环境日",
	"0606 全国爱眼日",
	"0623 奥林匹克日",
	"0625 全国土地日",
	"0626 反毒品日",
	"0701 建党节",
	"0707 抗战纪念日",
	"0711 世界人口日",
	"0801 建军节",
	"0908 国际扫盲日",
	"0909 毛泽东逝世纪念",
	"0910 教师节",
	"0917 国际和平日",
	"0920 国际爱牙日",
	"0922 国际聋人节",
	"0927 世界旅游日",
	"0928 孔子诞辰",
	"1001*国庆节",
	"1004 世界动物日",
	"1006 老人节",
	"1007 国际住房日",
	"1009 世界邮政日",
	"1015 国际盲人节",
	"1016 世界粮食日",
	"1024 联合国日",
	"1031 万圣节",
	"1108 中国记者日",
	"1109 消防宣传日",
	"1112 孙中山诞辰",
	"1114 世界糖尿病日",
	"1117 国际大学生节",
	"1128 感恩节",
	"1201 世界艾滋病日",
	"1203 世界残疾人日",
	"1209 世界足球日",
	"1220 澳门回归",
	"1224 平安夜",
	"1225 圣诞节",
	"1226 毛泽东诞辰");
var lFtv = new Array(//农历节日 *表示放假日
	"0101*春节",
	"0102*初二",
	"0103*初三",
	"0104*初四",
	"0105*初五",
	"0106*初六",
	"0107*初七",
	"0115 元宵节",
	"0505 端午节",
	"0707 七夕情人节",
	"0815 中秋节",
	"0909 重阳节",
	"1208 腊八节",
	"1223 小年",
	"0100*除夕");
//某月的第几个星期几
var wFtv = new Array("0520 母亲节");

var nToDay = new Date(2008,7,22);
var nDate = new Date(2008,7,22);
var nWorkDay = new Date(2006,7,27);

var nDateArr = new Array(35);
var tY,tM,tD,cld;

function iniCal(){
	tY = nDate.getFullYear();
	tM = nDate.getMonth();
	tD = nDate.getDate();
	cld = new calendar(tY,tM);
}
//日期计算
function lYearDays(y) {//传回农历 y年的总天数
   var i, sum = 348;
   for(i=0x8000; i>0x8; i>>=1) sum += (lunarInfo[y-1900] & i)? 1: 0;
   return(sum+leapDays(y));
}
function leapDays(y) {//传回农历 y年闰月的天数
   if(leapMonth(y))  return((lunarInfo[y-1900] & 0x10000)? 30: 29);
   else return(0);
}
function leapMonth(y) {//传回农历 y年闰哪个月 1-12 , 没闰传回 0
   return(lunarInfo[y-1900] & 0xf);
}
function monthDays(y,m) {//传回农历 y年m月的总天数
   return( (lunarInfo[y-1900] & (0x10000>>m))? 30: 29 );
}
//算出农历, 传入日期物件, 传回农历日期物件,该物件属性有 .year .month .day .isLeap .yearCyl .dayCyl .monCyl
function Lunar(objDate) {
	var i, leap=0, temp=0
	var baseDate = new Date(1900,0,31)
	var offset = (objDate - baseDate)/86400000

	this.dayCyl = offset + 40
	this.monCyl = 14
	for(i=1900; i<2050 && offset>0; i++) {
		temp = lYearDays(i)
		offset -= temp
		this.monCyl += 12
	}
	if(offset<0) {
		offset += temp;
		i--;
		this.monCyl -= 12
	}
	this.year = i
	this.yearCyl = i-1864

	leap = leapMonth(i) //闰哪个月
	this.isLeap = false
	for(i=1; i<13 && offset>0; i++) {
		//闰月
		if(leap>0 && i==(leap+1) && this.isLeap==false)
			{ --i; this.isLeap = true; temp = leapDays(this.year); }
		else
			{ temp = monthDays(this.year, i); }
		//解除闰月
		if(this.isLeap==true && i==(leap+1)) this.isLeap = false

		offset -= temp
		if(this.isLeap == false) this.monCyl ++
	}
	if(offset==0 && leap>0 && i==leap+1)
	if(this.isLeap)
		{ this.isLeap = false; }
	else
		{ this.isLeap = true; --i; --this.monCyl;}

	if(offset<0){ offset += temp; --i; --this.monCyl; }

	this.month = i;
	this.day = offset + 1;
}
function solarDays(y,m) {//传回公历 y年某m+1月的天数
	if(m==1)
		return(((y%4 == 0) && (y%100 != 0) || (y%400 == 0))? 29: 28);
	else
		return(solarMonth[m]);
}
function cyclical(num) {//传入 offset 传回干支, 0=甲子
	return(Gan[num%10]+Zhi[num%12]);
}
function calElement(sYear,sMonth,sDay,week,lYear,lMonth,lDay,isLeap,cYear,cMonth,cDay) {//月历属性
	this.isToday    = false;
	//公历
	this.sYear      = sYear;
	this.sMonth     = sMonth;
	this.sDay       = sDay;
	this.week       = week;
	//农历
	this.lYear      = lYear;
	this.lMonth     = lMonth;
	this.lDay       = lDay;
	this.isLeap     = isLeap;
	//干支
	this.cYear      = cYear;
	this.cMonth     = cMonth;
	this.cDay       = cDay;

	this.color      = '';

	this.lunarFestival = ''; //农历节日
	this.solarFestival = ''; //公历节日
	this.solarTerms    = ''; //节气
}
function sTerm(y,n) {//某年的第n个节气为几日(从0小寒起算)
	var offDate = new Date( ( 31556925974.7*(y-1900) + sTermInfo[n]*60000  ) + Date.UTC(1900,0,6,2,5) );
	return(offDate.getUTCDate());
}
function calendar(y,m) {//传回月历物件 (y年,m+1月)
	var sDObj, lDObj, lY, lM, lD=1, lL, lX=0, tmp1, tmp2
	var lDPOS = new Array(3)
	var n = 0
	var firstLM = 0

	sDObj = new Date(y,m,1)            //当月一日日期
	this.length    = solarDays(y,m)    //公历当月天数
	this.firstWeek = sDObj.getDay()    //公历当月1日星期几

	for(var i=0;i<this.length;i++) {
		if(lD>lX) {
			sDObj = new Date(y,m,i+1)    //当月一日日期
			lDObj = new Lunar(sDObj)     //农历
			lY    = lDObj.year           //农历年
			lM    = lDObj.month          //农历月
			lD    = lDObj.day            //农历日
			lL    = lDObj.isLeap         //农历是否闰月
			lX    = lL? leapDays(lY): monthDays(lY,lM) //农历当月最後一天

			if(n==0) firstLM = lM
			lDPOS[n++] = i-lD+1
		}
		this[i] = new calElement(y, m+1, i+1, nStr1[(i+this.firstWeek)%7],
			lY, lM, lD++, lL,
			cyclical(lDObj.yearCyl) ,cyclical(lDObj.monCyl), cyclical(lDObj.dayCyl++))
		if((i+this.firstWeek)%7==0)   this[i].color = 'red'  //周日颜色
		if((i+this.firstWeek)%14==13) this[i].color = 'red'  //周休二日颜色
	}
	//节气
	tmp1=sTerm(y,m*2  )-1;
	tmp2=sTerm(y,m*2+1)-1;
	this[tmp1].solarTerms = solarTerm[m*2];
	this[tmp2].solarTerms = solarTerm[m*2+1];
	if(m==3) this[tmp1].color = 'red'; //清明颜色
	for(i in sFtv)//公历节日
		if(sFtv[i].match(/^(\d{2})(\d{2})([\s\*])(.+)$/))
			if(Number(RegExp.$1)==(m+1)) {
				this[Number(RegExp.$2)-1].solarFestival += RegExp.$4 + ' ';
				if(RegExp.$3=='*') this[Number(RegExp.$2)-1].color = 'red';
			}
	for(i in wFtv)//月周节日
		if(wFtv[i].match(/^(\d{2})(\d)(\d)([\s\*])(.+)$/))
			if(Number(RegExp.$1)==(m+1)){
				tmp1=Number(RegExp.$2);
				tmp2=Number(RegExp.$3);
				this[((this.firstWeek>tmp2)?7:0) + 7*(tmp1-1) + tmp2 - this.firstWeek].solarFestival += RegExp.$5 + ' ';
			}
	for(i in lFtv)//农历节日
		if(lFtv[i].match(/^(\d{2})(.{2})([\s\*])(.+)$/)) {
			tmp1=Number(RegExp.$1)-firstLM;
			if(tmp1==-11) tmp1=1;
			if(tmp1 >=0 && tmp1<n) {
				tmp2 = lDPOS[tmp1] + Number(RegExp.$2) -1;
				if( tmp2 >= 0 && tmp2<this.length) {
					this[tmp2].lunarFestival += RegExp.$4 + ' ';
					if(RegExp.$3=='*') this[tmp2].color = 'red';
				}
			}
		}
	if((this.firstWeek+12)%7==5) this[12].solarFestival += '黑色星期五 ';//黑色星期五
	if(y==tY && m==tM) this[tD-1].isToday = true;//今日
}
function cDay(d){//中文日期
	var s;
	switch (d) {
		case 10: s = '初十'; break;
		case 20: s = '二十'; break;
		case 30: s = '三十'; break;
		default:
			s = nStr2[Math.floor(d/10)];
			s += nStr1[d%10];
	}
	return(s);
}
function DateWriter() {
	iniCal();
	var s,sT,sF,lF,lM;
	d = tD - 1;
	sT = ' ' + cld[d].solarTerms;
	sF = ' ' + cld[d].solarFestival;
	lF = ' ' + cld[d].lunarFestival;
	lM = (cld[d].isLeap?'闰':'') + lmonthName[cld[d].lMonth] + '月' + (monthDays(cld[d].lYear,cld[d].lMonth)==29?'小':'大');
	s = cld[d].sYear + '年' + cld[d].sMonth + '月 ' +
		cld[d].cYear + '年 <font color="0099ff">' + lM + ' ' + cDay(cld[d].lDay) +
		'</font><br><font color="#339900">'+ sT + sF + lF + '</font>';
	return(s);
}
function GetFDayWeek(o){
	var d = new Date(o.getYear(),o.getMonth(),1)
	return(d.getDay())
}
function GetLastDate(o){
	var d = new Date(o.getYear(),o.getMonth(),1)
	d.setMonth(d.getMonth()+1)
	d.setDate(0)
	return(d.getDate())
}
function iniDateArr(o){
	for(i=0;i<35;i++)nDateArr[i]="";
	j = GetFDayWeek(o)
	for(i=1;i<=GetLastDate(o);i++){
		if(j >= 35)j=0;
		nDateArr[j] = i;
		j++;
	}
}

function DrawCal(o){
	iniDateArr(o)
	var strCal = "<table border=0><tr><td>日</td><td>一</td><td>二</td><td>三</td><td>四</td><td>五</td><td>六</td></tr><tr>"
	for(i=0;i<35;i++){
		if(nDateArr[i] == o.getDate())strCal = strCal + "<td class=toDayTd>" + nDateArr[i] + "</td>";
		else if(nDateArr[i] =="")strCal = strCal + "<td></td>";
		else strCal = strCal + "<td><input type=button class=dateInput value=\"" + nDateArr[i] + "\" onClick=\"ChangeDate('d'," + nDateArr[i] + ")\"></td>";
		if(((i+1)%7)==0){
			strCal = strCal + "</tr>";
			if(i<34)strCal = strCal + "<tr>";
		}
	}
	strCal = strCal + "</table>";
	var objCalDiv = document.getElementById("calDiv");
	var objCalDateDiv = document.getElementById("calDateDiv");
	objCalDiv.innerHTML = strCal;
	objCalDateDiv.innerHTML = DateWriter();
	WorkWeek();
}

function ChangeDate(dateType,chDate){
	if(dateType == "y") nDate.setFullYear(nDate.getFullYear() + chDate);
	else if(dateType == "m") nDate.setMonth(nDate.getMonth() + chDate);
	else if(dateType == "d") nDate.setDate(chDate);
	DrawCal(nDate);
}
function DrawTodayCal(){
	nDate = new Date(nToDay.getFullYear(),nToDay.getMonth(),nToDay.getDate());
	DrawCal(nDate);
}
function WorkWeek(){
	var a,b
	a = Math.ceil(((nDate-nWorkDay)/1000/60/60/24)/7);
	if(a<=0||a>22)b = "第00周";
	else if(a<10)b = "第0" + a + "周";
	else b = "第" + a + "周";
	document.getElementById("workWeek").innerHTML = b;
}
DrawCal(nDate)