var yuanDay = "";
var weekDay = "";
var lunarDay ="";
var lDObj, lY, lM, lD=1, lL, lX=0, tmp1, tmp2
var cY,cM,cD
/***************************************************************************
                                  日期资料
*****************************************************************************/
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 nStr3 = new Array('一','二','三','四','五','六','七','八','九','十','十一','十二')
var monthName = new Array("JAN","FEB","MAR","APR","MAY","JUN","JUL","AUG","SEP","OCT","NOV","DEC");
//国历节日 *表示放假日
var sFtv = new Array(
"0101*元旦节",
"0214 情人节",
"0305 学雷锋纪念日",
"0308 妇女节",
"0312 植树节",
"0315 消费者权益日",
"0401 愚人节",
"0407 世界卫生日",
"0422 世界地球日",
"0501*劳动节",
"0502*劳动节",
"0503*劳动节",
"0504 青年节",
"0508 世界红十字日",
"0512 汶川大地震纪念日/国际护士节",
"0515 国际家庭日",
"0517 国际电信日",
"0601 国际儿童节",
"0605 世界环境保护日",
"0606 全国爱眼日",
"0625 全国土地日",
"0626 国际禁毒日",
"0701 香港回归纪念日 中共诞辰",
"0707 抗日战争纪念日",
"0801 建军节",
"0815 抗日战争胜利纪念",
"0909 毛泽东逝世纪念",
"0908 国际扫盲日",
"0910 中国教师节", 
"0927 世界旅游日",
"0928 孔子诞辰",
"1001*国庆节",
"1002*国庆节",
"1003*国庆节",
"1006 老人节",
"1009 世界邮政日",
"1014 世界标准日",
"1016 世界粮食日",
"1024 联合国日",
"1120*彝族年",
"1121*彝族年",
"1122*彝族年",
"1112 孙中山诞辰纪念",
"1205 国际志愿人员日",
"1220 澳门回归纪念",
"1225 Christmas Day",
"1226 毛泽东诞辰纪念")

//农历节日 *表示放假日
var lFtv = new Array(
"0101*春节",
"0102*春节",
"0103*春节",
"0115 元宵节",
"0505 端午节",
"0624*火把节",
"0625*火把节",
"0626*火把节",
"0707 七夕情人节",
"0715 中元节",
"0815 中秋节",
"0909 重阳节",
"1208 腊八节",
"1224 小年",
"0100 除夕")

//某月的第几个星期几
var wFtv = new Array(
"0520 母亲节",
"0630 父亲节",
"0730 被奴役国家周",
"1144 Thanksgiving感恩节")
//星期
var xWeek = new Array("星期日", "星期一", "星期二","星期三","星期四","星期五","星期六");

/*****************************************************************************
                                      日期计算
*****************************************************************************/

//====================================== 传回农历 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])
}

//===== 某年的第n个节气为几日(从0小寒起算)
function sTerm(y,n) {
   var offDate = new Date( ( 31556925974.7*(y-1900) + sTermInfo[n]*60000  ) + Date.UTC(1900,0,6,2,5) )
   return(offDate.getUTCDate())
}

//====================== 中文日期
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);
}

var Today = new Date();
var tY = Today.getFullYear();
var tM = Today.getMonth();
var tD = Today.getDate();
var bsDate = tY+"年"+(tM +1)+"月"; 
var sColor = "#000000";
//农历
var sDObj = new Date(tY,tM,tD);
var ldObj = new Lunar(sDObj);
lY    = ldObj.year           //农历年
lM    = ldObj.month          //农历月
lD    = ldObj.day            //农历日
lD	  = Math.floor(lD);

cY = cyclical(ldObj.yearCyl);	//干支年
cM = cyclical(ldObj.monCyl);	//干支月
cD = cyclical(ldObj.dayCyl++);	//干支日

//节气
var str ="";

tmp1=sTerm(tY,tM*2  )-1
tmp2=sTerm(tY,tM*2+1)-1
if (tmp1 ==tD -1)
	str = solarTerm[tM*2]
if (tmp2 == tD -1)
    str = solarTerm[tM*2+1]

//公历节日
for(i in sFtv)
{
	if(sFtv[i].match(/^(\d{2})(\d{2})([\s\*])(.+)$/))
	{
		//日期相同
		if( Number(RegExp.$1)==(tM+1) && Number(RegExp.$2) == tD)
		{
			yuanDay = RegExp.$4 + ' ';
			if(RegExp.$3=='*') sColor = 'red';
		}
    }
}
//月周节日
for(i in wFtv)
{
    if(wFtv[i].match(/^(\d{2})(\d)(\d)([\s\*])(.+)$/))
    {
		if(Number(RegExp.$1)==(tM+1) && Number(RegExp.$2) == tD)
		{
			weekDay= RegExp.$5 + ' ';
		}
    }
}
//农历节日
for(i in lFtv)
{
    if(lFtv[i].match(/^(\d{2})(.{2})([\s\*])(.+)$/))
    {
		if (Number(RegExp.$1) == lM && Number(RegExp.$2) == lD )
		{
			lunarDay = RegExp.$4;
			if(RegExp.$3=='*') sColor = 'red';
		}
	}
 }
//星期
var tWeek = Today.getDay();
var bsWeek = xWeek[tWeek];
if (tWeek == 0)
	sColor = 'red';
if (tWeek == 6)
	sColor = 'green';

// 日历显示功能
function CAL(){
	var festival;
	var sTitColor = "#000000";
	if(yuanDay == '' && weekDay == '' && lunarDay == '')
		festival = '';
	else
		festival = '<TABLE WIDTH=100% BORDER=0 CELLPADDING=2 CELLSPACING=0 BGCOLOR="#CCFFCC"><TR><TD align=\'center\'>'+
	'<FONT COLOR=\''+ sTitColor + '\' STYLE="font-size:9pt;">'+yuanDay + ' ' + weekDay + ' ' + lunarDay+'</FONT></TD>'+
	'</TR></TABLE>';

	var s = "<table border='1'  width='120px' bordercolor='"+sTitColor+"' bgcolor='#FFFFFF'  cellpadding='2'"; 
	s += "<tr><td align='center'><b><font color='"+sTitColor+"' STYLE='font-size:9pt'>今天是：</font></td></tr>";
	s += "<tr><td align='center'><b><font color='"+sTitColor+"' STYLE='font-size:9pt'>"+bsDate+"</font><br><font face='Arial' size='5' color='"+sColor+"'>"+tD+"</font><br><font color='"+sColor+"'><span style='FONT-SIZE: 10.5pt'>"; 
	s += bsWeek+"</span><br></b></td></tr>";
	s += "<tr><td align='center'><font color='Teal' STYLE='font-size:9pt'>农历" + (ldObj.isLeap?"闰 ":" ") + nStr3[lM -1] + "月" + cDay(lD) +"日<br>【"+ Animals[(tY-4)%12]+ "年】"+str+"</font><br>";
	s += "<font color='#653240' STYLE='font-size:9pt'>" +cY+"年"+cM+"月"+cD+"日</td></tr><tr><td align='center'><font color='"+sColor+"'><b>"+ festival +"</b></font></td></tr></table>";
	document.write(s);
}