提供一款很不错的万年历查询

时间:2020-05-12 人气:0

<HTML><HEAD><TITLE>阿Q家园__又一款很不错的万年历查询</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>

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+'</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+'日
星期'+cld[d].week+'
'+ 
         '<font color="fuchsia">农历'+(cld[d].isLeap?'闰 ':' ')+cld[d].lMonth+'月 '+cld[d].lDay+'日</font>
'+ 
         '<font color="yellow">'+cld[d].cYear+'年 '+cld[d].cMonth+'月 '+cld[d].cDay + '日</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 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>万年历查询</TD></TR> 
              <TR height=*> 
                <TD align=middle><FONT id=tSave  
                  style="FONT-SIZE: 18pt; COLOR: red; FONT-FAMILY: Wingdings">公历：  
                  <Select class=input1 onchange=changeCld() name=SY>  
                    <script language=JavaScript> 
 
</script> 
                  </Select>年 <Select class=input1 onchange=changeCld() name=SM>

阴历： <Select class=input1  
                  onchange=changeLong() name=D1>  
                    <script language=JavaScript> 
 
</script> 
                  </Select>年 <Select class=input1 onchange=changeLong() name=D2>

<A onclick="pushBtm('')"  
                  href="https://m.qb5200.com/article/<a href="http://www.windstudio.net/calendar.htm" target="_blank">http://www.windstudio.net/calendar.htm</a>####">返回当前月份</A></TD></TR> 
              <TR height=28> 
                <TD align=middle width=240 bgColor=#dddddd  
                  height=28>当前时间：<FONT  
                id=Clock></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</TD> 
                <TD width=5><FONT title=上一月  
                  style="CURSOR: hand; COLOR: #ffffff" onclick="pushBtm('MU')"  
                  face=webdings>3</TD> 
                <TD><FONT id=YMBG color=#ffffff></TD> 
                <TD align=right><FONT id=GZ color=#ffffff></TD> 
                <TD align=right width=5><FONT title=下一月  
                  style="CURSOR: hand; COLOR: #ffffff" onclick="pushBtm('MD')"  
                  face=webdings>4</TD> 
                <TD align=right width=5><FONT title=下一年  
                  style="CURSOR: hand; COLOR: #ffffff" onclick="pushBtm('YD')"  
                  face=webdings>8</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>

[Ctrl+A 全选注:https://m.qb5200.com/article/如需引入外部Js需刷新才能执行]

加载全部内容