公历,农历日期

　2007-11-27 17:22:07　来源：WEB开发网　闂傚倸鍊搁崐鎼佸磹妞嬪孩顐芥慨姗嗗厳缂傛氨鎲稿鍫罕闂備礁婀遍搹搴ㄥ窗閺嶎偆涓嶆い鏍仦閻撱儵鏌ｉ弴鐐测偓鍦偓姘炬嫹

闂傚倸鍊搁崐鎼佸磹妞嬪海鐭嗗〒姘ｅ亾妤犵偛顦甸弫鎾绘偐閹绘帞鈧參姊哄Ч鍥х仼闁诲繑鑹鹃悾鐑藉蓟閵夛妇鍘甸梺瑙勵問閸犳牠銆傛總鍛婄厱閹艰揪绱曟牎闂侀潧娲ょ€氫即鐛幒妤€绠ｆ繝闈涘暙娴滈箖鏌ｉ姀鈶跺湱澹曟繝姘厵闁绘劦鍓氶悘杈ㄤ繆閹绘帞澧涚紒缁樼洴瀹曞崬螖閸愬啠鍓濈换娑樼暆婵犱胶鏁栫紓浣介哺閹瑰洤鐣烽幒鎴僵闁瑰吀鐒﹂悗鎼佹⒒娴ｇ儤鍤€闁搞倖鐗犻獮蹇涙晸閿燂拷

濠电姷鏁告慨鐑藉极閸涘﹥鍙忔い鎾卞灩缁狀垶鏌涢幇闈涙灈鐎瑰憡绻冮妵鍕箻鐎靛摜鐣奸梺纭咁潐濞茬喎顫忕紒妯肩懝闁逞屽墮宀ｈ儻顦查悡銈夋煏閸繃鍋繛宸簻鎯熼梺瀹犳〃閼冲爼宕濋敃鈧—鍐Χ閸℃鐟愰梺鐓庡暱閻栧ジ宕烘繝鍥у嵆闁靛骏绱曢崢顏堟⒑閹肩偛鍔楅柡鍛⊕缁傛帟顦寸紒杈ㄥ笚濞煎繘鍩℃担閿嬵潟闂備浇妗ㄩ悞锕傚箲閸ヮ剙鏋侀柟鍓х帛閺呮悂鏌ㄩ悤鍌涘闂傚倸鍊搁崐鎼佸磹妞嬪孩顐芥慨姗嗗厳缂傛氨鎲稿鍫罕闂備礁婀遍搹搴ㄥ窗閺嶎偆涓嶆い鏍仦閻撱儵鏌ｉ弴鐐测偓鍦偓姘炬嫹　　闂傚倸鍊搁崐鎼佸磹閻戣姤鍤勯柤鍝ユ暩娴犳氨绱撻崒娆掑厡缂侇噮鍨堕妴鍐川閺夋垹鍘洪悗骞垮劚椤︻垶宕￠幎鑺ョ厪闊洦娲栨牎闂佽瀵掗崜鐔奉潖閾忓湱纾兼俊顖氭惈椤矂姊虹拠鑼婵ǜ鍔戦崺鈧い鎺嶇閸ゎ剟鏌涢幘璺烘瀻妞ゎ偄绻愮叅妞ゅ繐瀚悗顓烆渻閵堝棙绀€闁瑰啿閰ｅ畷婊勫鐎涙ǚ鎷洪梻渚囧亞閸嬫盯鎳熼娑欐珷妞ゆ柨澧界壕鐓庮熆鐠虹尨鍔熺紒澶庢閳ь剚顔栭崰鏍€﹂柨瀣╃箚婵繂鐭堝Σ鐑芥⒑缁嬫鍎愰柟鐟版搐铻為柛鎰╁妷濡插牊绻涢崱妤冪婵炲牊锕㈠缁樻媴妞嬪簼瑕嗙紓鍌氱М閸嬫挻绻涚€涙ḿ鐭ら柛鎾跺枛瀹曟椽鍩€椤掍降浜滈柟鐑樺灥閳ь剙缍婂鎶筋敆閸曨剛鍘遍柣搴秵娴滅兘鐓鍌楀亾鐟欏嫭纾婚柛妤€鍟块锝夊磹閻曚焦鞋闂備礁鎼Λ瀵哥不閹捐钃熼柕濞炬櫆閸嬪棝鏌涚仦鍓р槈妞ゅ骏鎷�

核心提示：<html><head><body><SCRIPT language=JavaScript><!--/* 日期资料*/var lunarInfo=new Array(0x04bd8,0x04ae0,0x0a570,0x054d5,0x0d260,0x0d950,0x

<html>
<head>
<body>
<SCRIPT language=JavaScript>
<!--
/*****************************************************************************
　　　　　　　　　　　　　　　　　日期资料
*****************************************************************************/

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 sFtv = new Array(
0101*元旦,
0214 情人节,
0303 我生日,
0308 妇女节,
0312 植树节,
0315 消费者权益日,
0317 St. Patricks,
0401 愚人节,
0501 劳动节,
0504 青年节,
0512 护士节,
0512 茵生日,
0601 儿童节,
0614 Flag Day,
0701 建党节香港回归纪念,
0703 炎黄在线诞辰,
0718 托普诞辰,
0801 建军节,
0808 父亲节,
0909 毛泽东逝世纪念,
0910 教师节,
0928 孔子诞辰,
1001*国庆节,
1006 老人节,
1024 联合国日,
1111 Veterans / Remembrance Day,
1112 孙中山诞辰纪念,
1220 澳门回归纪念,
1225 Christmas Day,
1226 毛泽东诞辰纪念)

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

//某月的第几个星期几
var wFtv = new Array(
0131 Martin Luther King Day,
0231 Presidents Day,
0520 母亲节,
0530 Armed Forces Day,
0531 Victoria Day,
0716 合作节,
0730 被奴役国家周,
0811 Civic Holiday,
0911 Labor Holiday,
1021 Columbus Day,
1144 Thanksgiving)

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

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

//============================== 传回月历物件 (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 = 初十; break;
　　 case 20:
&n