又一款很不錯的萬年歷

2009-06-04　來源/作者：懶人圖庫　分類：時間日期　 «»

<HTML><HEAD><TITLE>又一款很不錯的萬年歷查詢</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>BODY {
	FONT-SIZE: 14px; SCROLLBAR-HIGHLIGHT-COLOR: buttonface; SCROLLBAR-SHADOW-COLOR: buttonface; COLOR: #333333; SCROLLBAR-3DLIGHT-COLOR: buttonhighlight; SCROLLBAR-TRACK-COLOR: #eeeeee; FONT-FAMILY: "Times New Roman", "宋體"; SCROLLBAR-DARKSHADOW-COLOR: buttonshadow
}
TD {
	FONT-SIZE: 14px; COLOR: #333333
}
.input1 {
	BORDER-RIGHT: #cccccc 1px solid; PADDING-RIGHT: 1px; BORDER-TOP: #cccccc 1px solid; PADDING-LEFT: 1px; FONT-SIZE: 12px; PADDING-BOTTOM: 1px; BORDER-LEFT: #cccccc 1px solid; CURSOR: text; COLOR: #333333; PADDING-TOP: 1px; BORDER-BOTTOM: #cccccc 1px solid; FONT-FAMILY: "Times New Roman", "宋體"; HEIGHT: 24px
}
</STYLE>

<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 monthName = new Array("1","2","3","4","5","6","7","8","9","10","11","12");

var sFtv = new Array(
"0101*元旦",
"0214 情人節",
"0308 婦女節",
"0312 植樹節",
"0315 消費者權益日",
"0401 愚人節",
"0501 勞動節",
"0504 青年節",
"0512 護士節",
"0601 兒童節",
"0701 建黨節 香港回歸紀念",
"0703 炎黃在線誕辰",
"0718 托普誕辰",
"0801 建軍節",
"0808 父親節",
"0909 毛澤東逝世紀念",
"0910 教師節",
"0928 孔子誕辰",
"1001*國慶節",
"1006 老人節",
"1024 聯合國日",
"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 President's Day",
"0520 母親節",
"0530 Armed Forces Day",
"0531 Victoria Day",
"0716 合作節",
"0730 被奴役國家周",
"0811 Civic Holiday",
"0911 Labor Holiday",
"1021 Columbus Day",
"1144 Thanksgiving Day")

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))
}

function leapDays(y) {
   if(leapMonth(y))  return((lunarInfo[y-1900] & 0x10000)? 30: 29)
   else return(0)
}

function leapMonth(y) {
   return(lunarInfo[y-1900] & 0xf)
}

function monthDays(y,m) {
   return( (lunarInfo[y-1900] & (0x10000>>m))? 30: 29 )
}

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) {
   if(m==1)
      return(((y%4 == 0) && (y%100 != 0) || (y%400 == 0))? 29: 28)
   else
      return(solarMonth[m])
}
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    = ''; //節氣

}

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 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:
         s = '二十'; break;
         break;
      case 30:
         s = '三十'; break;
         break;
      default :
         s = nStr2[Math.floor(d/10)];
         s += nStr1[d%10];
   }
   return(s);
}

///////////////////////////////////////////////////////////////////////////////

var cld;

function drawCld(SY,SM) {
   var i,sD,s,size;
   cld = new calendar(SY,SM);

if(SY>1874 && SY<1909) yDisplay = '光緒' + (((SY-1874)==1)?'元':SY-1874)
   if(SY>1908 && SY<1912) yDisplay = '宣統' + (((SY-1908)==1)?'元':SY-1908)
   if(SY>1911 && SY<1950) yDisplay = '民國' + (((SY-1911)==1)?'元':SY-1911)
//   if(SY>1949) yDisplay = '共和國' + (((SY-1949)==1)?'元':SY-1949)

// GZ.innerHTML = yDisplay +'年 農歷' + cyclical(SY-1900+36) + '年（'+Animals[(SY-4)%12]+'）';

if(SY>1949) yDisplay = ''

GZ.innerHTML = yDisplay +' 農歷' + cyclical(SY-1900+36) + '年（'+Animals[(SY-4)%12]+'）';

YMBG.innerHTML = SY + "年" + monthName[SM] + "月";

for(i=0;i<42;i++) {

sObj=eval('SD'+ i);
      lObj=eval('LD'+ i);

sObj.className = '';

sD = i - cld.firstWeek;

if(sD>-1 && sD<cld.length) { 
         sObj.innerHTML = sD+1;

if(cld[sD].isToday) sObj.className = 'todyaColor';

sObj.style.color = cld[sD].color;

if(cld[sD].lDay==1) 
            lObj.innerHTML = '<b>'+(cld[sD].isLeap?'閏':'') + cld[sD].lMonth + '月' + (monthDays(cld[sD].lYear,cld[sD].lMonth)==29?'小':'大')+'</b>';
         else 
            lObj.innerHTML = cDay(cld[sD].lDay);

s=cld[sD].lunarFestival;
         if(s.length>0) { 
            if(s.length>6) s = s.substr(0, 4)+'…';
            s = s.fontcolor('red');
         }
         else { //國歷節日
            s=cld[sD].solarFestival;
            if(s.length>0) {
               size = (s.charCodeAt(0)>0 && s.charCodeAt(0)<128)?8:4;
               if(s.length>size+2) s = s.substr(0, size)+'…';
               s = s.fontcolor('blue');
            }
            else { //廿四節氣
               s=cld[sD].solarTerms;
               if(s.length>0) s = s.fontcolor('limegreen');
            }
         }
         if(s.length>0) lObj.innerHTML = s;

}
      else { //非日期
         sObj.innerHTML = '';
         lObj.innerHTML = '';
      }
   }
}

//			alert(CLD.SY.selectedIndex+" "+CLD.SM.selectedIndex);

for(i=0;i<42;i++) 
		   {
		      sD = i - cld.firstWeek;
		      if(sD>-1 && sD<cld.length) 
		      { //日期內
			      if ((cld[sD].lMonth==CLD.D2.selectedIndex+1)&&(cld[sD].lYear==CLD.D1.selectedIndex+1900))
			      {
					yangy=CLD.SY.selectedIndex+1900; 	yangm=CLD.SM.selectedIndex ;
					tt=false;
					break;
					}
	      		}
		   }
			break;		   
	}
//		alert(yangy+" "+yangm);
	
//CLD.SY.selectedIndex=yangy;//-1900;
//pushBtm('YU');
//pushBtm('YD');
CLD.SM.selectedIndex=yangm; 
pushBtm('MD');
pushBtm('MU');

}
//changeLong end

function changeCld() {
   var y,m;
   y=CLD.SY.selectedIndex+1900;
   m=CLD.SM.selectedIndex;
   drawCld(y,m);
}

var Today = new Date();
var tY = Today.getFullYear();
var tM = Today.getMonth();
var tD = Today.getDate();
//////////////////////////////////////////////////////////////////////////////

var width = "130";
var offsetx = 2;
var offsety = 16;

var x = 0;
var y = 0;
var snow = 0;
var sw = 0;
var cnt = 0;

var dStyle;
document.onmousemove = mEvn;

//顯示詳細日期資料
function mOvr(v) {
   var s,festival;
   var sObj=eval('SD'+ v);
   var d=sObj.innerHTML-1;

//sYear,sMonth,sDay,week,
      //lYear,lMonth,lDay,isLeap,
      //cYear,cMonth,cDay

if(sObj.innerHTML!='') {

sObj.style.cursor = 's-resize';

if(cld[d].solarTerms == '' && cld[d].solarFestival == '' && cld[d].lunarFestival == '')
         festival = '';
      else
         festival = '<TABLE WIDTH=100% BORDER=0 CELLPADDING=4 CELLSPACING=0 BGCOLOR="#333333"><TR><TD ALIGN="RIGHT">'+
         '<FONT style="color:#FFFFFF; font-size:9pt">'+cld[d].solarTerms + ' ' + cld[d].solarFestival + ' ' + cld[d].lunarFestival+'</FONT></TD>'+
         '</TR></TABLE>';

s= '<TABLE WIDTH="140" BORDER=0 CELLPADDING="0" CELLSPACING=0 BGCOLOR="#000099"><TR><TD>' +
         '<TABLE WIDTH=100% BORDER=0 CELLPADDING=4 CELLSPACING=0><TR><TD ALIGN="RIGHT" nowrap><FONT style="color:#FFFFFF; font-size:9pt">'+
         cld[d].sYear+'年 '+cld[d].sMonth+'月 '+cld[d].sDay+'日<br>星期'+cld[d].week+'<br>'+
         '<font color="fuchsia">農歷'+(cld[d].isLeap?'閏 ':' ')+cld[d].lMonth+'月 '+cld[d].lDay+'日</font><br>'+
         '<font color="yellow">'+cld[d].cYear+'年 '+cld[d].cMonth+'月 '+cld[d].cDay + '日</font>'+
         '</FONT></TD></TR></TABLE>'+ festival +'</TD></TR></TABLE>';

document.all["detail"].innerHTML = s;

if (snow == 0) {
         dStyle.left = x+offsetx-(width/2);
         dStyle.top = y+offsety;
   		dStyle.visibility = "visible";
   		snow = 1;
   	}
	}
}

//清除詳細日期資料
function mOut() {
	if ( cnt >= 1 ) { sw = 0 }
	if ( sw == 0 )
	{ snow = 0;
	dStyle.visibility="hidden";}
	else cnt++;
}

//取得位置
function mEvn() {
   x=event.x;
   y=event.y;
	if (document.body.scrollLeft)
	   {x=event.x+document.body.scrollLeft; y=event.y+document.body.scrollTop;}
	if (snow){
      dStyle.left = x+offsetx-(width/2)
      dStyle.top = y+offsety
	}
}

///////////////////////////////////////////////////////////////////////////

function tick() {
   var today
   today = new Date()
   Clock.innerHTML = today.toLocaleString().replace(/(年|月)/g, "/").replace(/日/, "");
//   Clock.innerHTML = TimeAdd(today.toGMTString(), CLD.TZ.value)
   window.setTimeout("tick()", 1000);
}

function setCookie(name, value) {
	var today = new Date()
	var expires = new Date()
	expires.setTime(today.getTime() + 1000*60*60*24*365)
	document.cookie = name + "=" + escape(value)	+ "; expires=" + expires.toGMTString()
}

function getCookie(Name) {
   var search = Name + "="
   if(document.cookie.length > 0) {
      offset = document.cookie.indexOf(search)
      if(offset != -1) {
         offset += search.length
         end = document.cookie.indexOf(";", offset)
         if(end == -1) end = document.cookie.length
         return unescape(document.cookie.substring(offset, end))
      }
      else return ""
   }
}

/////////////////////////////////////////////////////////

function initial() {
   dStyle = detail.style;
   CLD.SY.selectedIndex=tY-1900;
   CLD.SM.selectedIndex=tM;
   drawCld(tY,tM);

//   CLD.TZ.selectedIndex=getCookie("TZ");
//   changeTZ();
   tick();
}

//-->
</SCRIPT>

<STYLE>.todyaColor {
	BACKGROUND-COLOR: #99ff00
}
</STYLE>

<META content="MSHTML 6.00.2800.1106" name=GENERATOR></HEAD>
<BODY oncontextmenu=self.event.returnValue=false bgColor=beige leftMargin=0 
topMargin=0 onload=initial()>
<TABLE height="100%" cellSpacing=0 cellPadding=0 width="100%" align=center 
border=0>
  <FORM name=CLD>
  <TBODY>
  <TR>
    <TD vAlign=center align=middle>
      <SCRIPT language=JavaScript>

</SCRIPT>

<div   class="wcoygc4"   id=detail 
      style="LEFT: 330px; WIDTH: 140px; POSITION: absolute; TOP: 199px; HEIGHT: 16px"></DIV>
      <TABLE cellSpacing=1 cellPadding=1 align=center bgColor=#000000 
        border=0><TBODY>
        <TR bgColor=#ffffff>
          <TD vAlign=top width=220>
            <TABLE height="100%" cellSpacing=0 cellPadding=4 width="100%" 
            align=center border=0>
              <TBODY>
              <TR height=28>
                <TD align=middle bgColor=#333333><FONT 
                color=white>萬年歷查詢</FONT></TD></TR>
              <TR height=*>
                <TD align=middle><FONT id=tSave 
                  style="FONT-SIZE: 18pt; COLOR: red; FONT-FAMILY: Wingdings"></FONT>公歷： 
                  <SELECT class=input1 onchange=changeCld() name=SY> 
                    <SCRIPT language=JavaScript>

</SCRIPT>
                  </SELECT>年 <SELECT class=input1 onchange=changeCld() name=SM>

<SCRIPT language=JavaScript>

</SCRIPT>
                  </SELECT>月<BR><BR><BR><A onclick="pushBtm('')" 
                  >返回當前月份</A></TD></TR>
              <TR height=28>
                <TD align=middle width=240 bgColor=#dddddd 
                  height=28>當前時間：<FONT 
                id=Clock></FONT></TD></TR></TBODY></TABLE></TD>
          <TD align=middle width=420 height=255 rowSpan=3>
            <TABLE height=28 cellSpacing=4 cellPadding=0 width="100%" 
            bgColor=#333333 border=0>
              <TBODY>
              <TR>
                <TD width=5><FONT title=上一年 
                  style="CURSOR: hand; COLOR: #ffffff" onclick="pushBtm('YU')" 
                  face=webdings>9</FONT></TD>
                <TD width=5><FONT title=上一月 
                  style="CURSOR: hand; COLOR: #ffffff" onclick="pushBtm('MU')" 
                  face=webdings>3</FONT></TD>
                <TD><FONT id=YMBG color=#ffffff></FONT></TD>
                <TD align=right><FONT id=GZ color=#ffffff></FONT></TD>
                <TD align=right width=5><FONT title=下一月 
                  style="CURSOR: hand; COLOR: #ffffff" onclick="pushBtm('MD')" 
                  face=webdings>4</FONT></TD>
                <TD align=right width=5><FONT title=下一年 
                  style="CURSOR: hand; COLOR: #ffffff" onclick="pushBtm('YD')" 
                  face=webdings>8</FONT></TD></TR></TBODY></TABLE>
            <TABLE cellSpacing=1 cellPadding=0 width="100%" bgColor=#ffffff 
            border=0>
              <TBODY>
              <TR align=middle bgColor=#dddddd>
                <TD width=60 height=24>日</TD>
                <TD width=60>一</TD>
                <TD width=60>二</TD>
                <TD width=60>三</TD>
                <TD width=60>四</TD>
                <TD width=60>五</TD>
                <TD width=60>六</TD></TR>
              <SCRIPT language=JavaScript>

</SCRIPT>

運行代碼保存代碼提示：您可以先修改部分代碼再運行，保存代碼功能在Firefox下無效。

標簽：時間日期