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*元旦",
"0202 世界湿地日",
"0207 国际声援南非日",
"0210 国际气象节",
"0214 情人节",
"0303 中国爱耳日",
"0308 妇女节",
"0312 植树节 孙中山逝世纪念日",
"0314 国际警察日",
"0315 国际消费者权益日",
"0321 世界森林日",
"0322 世界水日",
"0323 世界气象日",
"0321 世界睡眠日",
"0324 世界结核病防治日",
"0401 愚人节",
//"0405 清明",
"0407 世界卫生日",
"0420 潍坊国际风筝节",
"0422 世界地球日",
"0423 世界图书和版权日",
"0501 劳动节",
"0504 青年节",
"0505 全国碘缺乏病日",
"0508 世界红十字",
"0512 国际护士节",
"0515 国际家庭日 ",
"0517 世界电信日 ",
"0518 国际博物馆日",
"0520 全国学生营养日",
"0522 国际生物多样性日",
"0523 国际牛奶日",
"0525 健身节",
"0531 世界无烟日",
"0601 儿童节",
"0605 世界环境日",
"0606 全国爱眼日",
"0617 防治荒漠化和干旱日",
"0623 国际奥林匹克日",
"0625 全国土地日",
"0626 国际禁毒日",
"0701 中国共产党诞生日 香港回归日 国际建筑日",
"0707 中国人民抗日战争纪念日",
"0711 世界人口日",
"0801 建军节",
"0908 国际扫盲日 国际新闻工作者日",
"0910 教師节",
"0914 世界清洁地球日",
"0916 国际臭氧层保护日",
"0918 九·一八事变纪念日",
"0920 国际爱牙日",
"0927 世界旅游日",
"1001 国庆节 世界音乐日 国际老人节",
"1002 国际减轻自然灾害日",
"1004 世界动物日",
"1007 国际住房日",
"1008 全国高血压日 世界视觉日",
"1009 世界邮政日 万国邮联日",
"1010 辛亥革命纪念日 世界精神卫生日",
"1013 世界保健日 国际教师节",
"1014 世界标准日",
"1015 国际盲人节",
"1016 世界粮食日",
"1017 世界消除贫困日",
"1022 世界传统医药日",
"1024 联合国日 世界发展信息日",
"1031 世界勤俭日",
"1107 十月社会主义革命纪念日",
"1108 中国记者日",
"1109 全国消防安全宣传教育日",
"1112 孙中山诞辰纪念日",
"1114 世界糖尿病日",
"1117 国际大学生节 世界学生节",
"1121 世界电视日",
"1201 世界艾滋病日",
"1203 世界残疾人日",
"1209 世界足球日",
"1212 西安事变纪念日",
"1213 南京大屠杀(1937年)纪念日",
"1221 国际篮球日",
"1224 平安夜",
"1225 圣诞节",
"1229 国际生物多样性日",
"0106 小寒",
"0120 大寒",
"0204 立春",
"0219 雨水",
"0306 惊蛰",
"0321 春分",
"0420 谷雨",
"0506 立夏",
"0521 小满",
"0606 芒种",
"0707 小暑",
"0722 大暑",
"0807 立秋",
"0823 处暑",
"0908 白露",
"0923 秋分",
"1009 寒露",
"1024 霜降",
"1108 立冬",
"1123 小雪",
"1207 大雪",
"1222 冬至")


//農曆節日 *表示放假日
var lFtv = new Array(
"0101*春节",
"0115 元宵节",
"0303 歌舞节(壮族) 花炮节(侗族)",
"0315 三月街(白族)",
"0505*端午节 诗人节",
"0525 达努节(瑶族)",
"0606 花儿会",
"0624 火把节(黎族)",
"0707 七夕情人节",
"0718 ",
"0800 ",
"0815*中秋节",
"0909 重阳节",
"1003 ",
"1005 ",
"1208 腊八节",
"1216 ",
"1224 ",
"1230 年卅十",
"0100*除夕")

//某月的第幾個星期幾
var wFtv = new Array(
"0131 ",
"0231 ",
//"0520 母亲节",
"0530 ",
"0531 ",
"0630 父亲节",
"0716 合作节",
"0730 ",
"0811 ",
"0911 ",
"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) {

      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    = ''; //節氣

}


//======== 某年的第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 daycal(y,m,d)
{
  var sDobj,lDobj,lY,lM,lD,week, tmp1, tmp2;
  sDobj=new Date(y,m,d);
  week=sDobj.getDay()
  lDobj= new Lunar(sDobj);
  lY=lDobj.year
  lM=lDobj.month
  lD=lDobj.day
  lL=lDobj.isLeap
  this[0]=new calElement(y,m,d,nStr1[(week)%7],lY,lM,lD,lL,cyclical(lDobj.yearCyl) ,cyclical(lDobj.monCyl), cyclical(lDobj.dayCyl));
  //this[0]

     //國曆節日
   for(i in sFtv)
      if(sFtv[i].match(/^(\d{2})(\d{2})([\s\*])(.+)$/))
         if(Number(RegExp.$1)==(m+1)) {
			 	 if ((Number(RegExp.$2))==d) {
				 this[0].solarFestival += 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 ((Math.ceil(d/7)==tmp1) && (week==tmp2)) {			   	
               this[0].solarFestival += RegExp.$5 + ' ';
			}
         }


   //農曆節日
   for(i in lFtv)
      if(lFtv[i].match(/^(\d{2})(\d{2})([\s\*])(.+)$/)) {
               if(Number(RegExp.$1)==(this[0].lMonth)) {
				   //alert(this[0].lDay);
				   //alert(Number(RegExp.$2));
                   //alert(RegExp.$4);
			 	 if ((Number(RegExp.$2))==this[0].lDay) {
					 //alert("aaa")
				 this[0].lunarFestival += RegExp.$4 + ' ';					 
			 }
		   }
         }

}




//============================== 傳回月曆物件 (y年,m+1月)
function calendar(y,m) {

   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
      }

      //sYear,sMonth,sDay,week,
      //lYear,lMonth,lDay,isLeap,
      //cYear,cMonth,cDay
      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 = '初十'; 
      case 20:
         s = '二十'; 
         
      case 30:
         s = '三十'; 
         
      default :
         s = nStr2[Math.floor(d/10)];
         s += nStr1[d%10];
   }
   return(s);
}

function cMonth(d){
var s;
  s=nStr3[d];
  return(s);

}