找回密码
 注册
搜索
系统gho:最纯净好用系统下载站投放广告、加入VIP会员,请联系 微信:wuyouceo
查看: 680|回复: 16

绝对好用的万年历

[复制链接]
发表于 2008-5-7 20:56:15 | 显示全部楼层 |阅读模式
这应该是珊蝴虫QQ网站的万年历,但一直都未想到办法保存下来,前两天终于找到好的版本并制作成exe文件格式,添加了好看的文件图标,现在上传给大家一起分享。建议大家把它放到电脑桌面,或在桌面创建快捷方式以方便使用。
要收藏的就赶快了,珊蝴虫网站已经关闭,想看都没得看了。

预览

预览

万年历.rar

78.92 KB, 下载次数: 51, 下载积分: 无忧币 -2

万年历

发表于 2008-5-7 20:59:19 | 显示全部楼层
有沙发,不错.
回复

使用道具 举报

发表于 2008-5-7 21:00:26 | 显示全部楼层
地板,,,,坐坐,,,,,,,,,,,,,,,,,
回复

使用道具 举报

发表于 2008-5-7 21:03:24 | 显示全部楼层
2.JPG



偶的这个怎么样?
回复

使用道具 举报

发表于 2008-5-7 21:05:10 | 显示全部楼层
MS....LS..滴只有图啊
回复

使用道具 举报

发表于 2008-5-7 21:05:17 | 显示全部楼层
更强..........
回复

使用道具 举报

 楼主| 发表于 2008-5-7 21:08:18 | 显示全部楼层
楼上的也不错,信息丰富。但是给人的感觉是版面太乱,一下子找不到北,且标示的节日不够多。
回复

使用道具 举报

发表于 2008-5-7 21:11:25 | 显示全部楼层
欢迎您使用XX万年历!
    XX万年历是世界上第一款采用现代高精度天文历算算法制作的公历、农历、伊斯兰历(回历)三历对照、信息丰富、年代特长的多功能万年历。时间跨度长达4000年(起自格里历开始实行年之后的1583年,即明朝万历11年,止于公元5582年),可查询每日的公历、农历、伊斯兰历日期,节气、节假日,年月日的天干地支、节气的交节时刻、月相和朔望时刻,日月食,每时每刻月亮可见亮面比例,儒略日序、每日距今日天数、任意两个日期之间相距天数,每日的十二时柱,三伏、九九、入梅出梅日期,每日星座,世界各地时间对照,全国2600多个城镇的经纬度及这些城镇每天的日出、日落时间和昼长(日出到日落的时间长度)、日上中天时间、天亮、天黑时间和光照时间长度,月出、月落和月上中天时间, 任意时刻对应的世界时、地球力学时、地方平太阳时和真太阳时。还能以实时、定时和动画三种模式显示4000年中任意时刻太阳和月亮在本地天空中的位置以及在地球上的直射位置。可为气象、海洋、地理、地质、军事、农业、生物、历算、测绘、航空、航海、考古等领域的专业人士提供准确的数据,也可供人们在日常工作和生活中查询与日期、时间有关的多种信息。
    XX万年历与国际上著名的天体位置计算软件相比较,与中国科学院紫金山天文台编写的历年中国天文年历相比较,各种时间信息的最大误差都只有一分钟,是可以信赖的高精度万年历。
    本程序为纯绿色软件,绝无任何插件,不需安装,拷入任何一个文件夹后就可运行,运行时也不会在注册表中写入任何信息。如要删除,只需简单地删除程序文件即可。
    XX万年历2006beta2与上一版本相比,仅修正了一个小bug,并将可查询的地点扩大到全国所有的县(市)及县以上城镇(以2006年3月的行政区划为准)。本版程序仍为测试版,可以使用到2008年8月底。在到期之前,您可以任意使用、拷贝或传播,但不得对程序作任何修改或反编译,不得将程序用于商业目的。您如果拷贝或分发本程序,必须包含程序和本说明文件。在使用程序中的数据之前,请仔细阅读程序中的“帮助”信息。如果您引用本万年历的计算数据或显示信息,须注明“来源于XX万年历”。作者不对程序的准确性、可靠性、可用性作任何承诺,也不对使用程序或程序中的数据可能产生的风险或损失承担任何责任。您如果启动本程序或传播本程序,就表示您同意这一协议。
    这次与本版同时更新的还有XX万年历网络版2006,欢迎登录XXXXXXXXXXXXXXXX查询。




名字XX了,免得说是AD.
回复

使用道具 举报

发表于 2008-5-7 21:13:25 | 显示全部楼层
未命名.GIF

  1. <html>
  2. <head>
  3. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  4. <title>本地计算机时间</title>
  5. </head>
  6. <body>

  7. <SCRIPT language=JavaScript>
  8. <!--
  9. /*****************************************************************************
  10.                                    日期资料
  11. *****************************************************************************/
  12. var lunarInfo=new Array(
  13. 0x04bd8,0x04ae0,0x0a570,0x054d5,0x0d260,0x0d950,0x16554,0x056a0,0x09ad0,0x055d2,
  14. 0x04ae0,0x0a5b6,0x0a4d0,0x0d250,0x1d255,0x0b540,0x0d6a0,0x0ada2,0x095b0,0x14977,
  15. 0x04970,0x0a4b0,0x0b4b5,0x06a50,0x06d40,0x1ab54,0x02b60,0x09570,0x052f2,0x04970,
  16. 0x06566,0x0d4a0,0x0ea50,0x06e95,0x05ad0,0x02b60,0x186e3,0x092e0,0x1c8d7,0x0c950,
  17. 0x0d4a0,0x1d8a6,0x0b550,0x056a0,0x1a5b4,0x025d0,0x092d0,0x0d2b2,0x0a950,0x0b557,
  18. 0x06ca0,0x0b550,0x15355,0x04da0,0x0a5d0,0x14573,0x052d0,0x0a9a8,0x0e950,0x06aa0,
  19. 0x0aea6,0x0ab50,0x04b60,0x0aae4,0x0a570,0x05260,0x0f263,0x0d950,0x05b57,0x056a0,
  20. 0x096d0,0x04dd5,0x04ad0,0x0a4d0,0x0d4d4,0x0d250,0x0d558,0x0b540,0x0b5a0,0x195a6,
  21. 0x095b0,0x049b0,0x0a974,0x0a4b0,0x0b27a,0x06a50,0x06d40,0x0af46,0x0ab60,0x09570,
  22. 0x04af5,0x04970,0x064b0,0x074a3,0x0ea50,0x06b58,0x055c0,0x0ab60,0x096d5,0x092e0,
  23. 0x0c960,0x0d954,0x0d4a0,0x0da50,0x07552,0x056a0,0x0abb7,0x025d0,0x092d0,0x0cab5,
  24. 0x0a950,0x0b4a0,0x0baa4,0x0ad50,0x055d9,0x04ba0,0x0a5b0,0x15176,0x052b0,0x0a930,
  25. 0x07954,0x06aa0,0x0ad50,0x05b52,0x04b60,0x0a6e6,0x0a4e0,0x0d260,0x0ea65,0x0d530,
  26. 0x05aa0,0x076a3,0x096d0,0x04bd7,0x04ad0,0x0a4d0,0x1d0b6,0x0d250,0x0d520,0x0dd45,
  27. 0x0b5a0,0x056d0,0x055b2,0x049b0,0x0a577,0x0a4b0,0x0aa50,0x1b255,0x06d20,0x0ada0)
  28. var solarMonth=new Array(31,28,31,30,31,30,31,31,30,31,30,31);
  29. var Gan=new Array("甲","乙","丙","丁","戊","己","庚","辛","壬","癸");
  30. var Zhi=new Array("子","丑","寅","卯","辰","巳","午","未","申","酉","戌","亥");
  31. var Animals=new Array("鼠","牛","虎","兔","龙","蛇","马","羊","猴","鸡","狗","猪");
  32. var solarTerm = new Array("小寒","大寒","立春","雨水","惊蛰","春分","清明","谷雨","立夏","小满","芒种","夏至","小暑","大暑","立秋","处暑","白露","秋分","寒露","霜降","立冬","小雪","大雪","冬至")
  33. 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)
  34. var nStr1 = new Array('日','一','二','三','四','五','六','七','八','九','十')
  35. var nStr2 = new Array('初','十','廿','卅',' ')
  36. var monthName = new Array("JAN","FEB","MAR","APR","MAY","JUN","JUL","AUG","SEP","OCT","NOV","DEC");
  37. //国历节日 *表示放假日
  38. var sFtv = new Array(
  39. "0101*元旦",
  40. "0214 情人节",
  41. "0303 我生日",
  42. "0308 妇女节",
  43. "0312 植树节",
  44. "0315 消费者权益日",
  45. "0317 St. Patrick's",
  46. "0401 愚人节",
  47. "0501 劳动节",
  48. "0504 青年节",
  49. "0512 护士节",
  50. "0512 茵生日",
  51. "0601 儿童节",
  52. "0614 Flag Day",
  53. "0701 建党节 香港回归纪念",
  54. "0703 炎黄在线诞辰",
  55. "0718 托普诞辰",
  56. "0801 建军节",
  57. "0808 父亲节",
  58. "0909 毛泽东逝世纪念",
  59. "0910 教师节",
  60. "0928 孔子诞辰",
  61. "1001*国庆节",
  62. "1006 老人节",
  63. "1024 联合国日",
  64. "1111 Veteran's / Remembrance Day",
  65. "1112 孙中山诞辰纪念",
  66. "1220 澳门回归纪念",
  67. "1225 Christmas Day",
  68. "1226 毛泽东诞辰纪念")
  69. //农历节日 *表示放假日
  70. var lFtv = new Array(
  71. "0101*春节",
  72. "0115 元宵节",
  73. "0505 端午节",
  74. "0707 七夕情人节",
  75. "0715 中元节",
  76. "0815 中秋节",
  77. "0909 重阳节",
  78. "1208 腊八节",
  79. "1224 小年",
  80. "0100*除夕")
  81. //某月的第几个星期几
  82. var wFtv = new Array(
  83. "0131 Martin Luther King Day",
  84. "0231 President's Day",
  85. "0520 母亲节",
  86. "0530 Armed Forces Day",
  87. "0531 Victoria Day",
  88. "0716 合作节",
  89. "0730 被奴役国家周",
  90. "0811 Civic Holiday",
  91. "0911 Labor Holiday",
  92. "1021 Columbus Day",
  93. "1144 Thanksgiving")

  94. /*****************************************************************************
  95.                                       日期计算
  96. *****************************************************************************/
  97. //====================================== 传回农历 y年的总天数
  98. function lYearDays(y) {
  99.    var i, sum = 348
  100.    for(i=0x8000; i>0x8; i>>=1) sum += (lunarInfo[y-1900] & i)? 1: 0
  101.    return(sum+leapDays(y))
  102. }
  103. //====================================== 传回农历 y年闰月的天数
  104. function leapDays(y) {
  105.    if(leapMonth(y))  return((lunarInfo[y-1900] & 0x10000)? 30: 29)
  106.    else return(0)
  107. }
  108. //====================================== 传回农历 y年闰哪个月 1-12 , 没闰传回 0
  109. function leapMonth(y) {
  110.    return(lunarInfo[y-1900] & 0xf)
  111. }
  112. //====================================== 传回农历 y年m月的总天数
  113. function monthDays(y,m) {
  114.    return( (lunarInfo[y-1900] & (0x10000>>m))? 30: 29 )
  115. }
  116. //====================================== 算出农历, 传入日期物件, 传回农历日期物件
  117. //                                       该物件属性有 .year .month .day .isLeap .yearCyl .dayCyl .monCyl
  118. function Lunar(objDate) {
  119.    var i, leap=0, temp=0
  120.    var baseDate = new Date(1900,0,31)
  121.    var offset   = (objDate - baseDate)/86400000
  122.    this.dayCyl = offset + 40
  123.    this.monCyl = 14
  124.    for(i=1900; i<2050 && offset>0; i++) {
  125.       temp = lYearDays(i)
  126.       offset -= temp
  127.       this.monCyl += 12
  128.    }
  129.    if(offset<0) {
  130.       offset += temp;
  131.       i--;
  132.       this.monCyl -= 12
  133.    }
  134.    this.year = i
  135.    this.yearCyl = i-1864
  136.    leap = leapMonth(i) //闰哪个月
  137.    this.isLeap = false
  138.    for(i=1; i<13 && offset>0; i++) {
  139.       //闰月
  140.       if(leap>0 && i==(leap+1) && this.isLeap==false)
  141.          { --i; this.isLeap = true; temp = leapDays(this.year); }
  142.       else
  143.          { temp = monthDays(this.year, i); }
  144.       //解除闰月
  145.       if(this.isLeap==true && i==(leap+1)) this.isLeap = false
  146.       offset -= temp
  147.       if(this.isLeap == false) this.monCyl ++
  148.    }
  149.    if(offset==0 && leap>0 && i==leap+1)
  150.       if(this.isLeap)
  151.          { this.isLeap = false; }
  152.       else
  153.          { this.isLeap = true; --i; --this.monCyl;}
  154.    if(offset<0){ offset += temp; --i; --this.monCyl; }
  155.    this.month = i
  156.    this.day = offset + 1
  157. }
  158. //==============================传回国历 y年某m+1月的天数
  159. function solarDays(y,m) {
  160.    if(m==1)
  161.       return(((y%4 == 0) && (y%100 != 0) || (y%400 == 0))? 29: 28)
  162.    else
  163.       return(solarMonth[m])
  164. }
  165. //============================== 传入 offset 传回干支, 0=甲子
  166. function cyclical(num) {
  167.    return(Gan[num%10]+Zhi[num%12])
  168. }
  169. //============================== 月历属性
  170. function calElement(sYear,sMonth,sDay,week,lYear,lMonth,lDay,isLeap,cYear,cMonth,cDay) {
  171.       this.isToday    = false;
  172.       //国历
  173.       this.sYear      = sYear;
  174.       this.sMonth     = sMonth;
  175.       this.sDay       = sDay;
  176.       this.week       = week;
  177.       //农历
  178.       this.lYear      = lYear;
  179.       this.lMonth     = lMonth;
  180.       this.lDay       = lDay;
  181.       this.isLeap     = isLeap;
  182.       //干支
  183.       this.cYear      = cYear;
  184.       this.cMonth     = cMonth;
  185.       this.cDay       = cDay;
  186.       this.color      = '';
  187.       this.lunarFestival = ''; //农历节日
  188.       this.solarFestival = ''; //国历节日
  189.       this.solarTerms    = ''; //节气
  190. }
  191. //===== 某年的第n个节气为几日(从0小寒起算)
  192. function sTerm(y,n) {
  193.    var offDate = new Date( ( 31556925974.7*(y-1900) + sTermInfo[n]*60000  ) + Date.UTC(1900,0,6,2,5) )
  194.    return(offDate.getUTCDate())
  195. }
  196. //============================== 传回月历物件 (y年,m+1月)
  197. function calendar(y,m) {
  198.    var sDObj, lDObj, lY, lM, lD=1, lL, lX=0, tmp1, tmp2
  199.    var lDPOS = new Array(3)
  200.    var n = 0
  201.    var firstLM = 0
  202.    sDObj = new Date(y,m,1)            //当月一日日期
  203.    this.length    = solarDays(y,m)    //国历当月天数
  204.    this.firstWeek = sDObj.getDay()    //国历当月1日星期几

  205.    for(var i=0;i<this.length;i++) {
  206.       if(lD>lX) {
  207.          sDObj = new Date(y,m,i+1)    //当月一日日期
  208.          lDObj = new Lunar(sDObj)     //农历
  209.          lY    = lDObj.year           //农历年
  210.          lM    = lDObj.month          //农历月
  211.          lD    = lDObj.day            //农历日
  212.          lL    = lDObj.isLeap         //农历是否闰月
  213.          lX    = lL? leapDays(lY): monthDays(lY,lM) //农历当月最後一天
  214.          if(n==0) firstLM = lM
  215.          lDPOS[n++] = i-lD+1
  216.       }
  217.       //sYear,sMonth,sDay,week,
  218.       //lYear,lMonth,lDay,isLeap,
  219.       //cYear,cMonth,cDay
  220.       this[i] = new calElement(y, m+1, i+1, nStr1[(i+this.firstWeek)%7],
  221.                                lY, lM, lD++, lL,
  222.                                cyclical(lDObj.yearCyl) ,cyclical(lDObj.monCyl), cyclical(lDObj.dayCyl++) )

  223.       if((i+this.firstWeek)%7==0)   this[i].color = 'red'  //周日颜色
  224.       if((i+this.firstWeek)%14==13) this[i].color = 'red'  //周休二日颜色
  225.    }
  226.    //节气
  227.    tmp1=sTerm(y,m*2  )-1
  228.    tmp2=sTerm(y,m*2+1)-1
  229.    this[tmp1].solarTerms = solarTerm[m*2]
  230.    this[tmp2].solarTerms = solarTerm[m*2+1]
  231.    if(m==3) this[tmp1].color = 'red' //清明颜色
  232.    //国历节日
  233.    for(i in sFtv)
  234.       if(sFtv[i].match(/^(\d{2})(\d{2})([\s\*])(.+)$/))
  235.          if(Number(RegExp.$1)==(m+1)) {
  236.             this[Number(RegExp.$2)-1].solarFestival += RegExp.$4 + ' '
  237.             if(RegExp.$3=='*') this[Number(RegExp.$2)-1].color = 'red'
  238.          }
  239.    //月周节日
  240.    for(i in wFtv)
  241.       if(wFtv[i].match(/^(\d{2})(\d)(\d)([\s\*])(.+)$/))
  242.          if(Number(RegExp.$1)==(m+1)) {
  243.             tmp1=Number(RegExp.$2)
  244.             tmp2=Number(RegExp.$3)
  245.             this[((this.firstWeek>tmp2)?7:0) + 7*(tmp1-1) + tmp2 - this.firstWeek].solarFestival += RegExp.$5 + ' '
  246.          }
  247.    //农历节日
  248.    for(i in lFtv)
  249.       if(lFtv[i].match(/^(\d{2})(.{2})([\s\*])(.+)$/)) {
  250.          tmp1=Number(RegExp.$1)-firstLM
  251.          if(tmp1==-11) tmp1=1
  252.          if(tmp1 >=0 && tmp1<n) {
  253.             tmp2 = lDPOS[tmp1] + Number(RegExp.$2) -1
  254.             if( tmp2 >= 0 && tmp2<this.length) {
  255.                this[tmp2].lunarFestival += RegExp.$4 + ' '
  256.                if(RegExp.$3=='*') this[tmp2].color = 'red'
  257.             }
  258.          }
  259.       }
  260.    //黑色星期五
  261.    if((this.firstWeek+12)%7==5)
  262.       this[12].solarFestival += '黑色星期五 '
  263.    //今日
  264.    if(y==tY && m==tM) this[tD-1].isToday = true;
  265. }
  266. //====================== 中文日期
  267. function cDay(d){
  268.    var s;
  269.    switch (d) {
  270.       case 10:
  271.          s = '初十'; break;
  272.       case 20:
  273.          s = '二十'; break;
  274.          break;
  275.       case 30:
  276.          s = '三十'; break;
  277.          break;
  278.       default :
  279.          s = nStr2[Math.floor(d/10)];
  280.          s += nStr1[d%10];
  281.    }
  282.    return(s);
  283. }
  284. ///////////////////////////////////////////////////////////////////////////////
  285. var cld;
  286. function drawCld(SY,SM) {
  287.    var i,sD,s,size;
  288.    cld = new calendar(SY,SM);
  289.    if(SY>1874 && SY<1909) yDisplay = '光绪' + (((SY-1874)==1)?'元':SY-1874)
  290.    if(SY>1908 && SY<1912) yDisplay = '宣统' + (((SY-1908)==1)?'元':SY-1908)
  291.    if(SY>1911 && SY<1950) yDisplay = '民国' + (((SY-1911)==1)?'元':SY-1911)
  292. //   if(SY>1949) yDisplay = '共和国' + (((SY-1949)==1)?'元':SY-1949)
  293.   // GZ.innerHTML = yDisplay +'年 农历' + cyclical(SY-1900+36) + '年   【'+Animals[(SY-4)%12]+'】';
  294.    if(SY>1949) yDisplay = ''
  295.    GZ.innerHTML = yDisplay +' 农历' + cyclical(SY-1900+36) + '年   【'+Animals[(SY-4)%12]+'】';
  296.    YMBG.innerHTML = " " + SY + "<BR> " + monthName[SM];

  297.    for(i=0;i<42;i++) {
  298.       sObj=eval('SD'+ i);
  299.       lObj=eval('LD'+ i);
  300.       sObj.className = '';
  301.       sD = i - cld.firstWeek;
  302.       if(sD>-1 && sD<cld.length) { //日期内
  303.          sObj.innerHTML = sD+1;
  304.          if(cld[sD].isToday) sObj.className = 'todyaColor'; //今日颜色
  305.          sObj.style.color = cld[sD].color; //国定假日颜色
  306.          if(cld[sD].lDay==1) //显示农历月
  307.             lObj.innerHTML = '<b>'+(cld[sD].isLeap?'闰':'') + cld[sD].lMonth + '月' + (monthDays(cld[sD].lYear,cld[sD].lMonth)==29?'小':'大')+'</b>';
  308.          else //显示农历日
  309.             lObj.innerHTML = cDay(cld[sD].lDay);
  310.          s=cld[sD].lunarFestival;
  311.          if(s.length>0) { //农历节日
  312.             if(s.length>6) s = s.substr(0, 4)+'…';
  313.             s = s.fontcolor('red');
  314.          }
  315.          else { //国历节日
  316.             s=cld[sD].solarFestival;
  317.             if(s.length>0) {
  318.                size = (s.charCodeAt(0)>0 && s.charCodeAt(0)<128)?8:4;
  319.                if(s.length>size+2) s = s.substr(0, size)+'…';
  320.                s = s.fontcolor('blue');
  321.             }
  322.             else { //廿四节气
  323.                s=cld[sD].solarTerms;
  324.                if(s.length>0) s = s.fontcolor('limegreen');
  325.             }
  326.          }
  327.          if(s.length>0) lObj.innerHTML = s;
  328.       }
  329.       else { //非日期
  330.          sObj.innerHTML = '';
  331.          lObj.innerHTML = '';
  332.       }
  333.    }
  334. }
  335. function changeLong()
  336. {
  337. var y,m,ly,lm,id,im,iy,yangy,yangm,deltm,miny,tt;
  338. CLD.SY.selectedIndex=CLD.D1.selectedIndex;
  339. CLD.SM.selectedIndex=CLD.D2.selectedIndex;
  340. yangm=0;yangy=0;
  341. tt=true;
  342. while (tt)
  343. {
  344. yangm=0;yangy=0;
  345.    changeCld();
  346.      for(i=0;i<42;i++)
  347.      {
  348.         sD = i - cld.firstWeek;
  349.         if(sD>-1 && sD<cld.length)
  350.         { //日期内
  351.          if ((cld[sD].lMonth==CLD.D2.selectedIndex+1)&&(cld[sD].lYear==CLD.D1.selectedIndex+1900))
  352.          {
  353.      yangy=CLD.SY.selectedIndex+1900;  yangm=CLD.SM.selectedIndex ;
  354.      tt=false;
  355.      break;
  356.      }
  357.          }
  358.      }
  359.      if (!tt) break;
  360.   
  361.    pushBtm('MD');
  362.    changeCld();
  363. //   alert(CLD.SY.selectedIndex+" "+CLD.SM.selectedIndex);
  364.      for(i=0;i<42;i++)
  365.      {
  366.         sD = i - cld.firstWeek;
  367.         if(sD>-1 && sD<cld.length)
  368.         { //日期内
  369.          if ((cld[sD].lMonth==CLD.D2.selectedIndex+1)&&(cld[sD].lYear==CLD.D1.selectedIndex+1900))
  370.          {
  371.      yangy=CLD.SY.selectedIndex+1900;  yangm=CLD.SM.selectedIndex ;
  372.      tt=false;
  373.      break;
  374.      }
  375.          }
  376.      }
  377.    break;  
  378. }
  379. //  alert(yangy+" "+yangm);

  380. //CLD.SY.selectedIndex=yangy;//-1900;
  381. //pushBtm('YU');
  382. //pushBtm('YD');
  383. CLD.SM.selectedIndex=yangm;
  384. pushBtm('MD');
  385. pushBtm('MU');
  386.   
  387.    
  388.   
  389. }
  390. //changeLong end
  391. function changeCld() {
  392.    var y,m;
  393.    y=CLD.SY.selectedIndex+1900;
  394.    m=CLD.SM.selectedIndex;
  395.    drawCld(y,m);
  396. }
  397. function pushBtm(K) {
  398.    switch (K){
  399.       case 'YU' :
  400.          if(CLD.SY.selectedIndex>0) CLD.SY.selectedIndex--;
  401.          break;
  402.       case 'YD' :
  403.          if(CLD.SY.selectedIndex<149) CLD.SY.selectedIndex++;
  404.          break;
  405.       case 'MU' :
  406.          if(CLD.SM.selectedIndex>0) {
  407.             CLD.SM.selectedIndex--;
  408.          }
  409.          else {
  410.             CLD.SM.selectedIndex=11;
  411.             if(CLD.SY.selectedIndex>0) CLD.SY.selectedIndex--;
  412.          }
  413.          break;
  414.       case 'MD' :
  415.          if(CLD.SM.selectedIndex<11) {
  416.             CLD.SM.selectedIndex++;
  417.          }
  418.          else {
  419.             CLD.SM.selectedIndex=0;
  420.             if(CLD.SY.selectedIndex<149) CLD.SY.selectedIndex++;
  421.          }
  422.          break;
  423.       default :
  424.          CLD.SY.selectedIndex=tY-1900;
  425.          CLD.SM.selectedIndex=tM;
  426.    }
  427.    changeCld();
  428. }

  429. var Today = new Date();
  430. var tY = Today.getFullYear();
  431. var tM = Today.getMonth();
  432. var tD = Today.getDate();
  433. //////////////////////////////////////////////////////////////////////////////
  434. var width = "130";
  435. var offsetx = 2;
  436. var offsety = 16;
  437. var x = 0;
  438. var y = 0;
  439. var snow = 0;
  440. var sw = 0;
  441. var cnt = 0;
  442. var dStyle;
  443. document.onmousemove = mEvn;
  444. //显示详细日期资料
  445. function mOvr(v) {
  446.    var s,festival;
  447.    var sObj=eval('SD'+ v);
  448.    var d=sObj.innerHTML-1;
  449.       //sYear,sMonth,sDay,week,
  450.       //lYear,lMonth,lDay,isLeap,
  451.       //cYear,cMonth,cDay
  452.    if(sObj.innerHTML!='') {
  453.       sObj.style.cursor = 's-resize';
  454.       if(cld[d].solarTerms == '' && cld[d].solarFestival == '' && cld[d].lunarFestival == '')
  455.          festival = '';
  456.       else
  457.          festival = '<TABLE WIDTH=100% BORDER=0 CELLPADDING=2 CELLSPACING=0 BGCOLOR="#CCFFCC"><TR><TD>'+
  458.          '<FONT COLOR="#000000" STYLE="font-size:9pt;">'+cld[d].solarTerms + ' ' + cld[d].solarFestival + ' ' + cld[d].lunarFestival+'</FONT></TD>'+
  459.          '</TR></TABLE>';
  460.       s= '<TABLE WIDTH="130" BORDER=0 CELLPADDING="2" CELLSPACING=0 BGCOLOR="#000066"><TR><TD>' +
  461.          '<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0><TR><TD ALIGN="right"><FONT COLOR="#ffffff" STYLE="font-size:9pt;">'+
  462.          cld[d].sYear+' 年 '+cld[d].sMonth+' 月 '+cld[d].sDay+' 日<br>星期'+cld[d].week+'<br>'+
  463.          '<font color="violet">农历'+(cld[d].isLeap?'闰 ':' ')+cld[d].lMonth+' 月 '+cld[d].lDay+' 日</font><br>'+
  464.          '<font color="yellow">'+cld[d].cYear+'年 '+cld[d].cMonth+'月 '+cld[d].cDay + '日</font>'+
  465.          '</FONT></TD></TR></TABLE>'+ festival +'</TD></TR></TABLE>';

  466.       document.all["detail"].innerHTML = s;
  467.     if (snow == 0) {
  468.          dStyle.left = x+offsetx-(width/2);
  469.          dStyle.top = y+offsety;
  470.      dStyle.visibility = "visible";
  471.      snow = 1;
  472.     }
  473. }
  474. }
  475. //清除详细日期资料
  476. function mOut() {
  477. if ( cnt >= 1 ) { sw = 0 }
  478. if ( sw == 0 ) { snow = 0; dStyle.visibility = "hidden";}
  479. else cnt++;
  480. }
  481. //取得位置
  482. function mEvn() {
  483.    x=event.x;
  484.    y=event.y;
  485. if (document.body.scrollLeft)
  486.     {x=event.x+document.body.scrollLeft; y=event.y+document.body.scrollTop;}
  487. if (snow){
  488.       dStyle.left = x+offsetx-(width/2)
  489.       dStyle.top = y+offsety
  490. }
  491. }
  492. ///////////////////////////////////////////////////////////////////////////

  493. function tick() {
  494.    var today
  495.    today = new Date()
  496.    Clock.innerHTML = today.toLocaleString().replace(/(年|月)/g, "/").replace(/日/, "");
  497. //   Clock.innerHTML = TimeAdd(today.toGMTString(), CLD.TZ.value)
  498.    window.setTimeout("tick()", 1000);
  499. }
  500. function setCookie(name, value) {
  501. var today = new Date()
  502. var expires = new Date()
  503. expires.setTime(today.getTime() + 1000*60*60*24*365)
  504. document.cookie = name + "=" + escape(value) + "; expires=" + expires.toGMTString()
  505. }
  506. function getCookie(Name) {
  507.    var search = Name + "="
  508.    if(document.cookie.length > 0) {
  509.       offset = document.cookie.indexOf(search)
  510.       if(offset != -1) {
  511.          offset += search.length
  512.          end = document.cookie.indexOf(";", offset)
  513.          if(end == -1) end = document.cookie.length
  514.          return unescape(document.cookie.substring(offset, end))
  515.       }
  516.       else return ""
  517.    }
  518. }
  519. /////////////////////////////////////////////////////////
  520. function initial() {
  521.    dStyle = detail.style;
  522.    CLD.SY.selectedIndex=tY-1900;
  523.    CLD.SM.selectedIndex=tM;
  524.    drawCld(tY,tM);
  525. //   CLD.TZ.selectedIndex=getCookie("TZ");
  526. //   changeTZ();
  527.    tick();
  528. }

  529. //-->
  530. </SCRIPT>
  531. <STYLE>.todyaColor {
  532. BACKGROUND-COLOR: aqua
  533. }
  534. </STYLE>
  535. <META content="Microsoft FrontPage 6.0" name=GENERATOR></HEAD>
  536. <BODY onload=initial()>
  537. <SCRIPT language=JavaScript><!--
  538.    if(navigator.appName == "Netscape" || parseInt(navigator.appVersion) < 4)
  539.    document.write("<h1>你的浏览器无法执行此程序。</h1>此程序在 IE4 以后的版本才能执行!!")
  540. //--></SCRIPT>
  541. <DIV id=detail style="POSITION: absolute"></DIV>
  542. <FORM name=CLD>
  543. <div align="center">
  544. <TABLE width="672" align="right" height="259" bordercolordark="#CC9900" border="4" background="l11.gif">
  545.   <CENTER>
  546. <center>
  547.   <TBODY>
  548.   </center></center>
  549.   <TR>
  550.   <TD align=middle vAlign=top width="170" height="255">
  551.   <div align="center">
  552.     <center>
  553.   <TABLE BORDER=1 COLSPAN=2 width="221">
  554.   <CENTER>
  555.     <center><FONT size=2
  556.       style="FONT-SIZE: 9pt">
  557.     <td width="209">
  558.       <p align="center"><font style="font-size:10.8pt" color=RED>本地计算机时间:</FONT></FONT><BR><FONT color=#000080 face=ARIAL
  559.       id=Clock size=3 align="center"></FONT>
  560.       <P><!--时区 *表示自动调整为日光节约时间-->
  561.       </center>
  562.    </CENTER>
  563.    </TABLE>
  564.   </center>
  565.     </div>
  566.     <div align="center">
  567.       <center>
  568.       <table border=1 height="1" width="16">
  569.       <td height="1" width="255">
  570.             <table width="212" height="1"><CENTER>
  571.             <center>
  572.       <FONT id=tSave
  573.       style="COLOR: red; FONT-FAMILY: Wingdings; FONT-SIZE: 18pt"></FONT>
  574.       <td height="1" width="152"><font size="2"><FONT style="FONT-SIZE: 9pt">
  575.       <font color="#0000FF">公历</font>年</font><FONT color=#ffffff
  576.             style="FONT-SIZE: 9pt"><SELECT name=SY onchange=changeCld()
  577.             style="FONT-SIZE: 9pt">
  578.               <SCRIPT language=JavaScript><!--
  579.             for(i=1900;i<2050;i++) document.write('<option>'+i)
  580.             //--></SCRIPT>
  581.             </SELECT> </FONT>月<FONT color=#ffffff
  582.             style="FONT-SIZE: 9pt"><SELECT name=SM onchange=changeCld()
  583.             style="FONT-SIZE: 9pt">
  584.               <SCRIPT language=JavaScript><!--
  585.             for(i=1;i<13;i++) document.write('<option>'+i)
  586.             //--></SCRIPT>
  587.             </SELECT></FONT></font>
  588.       <P><font size="2"><FONT style="FONT-SIZE: 9pt"><font color="#0000FF">阴历</font>年</font><FONT color=#ffffff
  589.             style="FONT-SIZE: 9pt"><SELECT name=D1 onchange=changeLong()
  590.             style="FONT-SIZE: 9pt">
  591.               <SCRIPT language=JavaScript><!--
  592.             for(i=1900;i<2050;i++) document.write('<option>'+i)
  593.             //--></SCRIPT>
  594.             </SELECT> </FONT>月<FONT color=#ffffff
  595.             style="FONT-SIZE: 9pt"><SELECT name=D2 onchange=changeLong()
  596.             style="FONT-SIZE: 9pt">
  597.               <SCRIPT language=JavaScript><!--
  598.             for(i=1;i<13;i++) document.write('<option>'+i)
  599.             //--></SCRIPT>
  600.             </SELECT></FONT></font></P>
  601.       <div align="center" style="width: 4; height: 1">
  602.       </div>
  603.       <td width="1" align="center" height="1">
  604.       <BUTTON onclick="pushBtm('MU')"  style="FONT-SIZE: 9pt">月↑</BUTTON>
  605.       <BUTTON onclick="pushBtm('')" style="FONT-SIZE: 9pt">当月</BUTTON>
  606.       <BUTTON onclick="pushBtm('MD')"  style="FONT-SIZE: 9pt">月↓</BUTTON>
  607.       </td>
  608.         </center></center>
  609. <tr>
  610.   <CENTER>
  611.       <TD align=center vAlign=top width=152 height="1">
  612.       <BUTTON onclick="pushBtm('YU')" style="FONT-SIZE: 9pt">年↑</BUTTON>
  613.       <BUTTON onclick="pushBtm('YD')" style="FONT-SIZE: 9pt">年↓</BUTTON>
  614.       </TD>
  615.         </center>
  616.       <td colspan=2 width="46" height="1">
  617.           <p align="left"><INPUT onclick="javascript:window.close();" style="FONT-SIZE: 9pt" type=button value=关闭></p>
  618.       </td>
  619.        </table>
  620.   <CENTER>
  621.         <table border="1" width="100%" height="1" bordercolordark="#FFFFCC">
  622.         <tr>
  623.           <td width="100%" height="1"><font style="font-size:10.8pt" color=#0>  
  624.             阴历存在跨月情况,如果查找到的阴历月跨两个公历月,用<font color=blue>[月↑][月↓]</font>翻动可以找到你想要的确切日期。</font></td>
  625.         </tr>
  626.       </table>
  627.       </CENTER>
  628.       </table>
  629.       </center>
  630.     </div>
  631.     <TD align=middle width="423" height="255">
  632.       <DIV style="position: absolute; top: 31; z-index: -1; left: 270; width: 347; height: 108">
  633.         <p>
  634.         <p>
  635.         <p><FONT id=YMBG
  636.       style="COLOR: #f0f0f0; FONT-FAMILY: 'Arial Black'; FONT-SIZE: 20pt"> </FONT>
  637.       </DIV>
  638.       <div align="center">
  639.       <center>
  640.       <TABLE border=0 height="27" cellspacing="1">
  641.         <TBODY>
  642.         <TR>
  643.           <TD bgColor=#000080 colSpan=7 align="center" height="24"><FONT color=#000080 size=2
  644.             style="FONT-SIZE: 9pt">月</FONT> <FONT color=#ffffff face=宋体 id=GZ
  645.             size=4></FONT><BR></TD></TR>
  646.         <TR align=middle bgColor=#e0e0e0>
  647.           <TD width=54 height="1" align="center" bgcolor="#99CCFF"><font size="2">日</font></TD>
  648.           <TD width=54 height="1" align="center" bgcolor="#99CCFF"><font size="2">一</font></TD>
  649.           <TD width=54 height="1" align="center" bgcolor="#99CCFF"><font size="2">二</font></TD>
  650.           <TD width=50 height="1" align="center" bgcolor="#99CCFF"><font size="2">三</font></TD>
  651.           <TD width=54 height="1" align="center" bgcolor="#99CCFF"><font size="2">四</font></TD>
  652.           <TD width=54 height="1" align="center" bgcolor="#99CCFF"><font size="2">五</font></TD>
  653.           <TD width=54 height="1" align="center" bgcolor="#99CCFF"><font size="2">六</font></TD></TR>
  654.         <SCRIPT language=JavaScript><!--
  655.             var gNum
  656.             for(i=0;i<6;i++) {
  657.                document.write('<tr align=center>')
  658.                for(j=0;j<7;j++) {
  659.                   gNum = i*7+j
  660.                   document.write('<td id="GD' + gNum +'" onMouseOver="mOvr(' + gNum +')" onMouseOut="mOut()"><font id="SD' + gNum +'" size=2 face="Arial Black"')
  661.                   if(j == 0) document.write(' color=red')
  662.                   if(j == 6)
  663.                      if(i%2==1) document.write(' color=red')
  664.                         else document.write(' color=green')
  665.                   document.write(' TITLE=""> </font><br><font id="LD' + gNum + '" size=2 style="font-size:9pt"> </font></td>')
  666.                }
  667.                document.write('</tr>')
  668.             }
  669.             //--></SCRIPT>
  670.         </TBODY></TABLE>
  671.       </center>
  672.       </div>
  673.   </TD>
  674. </TR></TBODY></TABLE>
  675. </div>
  676. </FORM>  
  677. </body>
  678. </html>
复制代码
回复

使用道具 举报

发表于 2008-5-7 21:14:09 | 显示全部楼层
LZ的79K,偶的太大,1M.
回复

使用道具 举报

发表于 2008-5-7 21:16:12 | 显示全部楼层
又不是什么大不了的代码..........很早以前就有网站公开网页代码了.......偶还以为什么了不起的东西....
回复

使用道具 举报

发表于 2008-5-7 21:17:31 | 显示全部楼层
好用就好!................
回复

使用道具 举报

发表于 2008-5-7 21:23:23 | 显示全部楼层
不错不错,我留一个用用!
回复

使用道具 举报

发表于 2008-5-8 10:57:23 | 显示全部楼层
这个真的能显示晚年吗?呵呵~偶这里的好像不行!
回复

使用道具 举报

发表于 2008-5-8 13:11:05 | 显示全部楼层
感觉好像挺不错的样子
回复

使用道具 举报

发表于 2008-5-8 13:14:38 | 显示全部楼层
一晚上不见,变成二杠二星了.
回复

使用道具 举报

发表于 2008-5-8 18:08:17 | 显示全部楼层
顶一下!!!!支持!!!不错!!好!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1|闽公网安备35020302032614号 )

GMT+8, 2026-9-16 14:13

Powered by Discuz! X5.0

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表