/*****************************************************************************
日期资料
0000 010010111101 1000
P0       P1       P2
P0表示当年闰月是闰大月还是闰小月
P1按位表示当年每月的大小情况(从高到低)
P2表示当年闰的是哪个月份 
*****************************************************************************/

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 monthName = new Array("JAN","FEB","MAR","APR","MAY","JUN","JUL","AUG","SEP","OCT","NOV","DEC");
var monthNong = new Array("正","正","二","三","四","五","六","七","八","九","十","十一","十二");
var yearNong = new Array('零','一','二','三','四','五','六','七','八','九');

//国历节日 *表示放假日
var sFtv = new Array(
	"0101*元旦",
	"0202 世界湿地日",
	"0207 国际声援南非日",
	"0210 国际气象节",
	"0214 情人节",
	"0301 国际海豹日",
	"0303 全国爱耳日",
	"0308 国际妇女节",
	"0312 植树节",
	"0314 国际警察日",
	"0315 国际消费者权益日",
	"0317 中国国医节",
	"0322 世界水日",
	"0323 世界气象日",
	"0330 巴勒斯坦国土日",
	"0401 愚人节",
	"0407 世界卫生日",
	"0422 世界地球日",
	"0423 世界图书和版权日",
	"0424 亚非新闻工作者日",
	"0501 国际劳动节",
	"0504 中国五四青年节",
	"0505 碘缺乏病防治日",
	"0508 世界红十字日",
	"0512 国际护士节",
	"0515 国际家庭日",
	"0517 世界电信日",
	"0518 国际博物馆日",
	"0520 全国学生营养日",
	"0523 国际牛奶日",
	"0531 世界无烟日", 
	"0601 国际儿童节",
	"0605 世界环境日",
	"0606 全国爱眼日",
	"0617 防治荒漠化和干旱日",
	"0623 国际奥林匹克日",
	"0625 全国土地日",
	"0626 国际反毒品日",
	"0701 香港回归纪念<br>中共建党日",
	"0702 国际体育记者日",
	"0707 中国人民抗日战争纪念日",
	"0710 蔷薇盛开日",
	"0711 世界人口日",
	"0801 中国建军节",
	"0808 中国男子节(爸爸节)",
	"0815 日本宣布无条件投降日",
	"0908 国际扫盲日",
	"0909 毛泽东逝世纪念",
	"0910 教师节",
	"0914 世界清洁地球日",
	"0916 国际臭氧层保护日",
	"0918 九·一八事变纪念日",
	"0920 国际爱牙日",
	"0927 世界旅游日",
	"0928 孔子诞辰",
	"1001*国庆节",
	"1004 世界动物日",
	"1006 老人节",
	"1009 世界邮政日",
	"1010 辛亥革命纪念日",
	"1016 世界粮食日",
	"1017 世界消除贫困日",
	"1022 世界传统医药日",
	"1024 联合国日",
	"1031 万圣节",
	"1107 十月社会主义革命纪念日",
	"1108 中国记者日",
	"1109 全国消防安全宣传教育日",
	"1110 世界青年节",
	"1112 孙中山诞辰纪念日",
	"1114 世界糖尿病日",
	"1117 国际大学生节<br>世界学生节",
	"1201 世界艾滋病日",
	"1203 世界残疾人日",
	"1208 国际儿童电视日",
	"1209 世界足球日",
	"1210 世界人权日",
	"1212 西安事变纪念日",
	"1213 南京大屠杀纪念日",
	"1220 澳门回归纪念",
	"1221 国际篮球日",
	"1224 平安夜",
	"1225 圣诞节",
	"1226 毛泽东诞辰纪念",
	"1229 国际生物多样性日"
);

//农历佛历节日 *表示放假日
var lFtv = new Array(
	"0101*春节、弥勒佛圣诞!",
	"0106 定光佛圣诞",
	"0115 元宵节",
	"0208 释迦牟尼佛出家",
	"0215 释迦牟尼佛涅槃",
	"0209 海空上师生日!",
	"0219 观世音菩萨圣诞",
	"0221 普贤菩萨圣诞",
	"0316 准提菩萨圣诞",
	"0304 清海上师圆寂日",
	"0408 释迦牟尼佛圣诞",
	"0505 端午节",
	"0513 伽蓝菩萨圣诞",
	"0707 七夕情人节",
	"0713 大势至菩萨圣诞",
	"0724 龙树菩萨圣诞",
	"0730 地藏菩萨圣诞",
	"0815 中秋节",
	"0822 燃灯佛圣诞",
	"0909 重阳节",
	"0919 观世音菩萨出家纪念日",
	"0930 药师琉璃光如来圣诞",
	"1005 达摩祖师圣诞",
	"1117 阿弥陀佛圣诞",
	"1208 腊八节",
	"1224 小年",
	"1229 华严菩萨圣诞",
	"1230*除夕"
);
/*****************************************************************************
某月的第几个星期几

01       3        1
P0       P1       P2
P0表示月份
P1表示第几周
P2表示星期，0为星期天 
*****************************************************************************/
var wFtv = new Array(
	"0131 马丁.路德.金纪念日",
	"0231 美国总统日",
	"0520 国际母亲节",
	"0530 全国助残日",
	"0531 维多利亚节",
	"0630 父亲节",
	"0716 合作节",
	"0730 被奴役国家周",
	"0811 公民节",
	"0911 劳动节",
	"0932 国际和平日",
	"0940 国际聋人节 世界儿童日",
	"0950 世界海事日",
	"1011 国际住房日",
	"1013 国际减轻自然灾害日",
	"1021 哥伦布日",
	"1144 感恩节"
);
/*****************************************************************************
日期计算
*****************************************************************************/
//====================================== 传回农历 y年的总天数
function lYearDays(y) {
   var i, sum = 348;
   for(i=0x8000; i>0x8; i>>=1) {
	  sum += (lunarInfo[y-1900] & i)? 1: 0;
	}
   return(sum+leapDays(y));
}
//====================================== 传回农历 y年闰月的天数
function leapDays(y) {
   if(leapMonth(y)) {
	   return((lunarInfo[y-1900] & 0x10000)? 30: 29);
   } else {
	   return 0;
   }
}
//====================================== 传回农历 y年闰哪个月 1-12 , 没闰传回 0
function leapMonth(y) {
   return (lunarInfo[y-1900] & 0xf);
}
//====================================== 传回农历 y年m月的总天数
function monthDays(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;

}
//==============================传回国历 y年某m+1月的天数
function solarDays(y,m) {
   if(m==1){
      return(((y%4 == 0) && (y%100 != 0) || (y%400 == 0))? 29: 28);
   } else {
      return(solarMonth[m]);
   }
}
//============================== 传入 offset 传回干支, 0=甲子
function cyclical(num) {
   return(Gan[num%10]+Zhi[num%12]);
}
//============================== 月历属性
function calElement(sYear,sMonth,sDay,week,lYear,lMonth,lDay,isLeap,cYear,cMonth,cDay) {
	var animal = Animals[(lYear-4)%12];
	var lLast = monthDays(lYear, lMonth);
	lYear = lYear + '';
	if(lYear.match(/(\d{1})(\d{1})(\d{1})(\d{1})/)){
		lYear=yearNong[Number(RegExp.$1)]+yearNong[Number(RegExp.$2)]+yearNong[Number(RegExp.$3)]+yearNong[Number(RegExp.$4)];
	}
	
	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.animal       = animal;
	// 当月最后一天
	this.lLast = lLast;
	
	//干支
	this.cYear      = cYear;
	this.cMonth     = cMonth;
	this.cDay       = cDay;
	
	this.color      = '';
	
	this.lunarFestival = ''; //农历节日
	this.solarFestival = ''; //国历节日
	this.solarTerms    = ''; //节气
}
//===== 某年的第n个节气为几日(从0小寒起算)
function sTerm(y,n) {
	//节气日的时差公式(时差为分钟)(从1900年大寒到现在这一节气的的分钟数）
	var offDate = new Date( ( 31556925974.7*(y-1900) + sTermInfo[n]*60000  ) + Date.UTC(1900,0,6,2,5) );
	return(offDate.getUTCDate());
}
//============================== 传回月历物件 (y年,m+1月,d日)
function calendar(y,m,d) {
	var sDObj, lDObj, lY, lM, lD=1, lL, lX=0, tmp1, tmp2, oCLD;
	sDObj1 = new Date(y,m,1);         //当月一日日期
	sDObj = new Date(y,m,d);         //当天日期
	this.length    = solarDays(y,m); //国历当月天数   
	this.firstWeek = sDObj1.getDay(); //国历当月1日星期几
	this.WeekDay = sDObj.getDay(); //国历当天星期几
	
	lDObj = new Lunar(sDObj); //农历
	lY    = lDObj.year;      //农历年
	lM    = lDObj.month;      //农历月
	lD    = lDObj.day;       //农历日
	lL    = lDObj.isLeap;     //农历是否闰月
	//sYear,sMonth,sDay,week,
	//lYear,lMonth,lDay,isLeap,
	//cYear,cMonth,cDay
	oCLD = new calElement(y, m+1, d, nStr1[(this.WeekDay)%7], lY, lM, lD++, lL, cyclical(lDObj.yearCyl) ,cyclical(lDObj.monCyl), cyclical(lDObj.dayCyl++));
	
	//节气
	tmp1=sTerm(y,m*2  );
	tmp2=sTerm(y,m*2+1);
	if((d)==tmp1) {
		oCLD.solarTerms = solarTerm[m*2];
	} else if ((d)==tmp2) {
		oCLD.solarTerms = solarTerm[m*2+1];
	}
	//国历节日
	var solarFestival = [];
	for(i in sFtv){
		if(sFtv[i].match(/^(\d{2})(\d{2})([\s\*])(.+)$/)){
			if(Number(RegExp.$1)==(m+1)&& Number(RegExp.$2)==(d)) {
				solarFestival.push(RegExp.$4);
			}
		}
	}
	
	//月周节日
	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);
				if(tmp1<5){
					if(d == ((this.firstWeek > tmp2 ? 7 : 0) + 7 * (tmp1 - 1) + tmp2 - this.firstWeek + 1)){
						solarFestival.push(RegExp.$5);
					}
				} else {
					tmp1 -= 5;
					tmp3 = (this.firstWeek + this.length - 1) %7; //当月最后一天星期?
					if(d == (this.length - tmp3 - 7 * tmp1 + tmp2 - (tmp2 > tmp3 ? 7 : 0))){
						solarFestival.push(RegExp.$5);
					}
					//this[this.length - tmp3 - 7*tmp1 + tmp2 - (tmp2>tmp3?7:0) - 1 ].solarFestival += RegExp.$5 + ' ';
				}
				if ((d)==(((this.firstWeek>tmp2)?7:0) + 7*(tmp1-1) + tmp2 - this.firstWeek)){
					//solarFestival.push(RegExp.$5);
				}
			}
		}
	}
	
	//农历节日
	var lunarFestival = [];
	for(i in lFtv){
		if(lFtv[i].match(/^(\d{2})(\d{2})([\s\*])(.+)$/)){
			if(Number(RegExp.$1)==(oCLD.lMonth)&& (Number(RegExp.$2)==(oCLD.lDay) || (Number(RegExp.$2) > oCLD.lDay && oCLD.lDay == oCLD.lLast))) {
				lunarFestival.push(RegExp.$4);;
			}
		}
	}
	
	//黑色星期五
	if((this.firstWeek+12)%7==5 && (d)==12){
		solarFestival.push('黑色星期五');
	}
	
	oCLD.solarFestival = solarFestival.join(' ');
	oCLD.lunarFestival = lunarFestival.join(' ');
	return oCLD;
}

//====================== 中文日期
function cDay(d){
   var s;
   switch (d) {
      case 10:
         s = '初十'; break;
      case 20:
         s = '二十'; break;
         break;
      case 30:
         s = '三十'; break;
         break;
      default :
         s = nStr2[Math.floor(d/10)];
         s += nStr1[d%10];
   }
   return(s);
}