万年历源代码

HTMLHEADTITLE万年历查询/TITLEMETAcontent=农历;阳历;月历;节日;时区;节气;八字;干支;生肖;gregoriansolar;chineselunar;calendar;name=keywordsMETAcontent=Allname=robotsMETAcontent=gregoriansolarcalendarandchineselunarcalendarname=descriptionMETAhttp-equiv=Content-Typecontent=text/html;charset=gb2312styletype=text/cssp{fONT-FAMILY:宋体;FONT-SIZE:9pt;line-height:12pt:color:#000000}TD{fONT-FAMILY:宋体,simsun;FONT-SIZE:9pt}a:link{color:#000000;text-decoration:none}a:visited{COLOR:#000000;TEXT-DECORATION:none}a:active{color:green;text-decoration:none}a:hover{color:red;text-decoration:underline}/styleSCRIPTlanguage=JavaScript!--/*****************************************************************************日期资料*****************************************************************************/varlunarInfo=newArray(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,0x0a5b0,0x14573,0x052b0,0x0a9a8,0x0e950,0x06aa0,0x0aea6,0x0ab50,0x04b60,0x0aae4,0x0a570,0x05260,0x0f263,0x0d950,0x05b57,0x056a0,0x096d0,0x04dd5,0x04ad0,0x0a4d0,0x0d4d4,0x0d250,0x0d558,0x0b540,0x0b6a0,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,0x14b63);varsolarMonth=newArray(31,28,31,30,31,30,31,31,30,31,30,31);varGan=newArray(甲,乙,丙,丁,戊,己,庚,辛,壬,癸);varZhi=newArray(子,丑,寅,卯,辰,巳,午,未,申,酉,戌,亥);varAnimals=newArray(鼠,牛,虎,兔,龙,蛇,马,羊,猴,鸡,狗,猪);varsolarTerm=newArray(小寒,大寒,立春,雨水,惊蛰,春分,清明,谷雨,立夏,小满,芒种,夏至,小暑,大暑,立秋,处暑,白露,秋分,寒露,霜降,立冬,小雪,大雪,冬至);varsTermInfo=newArray(0,21208,42467,63836,85337,107014,128867,150921,173149,195551,218072,240693,263343,285989,308563,331033,353350,375494,397447,419210,440795,462224,483532,504758);varnStr1=newArray('日','一','二','三','四','五','六','七','八','九','十');varnStr2=newArray('初','十','廿','卅','□');varmonthName=newArray(JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC);//国历节日*表示放假日varsFtv=newArray(0101*元旦节,0202世界湿地日,0210国际气象节,0214情人节,0301国际海豹日,0303全国爱耳日,0305学雷锋纪念日,0308妇女节,0312植树节孙中山逝世纪念日,0314国际警察日,0315消费者权益日,0317中国国医节国际航海日,0321世界森林日消除种族歧视国际日世界儿歌日,0322世界水日,0323世界气象日,0324世界防治结核病日,0325全国中小学生安全教育日,0330巴勒斯坦国土日,0401愚人节全国爱国卫生运动月(四月)税收宣传月(四月),0407世界卫生日,0422世界地球日,0423世界图书和版权日,0424亚非新闻工作者日,0501*劳动节,0502*劳动节假日,0503*劳动节假日,0504青年节,0505碘缺乏病防治日,0508世界红十字日,0512国际护士节,0515国际家庭日,0517国际电信日,0518国际博物馆日,0520全国学生营养日,0523国际牛奶日,0531世界无烟日,0601国际儿童节,0605世界环境保护日,0606全国爱眼日,0617防治荒漠化和干旱日,0623国际奥林匹克日,0625全国土地日,0626国际禁毒日,0701香港回归纪念日中共诞辰世界建筑日,0702国际体育记者日,0707抗日战争纪念日,0711世界人口日,0730非洲妇女日,0801建军节,0808中国男子节(爸爸节),0815抗日战争胜利纪念,0908国际扫盲日国际新闻工作者日,0909毛泽东逝世纪念,0910中国教师节,0914世界清洁地球日,0916国际臭氧层保护日,0918九·一八事变纪念日,0920国际爱牙日,0927世界旅游日,0928孔子诞辰,1001*国庆节世界音乐日国际老人节,1002*国庆节假日国际和平与民主自由斗争日,1003*国庆节假日,1004世界动物日,1006老人节,1008全国高血压日世界视觉日,1009世界邮政日万国邮联日,1010辛亥革命纪念日世界精神卫生日,1013世界保健日国际教师节,1014世界标准日,1015国际盲人节(白手杖节),1016世界粮食日,1017世界消除贫困日,1022世界传统医药日,1024联合国日,1031世界勤俭日,1107十月社会主义革命纪念日,1108中国记者日,1109全国消防安全宣传教育日,1110世界青年节,1111国际科学与和平周(本日所属的一周),1112孙中山诞辰纪念日,1114世界糖尿病日,1117国际大学生节世界学生节,1120*彝族年,1121*彝族年世界问候日世界电视日,1122*彝族年,1129国际声援巴勒斯坦人民国际日,1201世界艾滋病日,1203世界残疾人日,1205国际经济和社会发展志愿人员日,1208国际儿童电视日,1209世界足球日,1210世界人权日,1212西安事变纪念日,1213南京大屠杀(1937年)纪念日！紧记血泪史！,1220澳门回归纪念,1221国际篮球日,1224平安夜,1225圣诞节,1226毛泽东诞辰纪念)//农历节日*表示放假日varlFtv=newArray(0101*春节,0102*初二,0103*初三,0115元宵节,0505端午节,0707七夕情人节,0715中元节,0815中秋节,0909重阳节,1208腊八节,1223小年,0100除夕)//某月的第几个星期几varwFtv=newArray(0150世界麻风日,//一月的最后一个星期日（月倒数第一个星期日）0520国际母亲节,0530全国助残日,0630父亲节,0730被奴役国家周,0932国际和平日,0940国际聋人节世界儿童日,0950世界海事日,1011国际住房日,1013国际减轻自然灾害日(减灾日),1144感恩节)/*****************************************************************************日期计算*****************************************************************************///======================================返回农历y年的总天数functionlYearDays(y){vari,sum=348;for(i=0x8000;i0x8;i=1)sum+=(lunarInfo[y-1900]&i)?1:0;return(sum+leapDays(y));}//======================================返回农历y年闰月的天数functionleapDays(y){if(leapMonth(y))return((lunarInfo[y-1900]&0x10000)?30:29);elsereturn(0);}//======================================返回农历y年闰哪个月1-12,没闰返回0functionleapMonth(y){return(lunarInfo[y-1900]&0xf);}//======================================返回农历y年m月的总天数functionmonthDays(y,m){return((lunarInfo[y-1900]&(0x10000m))?30:29);}//======================================算出农历,传入日期控件,返回农历日期控件//该控件属性有.ye