以文本方式查看主题
- 中华农历论坛 (http://bbs.nongli.net/index.asp)
-- 历法知识 (http://bbs.nongli.net/list.asp?boardid=2)
---- 公开《电脑医生万年历》源码,献给采用同样核心代码的人们做参考 (http://bbs.nongli.net/dispbbs.asp?boardid=2&id=16589)
|
-- 作者:chwc
-- 发布时间:2009/1/6 17:09:00
-- 公开《电脑医生万年历》源码,献给采用同样核心代码的人们做参考
《献给和我采用同样核心代码的人们做参考》发出后,得到网友的支持、也很高兴有人用,因我在2008年10月前是开源的,现在只再公开2008年10月后有更新的源码,没更新的现在公开没意义等有更新后再找时间公开,注:本主题是接本论坛《献给和我采用同样核心代码的人们做参考》主题之后。 function qisiehou(y1,m1,d1){///////72候 var djt=D0(y1,m1,d1);var xs1=\'\'; if(djt<=floor(S(y1,-1,1))+3){xs1=\'鹖鴠不鳴\';} else if(djt>floor(S(y1,-1,1))+3 && djt<=floor(S(y1,-1,1))+8){xs1=\'虎始交\';} else if(djt>floor(S(y1,-1,1))+8 && djt<floor(S(y1,0,1))-1){xs1=\'荔挺出\';} else if(djt>=floor(S(y1,0,1))-1 && djt<=floor(S(y1,0,1))+3){xs1=\'蚯蚓結\';} else if(djt>floor(S(y1,0,1))+3 && djt<=floor(S(y1,0,1))+8){xs1=\'麋鹿解\';} else if(djt>floor(S(y1,0,1))+8 && djt<floor(S(y1,1,1))-1){xs1=\'水泉動\';} else if(djt>=floor(S(y1,1,1))-1 && djt<=floor(S(y1,1,1))+3) {xs1=\'雁北鄉\';} else if(djt>floor(S(y1,1,1))+3 && djt<=floor(S(y1,1,1))+8) {xs1=\'鵲始巢\';} else if(djt>floor(S(y1,1,1))+8 && djt<floor(S(y1,2,1))-1){xs1=\'鳺始鴝\';} else if(djt>=floor(S(y1,2,1))-1 && djt<=floor(S(y1,2,1))+3){xs1=\'雞始乳\';} else if(djt>floor(S(y1,2,1))+3 && djt<=floor(S(y1,2,1))+8){xs1=\'征鳥厲疾\';} else if(djt>floor(S(y1,2,1))+8 && djt<floor(S(y1,3,1))-1){xs1=\'水澤腹堅\';} else if(djt>=floor(S(y1,3,1))-1 && djt<=floor(S(y1,3,1))+3){xs1=\'東風解凍\';} else if(djt>floor(S(y1,3,1))+3 && djt<=floor(S(y1,3,1))+8){xs1=\'蟄蟲始振\';} else if(djt>floor(S(y1,3,1))+8 && djt<floor(S(y1,4,1))-1){xs1=\'魚上冰\';} else if(djt>=floor(S(y1,4,1))-1 && djt<=floor(S(y1,4,1))+3){xs1=\'獺祭魚\';} else if(djt>floor(S(y1,4,1))+3 && djt<=floor(S(y1,4,1))+8){xs1=\'候雁北\';} else if(djt>floor(S(y1,4,1))+8 && djt<floor(S(y1,5,1))-1){xs1=\'草木萌動\';} else if(djt>=floor(S(y1,5,1))-1 && djt<=floor(S(y1,5,1))+3){xs1=\'桃始華\';} else if(djt>floor(S(y1,5,1))+3 && djt<=floor(S(y1,5,1))+8){xs1=\'倉庚鳴\';} else if(djt>floor(S(y1,5,1))+8 && djt<floor(S(y1,6,1))-1){xs1=\'鷹化爲鳩\';} else if(djt>=floor(S(y1,6,1))-1 && djt<=floor(S(y1,6,1))+3){xs1=\'玄鳥至\';} else if(djt>floor(S(y1,6,1))+3 && djt<=floor(S(y1,6,1))+8){xs1=\'雷乃發聲\';} else if(djt>floor(S(y1,6,1))+8 && djt<floor(S(y1,7,1))-1){xs1=\'始電\';} else if(djt>=floor(S(y1,7,1))-1 && djt<=floor(S(y1,7,1))+3){xs1=\'桐始華\';} else if(djt>floor(S(y1,7,1))+3 && djt<=floor(S(y1,7,1))+8){xs1=\'田鼠化爲鴽\';} else if(djt>floor(S(y1,7,1))+8 && djt<floor(S(y1,8,1))-1){xs1=\'虹始見\';} else if(djt>=floor(S(y1,8,1))-1 && djt<=floor(S(y1,8,1))+3){xs1=\'萍始生\';} else if(djt>floor(S(y1,8,1))+3 && djt<=floor(S(y1,8,1))+8){xs1=\'鳴鳩拂其羽\';} else if(djt>floor(S(y1,8,1))+8 && djt<floor(S(y1,9,1))-1){xs1=\'戴勝降於桑\';} else if(djt>=floor(S(y1,9,1))-1 && djt<=floor(S(y1,9,1))+3){xs1=\'螻蟈鳴\';} else if(djt>floor(S(y1,9,1))+3 && djt<=floor(S(y1,9,1))+8){xs1=\'蚯蚓出\';} else if(djt>floor(S(y1,9,1))+8 && djt<floor(S(y1,10,1))-1){xs1=\'王瓜生\';} else if(djt>=floor(S(y1,10,1))-1 && djt<=floor(S(y1,10,1))+3){xs1=\'苦菜秀\';} else if(djt>floor(S(y1,10,1))+3 && djt<=floor(S(y1,10,1))+8){xs1=\'靡草死\';} else if(djt>floor(S(y1,10,1))+8 && djt<floor(S(y1,11,1))-1){xs1=\'麥秋至\';} else if(djt>=floor(S(y1,11,1))-1 && djt<=floor(S(y1,11,1))+3){xs1=\'螳螂生\';} else if(djt>floor(S(y1,11,1))+3 && djt<=floor(S(y1,11,1))+8){xs1=\'鵙始鳴\';} else if(djt>floor(S(y1,11,1))+8 && djt<floor(S(y1,12,1))-1){xs1=\'反舌無聲\';} else if(djt>=floor(S(y1,12,1))-1 && djt<=floor(S(y1,12,1))+3){xs1=\'鹿角解\';} else if(djt>floor(S(y1,12,1))+3 && djt<=floor(S(y1,12,1))+8){xs1=\'蜩始鳴\';} else if(djt>floor(S(y1,12,1))+8 && djt<floor(S(y1,13,1))-1){xs1=\'半夏生\';} else if(djt>=floor(S(y1,13,1))-1 && djt<=floor(S(y1,13,1))+3){xs1=\'溫風至\';} else if(djt>floor(S(y1,13,1))+3 && djt<=floor(S(y1,13,1))+8){xs1=\'蟀蟋居壁\';} else if(djt>floor(S(y1,13,1))+8 && djt<floor(S(y1,14,1))-1){xs1=\'鷹如鷙\';} else if(djt>=floor(S(y1,14,1))-1 && djt<=floor(S(y1,14,1))+3){xs1=\'腐草爲螢\';} else if(djt>floor(S(y1,14,1))+3 && djt<=floor(S(y1,14,1))+8){xs1=\'土潤溽暑\';} else if(djt>floor(S(y1,14,1))+8 && djt<floor(S(y1,15,1))-1){xs1=\'大雨時行\';} else if(djt>=floor(S(y1,15,1))-1 && djt<=floor(S(y1,15,1))+3){xs1=\'涼風至\';} else if(djt>floor(S(y1,15,1))+3 && djt<=floor(S(y1,15,1))+8){xs1=\'白露降\';} else if(djt>floor(S(y1,15,1))+8 && djt<floor(S(y1,16,1))-1){xs1=\'寒蟬鳴\';} else if(djt>=floor(S(y1,16,1))-1 && djt<=floor(S(y1,16,1))+3){xs1=\'鷹乃祭鳥\';} else if(djt>floor(S(y1,16,1))+3 && djt<=floor(S(y1,16,1))+8){xs1=\'天地始肅\';} else if(djt>floor(S(y1,16,1))+8 && djt<floor(S(y1,17,1))-1){xs1=\'禾乃登\';} else if(djt>=floor(S(y1,17,1))-1 && djt<=floor(S(y1,17,1))+3){xs1=\'鴻雁來\';} else if(djt>floor(S(y1,17,1))+3 && djt<=floor(S(y1,17,1))+8){xs1=\'玄鳥歸\';} else if(djt>floor(S(y1,17,1))+8 && djt<floor(S(y1,18,1))-1){xs1=\'群鳥養羞\';} else if(djt>=floor(S(y1,18,1))-1 && djt<=floor(S(y1,18,1))+3){xs1=\'雷乃收聲\';} else if(djt>floor(S(y1,18,1))+3 && djt<=floor(S(y1,18,1))+8){xs1=\'蟄蟲坯戶\';} else if(djt>floor(S(y1,18,1))+8 && djt<floor(S(y1,19,1))-1){xs1=\'水始涸\';} else if(djt>=floor(S(y1,19,1))-1 && djt<=floor(S(y1,19,1))+3){xs1=\'鴻雁來賓\';} else if(djt>floor(S(y1,19,1))+3 && djt<=floor(S(y1,19,1))+8){xs1=\'雀入大水爲蛤\';} else if(djt>floor(S(y1,19,1))+8 && djt<floor(S(y1,20,1))-1){xs1=\'菊有黃花\';} else if(djt>=floor(S(y1,20,1))-1 && djt<=floor(S(y1,20,1))+3){xs1=\'豺乃祭獸\';} else if(djt>floor(S(y1,20,1))+3 && djt<=floor(S(y1,20,1))+8){xs1=\'草木黃落\';} else if(djt>floor(S(y1,20,1))+8 && djt<floor(S(y1,21,1))-1){xs1=\'蟄蟲鹹俯\';} else if(djt>=floor(S(y1,21,1))-1 && djt<=floor(S(y1,21,1))+3){xs1=\'水始冰\';} else if(djt>floor(S(y1,21,1))+3 && djt<=floor(S(y1,21,1))+8){xs1=\'地始凍\';} else if(djt>floor(S(y1,21,1))+8 && djt<floor(S(y1,22,1))-1){xs1=\'雉入大水爲蜃\';} else if(djt>=floor(S(y1,22,1))-1 && djt<=floor(S(y1,22,1))+3){xs1=\'虹藏不見\';} else if(djt>floor(S(y1,22,1))+3 && djt<=floor(S(y1,22,1))+8){xs1=\'天氣騰地氣降\';} else if(djt>floor(S(y1,22,1))+8 && djt<floor(S(y1,23,1))-1){xs1=\'閉塞成冬\';} else if(djt>=floor(S(y1,23,1))-1 && djt<=floor(S(y1,23,1))+3){xs1=\'鹖鴠不鳴\';} else if(djt>floor(S(y1,23,1))+3 && djt<=floor(S(y1,23,1))+8){xs1=\'虎始交\';} else if(djt>floor(S(y1,23,1))+8 && djt<floor(S(y1,24,1))-1){xs1=\'荔挺出\';} else if(djt>=floor(S(y1,24,1))-1 && djt<=floor(S(y1,24,1))+3){xs1=\'蚯蚓結\';} else if(djt>floor(S(y1,24,1))+3 && djt<=floor(S(y1,24,1))+8){xs1=\'麋鹿解\';} else if(djt>floor(S(y1,24,1))+8 && djt<floor(S(y1,25,1))-1){xs1=\'水泉動\';} else if(djt>=floor(S(y1,25,1))-1 && djt<=floor(S(y1,25,1))+3) {xs1=\'雁北鄉\';} else if(djt>floor(S(y1,25,1))+3) {xs1=\'鵲始巢\';} return xs1; } 调用:qisiehou(y1,m1,d1)////算72候
|
-- 作者:chwc
-- 发布时间:2009/1/6 17:10:00
--
function lunDate(y,m,d,a){ //求日數,(a=1時是返回月总天数,算大小月要用到) var t=(y-1899.5)/100; var ms=floor((y-1900)*12.3685); var rpi=180/PI(); var zone=8; //時區 var f0=ang(ms,t,0,0.75933,2.172e-4,1.55e-7)+0.53058868*ms-8.37e-4*t+zone/24+0.5; var fc=0.1734-3.93e-4*t; var j0=693595+29*ms; var aa0=ang(ms,t,0.08084821133,359.2242/rpi,0.0000333/rpi,0.00000347/rpi); var ab0=ang(ms,t,7.171366127999999e-2,306.0253/rpi,-0.0107306/rpi,-0.00001236/rpi); var ac0=ang(ms,t,0.08519585128,21.2964/rpi,0.0016528/rpi,0.00000239/rpi); var ecli=0; var lunD=-1; //農暦日數 var jerD=erD(y,m,d); var jeJD=round(JD(y,m,d,20,0,0,8)*1000)/1000; ///// if(jeJD>=1410952&&jeJD<1947169){ /////-772(-850)年到619平朔 if(jeJD>=1410952&&jeJD<1565456){ var jsf=0.00269249*(y-(-721)) var zk1=floor((jeJD-1457727.915958)/29.5306); /////-722-1-16到428; var sou0=floor(1457727.915958-jsf+29.530805106*(zk1-1)+0.5); var sou1=floor(1457727.915958-jsf+29.530805106*zk1+0.5); var sou2=floor(1457727.915958-jsf+29.530805106*(zk1+1)+0.5); var mlunD=sou2 - sou1;var mlunD0=sou1 - sou0; var lunD1=jeJD-sou1+1; }else{ if(jeJD>=1565456&&jeJD<1683518){ var zk1=floor((jeJD-1565455.530851)/29.5306); /////前428年-12-26; var sou0=floor(1565455.530851+29.530805*(zk1-1)+0.5); var sou1=floor(1565455.530851+29.530805*zk1+0.5); var sou2=floor(1565455.530851+29.530805*(zk1+1)+0.5); var mlunD=sou2 - sou1;var mlunD0=sou1 - sou0; var lunD1=jeJD-sou1+1; }else{ if(jeJD>=1683518&&jeJD<1752148){ var zk1=floor((jeJD-1683489.570610)/29.5306); /////前104年-02-22起h=0.00324 var sou0=floor(1683489.570910+29.53086158*(zk1-1)+0.5); var sou1=floor(1683489.570910+29.53086158*zk1+0.5); var sou2=floor(1683489.570910+29.53086158*(zk1+1)+0.5); var mlunD=sou2 - sou1;var mlunD0=sou1 - sou0; var lunD1=jeJD-sou1+1; }else{ if(jeJD>=1752148&&jeJD<1807784){ var zk1=floor((jeJD-1752148.041079)/29.5305); /////85年-02-13起h=0.00049 var sou0=floor(1752148.041079+29.53085097*(zk1-1)+0.5); var sou1=floor(1752148.041079+29.53085097*zk1+0.5); var sou2=floor(1752148.041079+29.53085097*(zk1+1)+0.5); var mlunD=sou2 - sou1;var mlunD0=sou1 - sou0; var lunD1=jeJD-sou1+1; }else{ if(jeJD>=1807784&&jeJD<1883619){ var zk1=floor((jeJD-1807665.420323)/29.5303); /////237年-02-12起h=0.00033 var sou0=floor(1807665.420323+29.53059851*(zk1-1)+0.5); var sou1=floor(1807665.420323+29.53059851*zk1+0.5); var sou2=floor(1807665.420323+29.53059851*(zk1+1)+0.5); var mlunD=sou2 - sou1;var mlunD0=sou1 - sou0; var lunD1=jeJD-sou1+1; }else{ if(jeJD>=1883619&&jeJD<1907361){ var zk1=floor((jeJD-1883618.114100)/29.5303); /////445年-01-24起h=0.00030 var sou0=floor(1883618.114100+29.53060000*(zk1-1)+0.5); var sou1=floor(1883618.114100+29.53060000*zk1+0.5); var sou2=floor(1883618.114100+29.53060000*(zk1+1)+0.5); var mlunD=sou2 - sou1;var mlunD0=sou1 - sou0; var lunD1=jeJD-sou1+1; }else{ if(jeJD>=1907361&&jeJD<1936597){ var zk1=floor((jeJD-1907360.704700)/29.5303); /////510年-01-26起h=0.00030 var sou0=floor(1907360.704700+29.53060000*(zk1-1)+0.5); var sou1=floor(1907360.704700+29.53060000*zk1+0.5); var sou2=floor(1907360.704700+29.53060000*(zk1+1)+0.5); var mlunD=sou2 - sou1;var mlunD0=sou1 - sou0; var lunD1=jeJD-sou1+1; }else{ if(jeJD>=1936597&&jeJD<1939136){ var zk1=floor((jeJD-1936596.224900)/29.5303); /////590年-02-10起h=0.01010 var sou0=floor(1936596.224900+29.53060000*(zk1-1)+0.5); var sou1=floor(1936596.224900+29.53060000*zk1+0.5); var sou2=floor(1936596.224900+29.53060000*(zk1+1)+0.5); var mlunD=sou2 - sou1;var mlunD0=sou1 - sou0; var lunD1=jeJD-sou1+1; }else{ if(jeJD>=1939136&&jeJD<1947169){ var zk1=floor((jeJD-1939135.675300)/29.5303); /////597年-02-10起h=0.00890 var sou0=floor(1939135.675300+29.53060000*(zk1-1)+0.5); var sou1=floor(1939135.675300+29.53060000*zk1+0.5); var sou2=floor(1939135.675300+29.53060000*(zk1+1)+0.5); var mlunD=sou2 - sou1;var mlunD0=sou1 - sou0; var lunD1=jeJD-sou1+1; }else{ lunD1=\'\';};};};};};};};};}; if(lunD1>mlunD){ lunD1 = 1; } if(mlunD0==29&&lunD1<1){ lunD1 = 29; } if(mlunD0==30&&lunD1<1){ lunD1 = lunD1+=30; } }else{ lunD1=\'\'; for(var k=-1;k<=13;k+=0.5){ //k=整數為朔,k=半整數為望 var aa=aa0+0.507984293*k; var aa2=aa0+0.507984293*(k+1); var ab=ab0+6.73377553*k; var ab2=ab0+6.73377553*(k+1); var ac=ac0+6.818486628*k; var ac2=ac0+6.818486628*(k+1); var f1=f0+1.53058868*k+fc*sin(aa)-0.4068*sin(ab)+0.0021*sin(2*aa)+0.0161*sin(2*ab)+0.0104*sin(2*ac)-0.0074*sin(aa-ab)-0.0051*sin(aa+ab); var f12=f0+1.53058868*(k+1)+fc*sin(aa2)-0.4068*sin(ab2)+0.0021*sin(2*aa2)+0.0161*sin(2*ab2)+0.0104*sin(2*ac2)-0.0074*sin(aa2-ab2)-0.0051*sin(aa2+ab2); var j=j0+28*k+f1; //朔或望的等效標準天數及時刻 var j2=j0+28*(k+1)+f12; //下月朔的等效標準天數及時刻 var kk=souj(ms+floor(k)+15819); // var lunD0=jerD-(floor(j)+kk); //當前日距朔日的差值 var kk2=souj(ms+floor(k)+15819+1); // var lunD03=floor(j)+kk; //當前月朔日的值 var lunD02=floor(j2)+kk2; //下月朔日的值 if(k==floor(k)&&lunD0>=0&&lunD0<=29){ lunD=lunD0+1; var syd023=lunD02-lunD03; ///下月朔日的值-當前月朔日的值;算大小月 } } } var v=lunD; //返回值 if(jeJD>=1410952&&jeJD<1947169){ v=lunD1; } if(a==1){ if(jeJD>=1410952&&jeJD<1947169){ syd023=mlunD; } return(syd023) }else{ return(v+ecli*100) }} 日数调用:lunDate(y1,m1,d1);月总天数调用:lunDate(y1,m1,d1,1);////農曆月大小。 function lundsMon(y,m,d){/////月大小 var a96=lunDate(y,m,d,1);/////月总天数调用 var dszm=\'\'; /////農曆月大或小。 if(a96==30){dszm=\'大\' }else{dszm=\'小\' } return dszm; } 调用:dasao=lundsMon(y1,m1,d1);////////計算農曆月大小。
|
-- 作者:chwc
-- 发布时间:2009/1/10 12:31:00
--
纠错:“调用:dasao=lundsMon(y1,m1,d1);////////計算農曆月大小。” 应为:“调用:dasao=lundsMon(y1,m1,d1,1);////////計算農曆月大小。”
|
-- 作者:chwc
-- 发布时间:2009/1/12 9:25:00
--
//////公暦節日 function sFtvl(y,m,d,a){ var sFtv=new Array( "000099990101#元旦(公暦)", "191399990101*", "000099990214 情人節", "191000000308 婦女節", "197999990312 植樹節", "000099990315 消費者權益日", "156499990401 愚人節", "193899990420 祖沖之誕辰日", "000099990501*勞動節", "195099990504#青年節", "000099990512 護士節", "192599990601 兒童節", "192199990701 中共誕辰", "199799990701 、香港回歸日", "197399990720 李小龍逝紀念日", "192799990801 建軍節", "000099990909 毛澤東逝紀念日", "198599990910 教師節", "-55099990928 孔子誕辰紀念日", "194999991001*國慶節", "000099991006 老人節", "000099991024 聯合國日", "000099991031 萬聖節[西方鬼節]", "186699991112 孫中山誕辰紀念日", "194099991127 李小龍誕辰紀念日", "199999991220 澳門回歸日", "000199991224#平安夜[西方]", "000199991225#聖誕節[西方]", "189399991226 毛澤東誕紀念日"); var str=\'\';var stra=\'\';var strb=\'\'; //公暦節日 for(i in sFtv){ if(sFtv[i].substring(0,4)<=y && (y-2)<sFtv[i].substring(4,8) && parseFloat(sFtv[i].substring(8,12))==100*m+d||sFtv[i].substring(0,4)==0000 && (y-2)<sFtv[i].substring(4,8) && parseFloat(sFtv[i].substring(8,12))==100*m+d) str+=sFtv[i].substring(13,100); } if(a==1){ for(i in sFtv){ if(sFtv[i].substring(0,4)<=y && (y-2)<sFtv[i].substring(4,8) && parseFloat(sFtv[i].substring(8,12))==100*m+d||sFtv[i].substring(0,4)==0000 && (y-2)<sFtv[i].substring(4,8) && parseFloat(sFtv[i].substring(8,12))==100*m+d) strb=sFtv[i].substring(12,13); } return strb; }else{ return str+stra; }}
|
-- 作者:chwc
-- 发布时间:2009/4/4 20:02:00
--
//////公暦節日 function sFtvl(y,m,d,a){ var sFtv=new Array( "000099990101#元旦(公暦)", "191319500101*,中華民國開國紀念日", "195099990101*", "000099990214 情人節(羅馬)", "191000000308 婦女節", "197999990312 植樹節", "000099990315 消費者權益日", "200999990328 中國西藏農奴解放日", "156499990401 愚人節", "193899990420 祖沖之誕辰日", "000099990501*勞動節", "195099990504#青年節", "000099990512 護士節", "192599990601 兒童節", "192199990701 中國共產黨成立紀念日", "199799990701 、香港回歸日", "197399990720 李小龍逝紀念日", "192799990801 建軍節", "000099990909 毛澤東逝紀念日", "198599990910 教師節", "-55099990928 孔子誕辰紀念日", "194919501001*中華人民共和國成立", "195099991001*中華人民共和國國慶節", "000099991006 老人節", "191319491010*中華民國國慶日", "000099991024 聯合國日", "000099991031 萬聖節[西方鬼節]", "186699991112 孫中山誕辰紀念日", "194099991127 李小龍誕辰紀念日", "199999991220 澳門回歸日", "000199991224#平安夜[西方]", "000199991225#聖誕節[西方]", "189399991226 毛澤東誕紀念日"); var str=\'\';var stra=\'\';var strb=\'\'; //公暦節日 for(i in sFtv){ if(sFtv[i].substring(0,4)<=y && y<sFtv[i].substring(4,8) && parseFloat(sFtv[i].substring(8,12))==100*m+d||sFtv[i].substring(0,4)==0000 && (y-2)<sFtv[i].substring(4,8) && parseFloat(sFtv[i].substring(8,12))==100*m+d) str+=sFtv[i].substring(13,100); } if(a==1){ for(i in sFtv){ if(sFtv[i].substring(0,4)<=y && y<sFtv[i].substring(4,8) && parseFloat(sFtv[i].substring(8,12))==100*m+d||sFtv[i].substring(0,4)==0000 && (y-2)<sFtv[i].substring(4,8) && parseFloat(sFtv[i].substring(8,12))==100*m+d) strb=sFtv[i].substring(12,13); } return strb; }else{ return str+stra; }}
|
-- 作者:chwc
-- 发布时间:2009/4/11 7:59:00
--
////--月曆部份年號紀年-||开始用年//开始用月-//已用几年-//朝代,帝号/帝王-/年号// function nianHao(y,m){ var nh=new Array( //各朝代或分裂時期其中之一政權的年號,數字後無漢字的表示該朝當年滅亡以后不顯示 "-26970000黃帝 ", "-20690000[夏]禹(姒文命) ", "-20240000[夏]啟(姒啟) ", "-20140000[夏]太康 ", "-19860000[夏]仲康 ", "-19720000[夏]相 ", "-19440000[夏]有穷政權 后羿 ", "-19420000[夏]有穷政權 寒浞 ", "-19040000[夏]少康 ", "-18830000[夏]杼 ", "-18660000[夏]槐 ", "-18400000[夏]芒 ", "-18220000[夏]泄 ", "-18060000[夏]不降 ", "-17470000[夏]扃 ", "-17260000[夏]廑 ", "-17050000[夏]孔甲 ", "-16740000[夏]皋 ", "-16630000[夏]發 ", "-16520000[夏]桀 ", "-15990000", "-15870000[商]哀王(子勝)外丙 ", "-15850000[商]懿王(子庸 )仲壬 ", "-15810000[商]太宗(子至)太甲 ", "-15690000[商]昭王(子絢)沃丁 ", "-15400000[商]宣王(子辯)太庚 ", "-15150000[商]敬王(子高)小甲 ", "-14980000[商]元王(子密)雍己 ", "-14850000[商]中宗(子伷)太戊 ", "-14100000[商]孝成王(子莊)仲丁 ", "-13990000[商]思王(子發)外壬 ", "-13840000[商]前平王(子整)河亶甲 ", "-13750000[商]穆王(子滕)祖乙 ", "-13560000[商]桓王(子旦)祖辛 ", "-13400000[商]僖王(子逾)沃甲 ", "-13350000[商]莊王(子新)祖丁 ", "-13260000[商]頃王(子更)南庚 ", "-13200000[商]悼王(子和)陽甲 ", "-13130000[商]世祖(子旬)盤庚 ", "-12710000[商]章王(子頌)小辛 ", "-12500000[商]惠王(子斂)小乙 ", "-12490000[商]高宗(子昭)武丁 ", "-11900000[商]後平王(子躍)祖庚 ", "-11880000[商]世宗(子載)祖甲 ", "-11550000[商]甲宗(子先)廩辛 ", "-11470000[商]康祖(子囂)庚丁 ", "-11460000[商]武祖(子瞿)武乙 ", "-11110000[商]匡王(子托)文丁 ", "-11000000[商]德王(子羨)帝乙 ", "-10740000[商]紂王(子壽)帝辛 ", "-10450000", "-10410000[西周]成王(姬誦) ", "-10190000[西周]康王(姬釗) ", "-09940000[西周]昭王(姬瑕) ", "-09750000[西周]穆王(姬滿) ", "-09210000[西周]共王(姬繄[yī]扈) ", "-08980000[西周]懿王(姬囏 [jiān]) ", "-08900000[西周]孝王(姬辟方) ", "-08840000[西周]夷王(姬燮[xiè]) ", "-08760000[西周]厲王(姬胡) ", "-08400000[西周]厲王(姬胡) [共和]", "-08260000[西周]宣王(姬靜) ", "-07800000[西周]幽王(姬宮湦[shēng]) ", "-07690000[東周]平王(姬宜臼) ", "-07180000[東周]桓王(姬林) ", "-06950000[東周]莊王(姬佗[tuó]) ", "-06800000[東周]釐王(姬胡齊) ", "-06750000[東周]惠王(姬閬[làng]) ", "-06500000[東周]襄王(姬鄭) ", "-06170000[東周]頃王(姬壬臣) ", "-06110000[東周]匡王(姬班) ", "-06050000[東周]定王(姬瑜) ", "-05840000[東周]簡王(姬夷) ", "-05700000[東周]靈王(姬泄心) ", "-05430000[東周]景王(姬貴) ", "-05190000[東周]悼王(姬猛) ", "-05180000[東周]敬王(姬匄[gài]) ", "-04740000[東周]元王(姬仁) ", "-04670000[東周]貞定王(姬介) ", "-04400000[東周]哀王(姬去疾) 思王(姬叔) ", "-04390000[東周]考王(姬嵬[wéi]) ", "-04240000[東周]威烈王(姬午) ", "-04000000[東周]安王(姬驕) ", "-03740000[東周]烈王(姬喜) ", "-03670000[東周]顯王(姬扁) ", "-03190000", "-03050000[秦]昭襄王(嬴則,又名稷) ", "-02490000[秦]孝文王(嬴柱) ", "-02480000[秦]莊襄王(嬴子楚) ", "-02450000[秦]始皇帝(嬴政) ", "-02080000[秦]二世皇帝(嬴胡亥) ", "-02050000[西漢]高帝(劉邦)", "-01930000[西漢]惠帝(劉盈)", "-01860000[西漢]高後(呂雉)", "-01780000[西漢]文帝(劉恒)", "-01620000[西漢]文帝(劉恒) 後元", "-01550000[西漢]景帝(劉啟) 前元", "-01480000[西漢]景帝(劉啟) 中元", "-01420000[西漢]景帝(劉啟) (後)後元", "-01390000[西漢]武帝(劉徹) 建元", "-01330000[西漢]武帝(劉徹) 元光", "-01270000[西漢]武帝(劉徹) 元朔", "-01210000[西漢]武帝(劉徹) 元狩", "-01150000[西漢]武帝(劉徹) 元鼎", "-01090000[西漢]武帝(劉徹) 元封", "-01030000[西漢]武帝(劉徹) 太初", "-00990000[西漢]武帝(劉徹) 天漢", "-00950000[西漢]武帝(劉徹) 太始", "-00910000[西漢]武帝(劉徹) 征和", "-00870000[西漢]武帝(劉徹) 後元", "-00850000[西漢]昭帝(劉弗陵) 始元", "-00790800[西漢]昭帝(劉弗陵) 元鳳", "-00730000[西漢]昭帝(劉弗陵) 元平", "-00720000[西漢]宣帝(劉詢) 本始", "-00680000[西漢]宣帝(劉詢) 地節", "-00640000[西漢]宣帝(劉詢) 元康", "-00600300[西漢]宣帝(劉詢) 神爵", "-00560000[西漢]宣帝(劉詢) 五鳳", "-00520000[西漢]宣帝(劉詢) 甘露", "-00480000[西漢]宣帝(劉詢) 黃龍", "-00470000[西漢]元帝(劉奭[shì]) 初元", "-00420000[西漢]元帝(劉奭[shì]) 永光", "-00370000[西漢]元帝(劉奭[shì]) 建昭", "-00320000[西漢]元帝(劉奭[shì]) 竟寧", "-00310000[西漢]成帝(劉驁[ào]) 建始", "-00270300[西漢]成帝(劉驁[ào]) 河平", "-00230000[西漢]成帝(劉驁[ào]) 陽朔", "-00190000[西漢]成帝(劉驁[ào]) 鴻嘉", "-00150000[西漢]成帝(劉驁[ào]) 永始", "-00110000[西漢]成帝(劉驁[ào]) 元延", "-00070000[西漢]成帝(劉驁[ào]) 綏和", "-00050000[西漢]哀帝(劉欣) 建平", "-00010000[西漢]哀帝(劉欣) 元壽", "000010000[西漢]平帝(劉衍) 元始", "000060000[西漢]孺子嬰(王莽攝政) 居攝", "000081100[西漢]孺子嬰(王莽攝政) 初始", "000090000[新]王莽 始建國", "000140000[新]王莽 天鳳", "000200000[新]王莽 地皇", "000230200[西漢]更始帝(劉玄) 更始",
"000250600[東漢]光武帝(劉秀) 建武", "000560400[東漢]光武帝(劉秀) 建武中元", "000580000[東漢]明帝(劉莊) 永平", "000760000[東漢]章帝(劉炟[dá]) 建初", "000840800[東漢]章帝(劉炟[dá]) 元和", "000870700[東漢]章帝(劉炟[dá]) 章和", "000890000[東漢]和帝(劉肇) 永元", "001050400[東漢]和帝(劉肇) 元興", "001060000[東漢]殤[shāng]帝(劉隆) 延平", "001070000[東漢]安帝(劉祜[hù]) 永初", "001140000[東漢]安帝(劉祜[hù]) 元初", "001200400[東漢]安帝(劉祜[hù]) 永寧", "001210700[東漢]安帝(劉祜[hù]) 建光", "001220300[東漢]安帝(劉祜[hù]) 延光", "001260000[東漢]順帝(劉保) 永建", "001320300[東漢]順帝(劉保) 陽嘉", "001360000[東漢]順帝(劉保) 永和", "001420000[東漢]順帝(劉保) 漢安", "001440400[東漢]順帝(劉保) 建康", "001450000[東漢]沖帝(劉炳) 永憙[xī](嘉)(1)", "001460000[東漢]質帝(劉纘[zuǎn]) 本初", "001470000[東漢]桓帝(劉志) 建和", "001500000[東漢]桓帝(劉志) 和平", "001510000[東漢]桓帝(劉志) 元嘉", "001530500[東漢]桓帝(劉志) 永興", "001550000[東漢]桓帝(劉志) 永壽", "001580600[東漢]桓帝(劉志) 延熹", "001670600[東漢]桓帝(劉志) 永康", "001680000[東漢]靈帝(劉宏) 建寧", "001720500[東漢]靈帝(劉宏) 熹平", "001780300[東漢]靈帝(劉宏) 光和", "001841200[東漢]靈帝(劉宏) 中平", "001900000[東漢]獻帝(劉協) 初平", "001940000[東漢]獻帝(劉協) 興平", "001960000[東漢]獻帝(劉協) 建安", "002200300[東漢]獻帝(劉協) 延康", "002201000[魏]文帝(曹丕) 黃初", "002270000[魏]明帝(曹叡[ruì]) 太和", "002330200[魏]明帝(曹叡[ruì]) 青龍", "002370300[魏]明帝(曹叡[ruì]) 景初", "002400000[魏]齊王(曹芳) 正始", "002490400[魏]齊王(曹芳) 嘉平", "002541000[魏]高貴鄉公(曹髦[máo]) 正元", "002560600[魏]高貴鄉公(曹髦[máo]) 甘露", "002600600[魏]元帝(曹奐[huàn]) 景元", "002640500[魏]元帝(曹奐[huàn]) 鹹熙",
"002651200[西普]武帝(司馬炎) 泰始", "002750000[西普]武帝(司馬炎) 咸寧", "002800400[西普]武帝(司馬炎) 太康", "002900000[西普]武帝(司馬炎) 太熙", "002900400[西普]惠帝(司馬衷) 永熙", "002910000[西普]惠帝(司馬衷) 永平", "002910300[西普]惠帝(司馬衷) 元康", "003000000[西普]惠帝(司馬衷) 永康", "003010400[西普]惠帝(司馬衷) 永寧", "003021200[西普]惠帝(司馬衷) 太安", "003040000[西普]惠帝(司馬衷) 永安", "003040700[西普]惠帝(司馬衷) 建武", "003041100[西普]惠帝(司馬衷) 永安", "003041200[西普]惠帝(司馬衷) 永興", "003060600[西普]惠帝(司馬衷) 光熙", "003070000[西普]懷帝(司馬熾[chì]) 永嘉", "003130400[西普]湣[mǐn]帝(司馬鄴[yè]) 建興", "003170300[東晉]元帝(司馬睿[ruì]) 建武", "003180000[東晉]元帝(司馬睿[ruì]) 大興", "003221200[東晉]元帝(司馬睿[ruì]) 永昌",///閏11改元 "003230000[東晉]明帝(司馬紹) 太寧", "003250902[東晉]成帝(司馬衍) 太寧",///成帝閏8即位,未改元。 "003260200[東晉]成帝(司馬衍) 鹹和", "003350000[東晉]成帝(司馬衍) 咸康", "003430000[東晉]康帝(司馬嶽) 建元", "003450000[東晉]穆帝(司馬聃[dān]) 永和", "003570000[東晉]穆帝(司馬聃[dān]) 升平", "003620000[東晉]哀帝(司馬丕[pī]) 隆和", "003630200[東晉]哀帝(司馬丕[pī]) 興寧", "003660000[東晉]海西公(司馬奕[yì]) 太和", "003711100[東晉]簡文帝(司馬昱[yù]) 咸安", "003730000[東晉]孝武帝(司馬曜[yào]) 甯康", "003760000[東晉]孝武帝(司馬曜[yào]) 太元", "003970000[東晉]安帝(司馬德宗) 隆安", "004020000[東晉]安帝(司馬德宗) 元興", "004050000[東晉]安帝(司馬德宗) 義熙", "004190000[東晉]恭帝(司馬德文) 元熙", "004200600[宋]武帝(劉裕) 永初", "004230000[宋]少帝(劉義符) 景平", "004240800[宋]文帝(劉義隆) 元嘉", "004540000[宋]孝武帝(劉駿) 孝建", "004570000[宋]孝武帝(劉駿) 大明", "004650000[宋]前廢帝(劉子業) 永光", "004650800[宋]前廢帝(劉子業) 景和", "004651200[宋]明帝(劉彧[yù]) 泰始", "004720000[宋]明帝(劉彧[yù]) 泰豫", "004730000[宋]後廢帝(劉昱[yù]) 元徽", "004770000[宋]順帝(劉凖) 昇明",
"004790400[齊]高帝(蕭道成) 建元", "004830000[齊]武帝(蕭賾[zé]) 永明", "004940000[齊]鬱[yù]林王(蕭昭業) 隆昌", "004940700[齊]海陵王(蕭昭文)[7月] 延興", "004941000[齊]明帝(蕭鸞) 建武", "004980400[齊]明帝(蕭鸞) 永泰", "004990000[齊]東昏侯(蕭寶卷) 永元", "005010300[齊]和帝(蕭寶融) 中興",
"005020400[梁]武帝(蕭衍) 天監", "005200000[梁]武帝(蕭衍) 普通", "005270300[梁]武帝(蕭衍) 大通", "005291000[梁]武帝(蕭衍) 中大通", "005350000[梁]武帝(蕭衍) 大同", "005460400[梁]武帝(蕭衍) 中大同", "005470400[梁]武帝(蕭衍) 太清", "005500000[梁]簡文帝(蕭綱) 大寶", "005521100[梁]元帝(蕭繹) 承聖", "005551000[梁]敬帝(蕭方智) 紹泰", "005560900[梁]敬帝(蕭方智) 太平",
"005571000[陳]武帝(陳霸先) 永定", "005600000[陳]文帝(陳蒨[qiàn]) 天嘉", "005660200[陳]文帝(陳蒨[qiàn]) 天康", "005670000[陳]廢帝(陳伯宗)(臨海王) 光大", "005690000",
|
-- 作者:chwc
-- 发布时间:2009/4/11 8:00:00
--
"005810200[隋]文帝(楊堅) 開皇", "006010000[隋]文帝(楊堅) 仁壽", "006050000[隋]煬帝(楊廣) 大業", "006171100[隋]恭帝(楊侑) 義寧",
"006180500[唐]高祖(李淵) 武得", "006270000[唐]太宗(李世民) 貞觀", "006500000[唐]高宗(李治) 永徽", "006560000[唐]高宗(李治) 顯慶", "006610300[唐]高宗(李治) 龍朔", "006640000[唐]高宗(李治) 麟德", "006660000[唐]高宗(李治) 乾封", "006680300[唐]高宗(李治) 總章", "006700300[唐]高宗(李治) 鹹亨", "006740800[唐]高宗(李治) 上元", "006761100[唐]高宗(李治) 儀鳳", "006790600[唐]高宗(李治) 調露", "006800800[唐]高宗(李治) 永隆", "006810900[唐]高宗(李治) 開耀", "006820200[唐]高宗(李治) 永淳", "006831200[唐]高宗(李治) 弘道", "006840000[唐]中宗(李顯又名哲) 嗣聖", "006840200[唐]睿宗(李旦) 文明", "006840900[唐]武後(武曌) 光宅", "006850000[唐]武後(武曌) 垂拱", "006890000[唐]武後(武曌)永昌", "006900000[武周]武則天 載初", "006900900[武周]武則天 天授", "006920400[武周]武則天 如意", "006920900[武周]武則天 長壽", "006940500[武周]武則天 延載", "006950000[武周]武則天 證聖", "006950900[武周]武則天 天冊萬歲", "006960000[武周]武則天 萬歲登封", "006960300[武周]武則天 萬歲通天", "006970900[武周]武則天 神功", "006980000[武周]武則天 聖暦", "007000500[武周]武則天 久視", "007010000[武周]武則天 大足", "007011000[武周]武則天 長安", "007050000[唐]中宗(李顯又名哲) 神龍", "007070900[唐]中宗(李顯又名哲) 景龍", "007100700[唐]睿宗(李旦) 景雲", "007120500[唐]睿宗(李旦) 延和", "007120800[唐]玄宗(~隆基) 先天", "007131200[唐]玄宗(李隆基) 開元", "007420000[唐]玄宗(李隆基) 天寶", "007560700[唐]肅宗(李亨) 至德", "007580200[唐]肅宗(李亨) 乾元", "007600500[唐]肅宗(李亨) 上元",///閏4改元 "007610900[唐]肅宗(李亨) ----", "007620400[唐]代宗(李豫) 寶應", "007630700[唐]代宗(李豫) 廣德", "007650000[唐]代宗(李豫) 永泰", "007661100[唐]代宗(李豫) 大暦", "007800000[唐]德宗(李適) 建中", "007840000[唐]德宗(李適) 興元", "007850000[唐]德宗(李適) 貞元", "008050800[唐]順宗(李誦) 永貞", "008060000[唐]憲宗(李純) 元和", "008210000[唐]穆宗(李恒) 長慶", "008251200[唐]敬宗(李湛) 寶暦", "008270200[唐]文宗(李昂) 大(太)和", "008410000[唐]武宗(李炎) 會昌", "008470800[唐]宣宗(李忱) 大中", "008601100[唐]懿宗(李漼) 鹹通", "008741100[唐]僖宗(李儇) 乾符", "008800000[唐]僖宗(李儇) 廣明", "008810700[唐]僖宗(李儇) 中和", "008850300[唐]僖宗(李儇) 光啟", "008880200[唐]僖宗(李儇) 文德", "008890000[唐]昭宗(李曄) 龍紀", "008900000[唐]昭宗(李曄) 大順", "008920000[唐]昭宗(李曄) 景福", "008940000[唐]昭宗(李曄) 乾寧", "008980800[唐]昭宗(李曄) 光化", "009010400[唐]昭宗(李曄) 天復", "009040500[唐]昭宗(李曄) 天祐",///閏4改元 "009040800[唐]衷帝(李柷) 天祐",
"009070400(五代)[後梁]太祖(朱晃,又名溫、全忠) 開平", "009110500(五代)[後梁]太祖(朱晃) 乾化", "009130202(五代)[後梁]末帝(朱瑱) 乾化", "009151100(五代)[後梁]末帝(朱瑱) 貞明", "009210500(五代)[後梁]末帝(朱瑱) 龍德",
"009230400(五代)[後唐]莊宗(李存勖) 同光", "009260400(五代)[後唐]明宗(~亶) 天成", "009300200(五代)[後唐]明宗(~亶) 長興", "009340000(五代)[後唐]閔帝(~從厚) 應順", "009340400(五代)[後唐]末帝(~從珂) 清泰",
"009361100(五代)[後晉]高祖(石敬瑭) 天福", "009420606(五代)[後晉]出帝(石重貴) 天福", "009440700[後晉]出帝(石重貴) 開運",
"009470211(五代)[後漢]高祖(劉暠,本名知遠) 天福", "009480000(五代)[後漢](劉暠,本名知遠) 乾祐", "009480200(五代)[後漢]隱帝(劉承祐) 乾祐",
"009510000(五代)[後周]太祖(郭威) 廣順", "009540000(五代)[後周]太祖 [郭威] 顯德", "009540200(五代)[後周]世宗 [柴榮] 顯德", "009590605(五代)[後周]恭帝 [柴宗訓] 顯德",
"009600000[北宋]太祖(趙匡胤) 建隆", "009631100[北宋]太祖(趙匡胤) 乾德", "009681100[北宋]太祖(趙匡胤) 開寶", "009761200[北宋]太宗(趙炅,本名匡義,又名光義) 太平興國", "009841100[北宋]太宗(趙炅,本名匡義,又名光義) 雍熙", "009880000[北宋]太宗(趙炅,本名匡義,又名光義) 端拱", "009900000[北宋]太宗(趙炅,本名匡義,又名光義) 淳化", "009950000[北宋]太宗(趙炅,本名匡義,又名光義) 至道", "009980000[北宋]真宗(趙恒) 鹹平", "010040000[北宋]真宗(趙恒) 景德", "010080000[北宋]真宗(趙恒) 大中祥符", "010170000[北宋]真宗(趙恒) 天禧", "010220000[北宋]真宗(趙恒) 乾興", "010230000[北宋]仁宗(趙禎) 天聖", "010321100[北宋]仁宗(趙禎) 明道", "010340000[北宋]仁宗(趙禎) 景祐", "010381100[北宋]仁宗(趙禎) 寶元", "010400200[北宋]仁宗(趙禎) 康定", "010411100[北宋]仁宗(趙禎) 慶暦", "010490000[北宋]仁宗(趙禎) 皇祐", "010540300[北宋]仁宗(趙禎) 至和", "010560900[北宋]仁宗(趙禎) 嘉祐", "010640000[北宋]英宗(趙曙) 治平", "010680000[北宋]神宗(趙頊) 熙寧", "010780000[北宋]神宗(趙頊) 元豐", "010860000[北宋]哲宗(趙煦) 元祐", "010940400[北宋]哲宗(趙煦) 紹聖", "010980600[北宋]哲宗(趙煦) 元符", "011010000[北宋]徽宗(趙佶) 建中靖國", "011020000[北宋]徽宗(趙佶) 崇寧", "011070000[北宋]徽宗(趙佶) 大觀", "011110000[北宋]徽宗(趙佶) 政和", "011181100[北宋]徽宗(趙佶) 重和", "011190200[北宋]徽宗(趙佶) 宣和", "011260000[北宋]欽宗(趙桓) 靖康", "011270500[南宋]高宗(趙構) 建炎", "011310000[南宋]高宗(趙構) 紹興", "011630000[南宋]孝宗(趙昚) 隆興", "011650000[南宋]孝宗(趙昚) 乾道", "011740000[南宋]孝宗(趙昚) 淳熙", "011900000[南宋]光宗(趙惇) 紹熙", "011950000[南宋]寧宗(趙擴) 慶元", "012010000[南宋]寧宗(趙擴) 嘉泰", "012050000[南宋]寧宗(趙擴) 開禧", "012080000[南宋]寧宗(趙擴) 嘉定", "012250000[南宋]理宗(趙昀) 寶慶", "012280000[南宋]理宗(趙昀) 紹定", "012340000[南宋]理宗(趙昀) 端平", "012370000[南宋]理宗(趙昀) 嘉熙", "012410000[南宋]理宗(趙昀) 淳祐", "012530000[南宋]理宗(趙昀) 寶祐", "012590000[南宋]理宗(趙昀) 開慶", "012600000[南宋]理宗(趙昀) 景定", "012650000[南宋]度宗(趙禥) 鹹淳", "012750000[南宋]恭帝(趙?繁體“顯”去掉右邊“頁”) 德祐", "012760500[南宋]端宗(趙昰) 景炎", "012780500[南宋]帝昺(趙昺) 祥興", "012790300", "012950000[元]成宗(孛兒只斤鐵木真鐵穆耳) 元貞", "012970200[元]成宗(孛兒只斤鐵木真鐵穆耳) 大德", "013080000[元]武宗(孛兒只斤鐵木真海山) 至大", "013120000[元]仁宗(孛兒只斤鐵木真愛育黎拔力八達) 皇慶", "013140000[元]仁宗(孛兒只斤鐵木真愛育黎拔力八達) 延祐", "013210000[元]英宗(孛兒只斤鐵木真碩德八剌) 至治", "013240000[元]泰定帝(孛兒只斤鐵木真也孫鐵木兒) 泰定", "013280200[元]泰定帝(也孫鐵木兒) 致和", "013280900[元]天順帝(阿速吉八) 天順、文宗(~圖帖睦爾) 天歷", "013290001[元]文宗 天歷", "013300000[元] 至順", "013331000[元]順帝(孛兒只斤鐵木真妥懽帖睦爾) 元統", "013351100[元]順帝(孛兒只斤鐵木真妥懽帖睦爾) (後)至元", "013410000[元]順帝(孛兒只斤鐵木真妥懽帖睦爾) 至正",
"013680000[明]太祖(朱元璋) 洪武", "013990000[明]惠帝(朱允炆) 建文", "014030000[明]成祖(朱棣) 永樂", "014250000[明]仁宗(朱高熾) 洪熙", "014260000[明]宣宗(朱瞻基) 宣德", "014360000[明]英宗(朱祁鎮) 正統", "014500000[明]代宗(朱祁鈺)(景帝) 景泰", "014570000[明]英宗(朱祁鎮) 天順", "014650000[明]憲宗(朱見深) 成化", "014880000[明]孝宗(朱祐樘) 弘治", "015060000[明]武宗(朱厚照) 正德", "015220000[明]世宗(朱厚熜) 嘉靖", "015670000[明]穆宗(朱載垕)隆慶", "015730000[明]神宗(朱翊鈞)萬暦", "016200800[明]光宗(朱常洛)泰昌", "016210000[明]熹宗(朱由校)天啟", "016280000[明]思宗(朱由檢)崇禎",
"016440000[清]世祖(愛新覺羅福臨) 順治", "016620000[清]聖祖(愛新覺羅玄燁) 康熙", "017230000[清]世宗(愛新覺羅胤禛) 雍正", "017360000[清]高宗(愛新覺羅弘歷) 乾隆", "017960000[清]仁宗(愛新覺羅颙琰) 嘉慶", "018210000[清]宣宗(愛新覺羅旻寧) 道光", "018510000[清]文宗(愛新覺羅奕詝) 鹹豐", "018620000[清]穆宗(愛新覺羅載淳) 同治", "018750000[清]德宗(愛新覺羅載湉) 光緒", "019090000[清](溥儀) 宣統", "019120000[中國]國民黨 民國 ", "019490837[中國]共產黨 民國");
|
-- 作者:chwc
-- 发布时间:2009/4/11 8:00:00
--
var alt=new Array( //舊朝代末、新朝代初或分裂時其它政權之一的年號,數字後無漢字的該朝當年滅亡以后不顯示 "-16170000[商]太祖(子天乙)商湯 ", "-15870000", "-11020000[西周]文王(姬昌) ", "-10520000[西周]武王(姬發) ", "-10410000", "-03190000[東周]慎靚[jìng]王(姬定) ", "-03130000[東周]赧[nǎn]王(姬延) ", "-02540000", "002210400[蜀漢]昭烈帝(劉備) 章武", "002230500[蜀漢]後主(劉禪[shàn]) 建興", "002380000[蜀漢]後主(劉禪[shàn]) 延熙", "002580000[蜀漢]後主(劉禪[shàn]) 景耀", "002630800[蜀漢]後主(劉禪[shàn]) 炎興", "002631100",
"005690000[陳]宣帝(陳頊[xū]) 太建", "005830000[陳]後主(陳叔寶) 至德", "005870000[陳]後主(陳叔寶) 禎明", "005900000", "009070000[契丹]太祖(耶律阿保機)", "009161200[契丹]太祖(耶律阿保機) 神册", "009220200[契丹]太祖(耶律阿保機) 天贊", "009260200[契丹]太祖(~阿保機) 天顯", "009271101[契丹]太宗(~德光) 天顯", "009381100[契丹]太宗(耶律德光) 會同", "009470200[契丹]太宗(耶律德光) 大同", "009470900[遼]世宗(耶律阮) 天祿", "009510900[遼]穆宗(耶律璟) 應暦", "009690200[遼]景宗(耶律賢) 保寧", "009791100[遼]景宗(耶律賢) 乾亨", "009820903[遼]聖宗(~隆緒) 乾亨", "009830600[遼]聖宗(耶律隆緒) 統和", "010121100[遼]聖宗(耶律隆緒) 開泰", "010211100[遼]聖宗(耶律隆緒) 太平", "010310600[遼]興宗(耶律宗真) 景福", "010321100[遼]興宗(耶律宗真) 重熙", "010550800[遼]道宗(耶律洪基) 清寧", "010650000[遼]道宗(耶律洪基) 鹹雍", "010750000[遼]道宗(耶律洪基) 大(太)康", "010850000[遼]道宗(耶律洪基) 大安", "010950000[遼]道宗(耶律洪基) 壽昌(隆)", "011010200[遼]天祚帝(耶律延禧) 乾統", "011110000[遼]天祚帝(耶律延禧) 天慶", "011210000[遼]天祚帝(耶律延禧) 保大", "011250300", "012060000[蒙古(元)]太祖(孛兒只斤鐵木真)(成吉思汗)", "012280000[蒙古(元)]孛兒只斤鐵木真拖雷(監國)", "012290000[蒙古(元)]太宗(窩闊臺)", "012420000[蒙古(元)]乃馬真後(稱制)", "012460700[蒙古(元)]定宗(貴由)", "012490300[蒙古(元)]海迷失後(稱制)", "012510600[蒙古(元)]憲宗(孛兒只斤鐵木真蒙哥)", "012600500[蒙古(元)]世祖(孛兒只斤鐵木真忽必烈) 中統", "012640800[蒙古(元)]世祖(忽必烈) 至元", "012950000", "016160000[后金(清)]太祖(愛新覺羅努爾哈赤)天命", "016270000[后金(清)]太宗(愛新覺羅皇太極)天聰", "016360400[清]太宗(愛新覺羅皇太極)崇德", "016440000[南明]安宗(朱由崧) 弘光", "016460000" );
var alt2=new Array( //舊朝代末、新朝代初或分裂時其它政權之一的年號,數字後無漢字以后不顯示
"02221000[吳]大帝(孫權) 黃武", "02290400[吳]大帝(孫權) 黃龍", "02320000[吳]大帝(孫權) 嘉禾", "02380900[吳]大帝(孫權) 赤烏", "02510500[吳]大帝(孫權) 太元", "02520200[吳]大帝(孫權) 神鳳", "02520400[吳]會稽王(孫亮) 建興", "02540000[吳]會稽王(孫亮) 五鳳", "02561000[吳]會稽王(孫亮) 太平", "02581000[吳]景帝(孫休) 永安", "02640700[吳]烏程侯(孫皓) 元興", "02650400[吳]烏程侯(孫皓) 甘露", "02660800[吳]烏程侯(孫皓) 寶鼎", "02691000[吳]烏程侯(孫皓) 建衡", "02720000[吳]烏程侯(孫皓) 鳳凰", "02750000[吳]烏程侯(孫皓) 天冊", "02760700[吳]烏程侯(孫皓) 天璽", "02770000[吳]烏程侯(孫皓) 天紀", "02800300", "11150000[金]太祖(完顏旻,本名阿骨打) 收國", "11170000[金]太祖(完顏旻,本名阿骨打) 天輔", "11230900[金]太宗(完顏晟) 天會", "11350012[金]熙宗(完顏亶) 天會", "11380000[金]熙宗(完顏亶) 天眷", "11410000[金]熙宗(完顏亶) 皇統", "11491200[金]海陵王(完顏亮) 天德", "11530300[金]海陵王(完顏亮) 貞元", "11560200[金]海陵王(完顏亮) 正隆", "11611000[金]世宗(完顏雍) 大定", "11900000[金]章宗(完顏璟) 明昌", "11961100[金]章宗(完顏璟) 承安", "12010000[金]章宗(完顏璟) 泰和", "12090000[金]衛紹王(完顏永濟) 大安", "12120000[金]衛紹王(完顏永濟) 崇慶", "12130500[金]衛紹王(~永濟) 至寧", "12130900[金]宣宗(~珣) 貞祐", "12170900[金]宣宗(完顏珣) 興定", "12220800[金]宣宗(完顏珣) 元光", "12240000[金]哀宗(完顏守緒) 正大", "12240000[金]哀宗(完顏守緒) 正大", "12320000[金]開興", "12320400[金]天興", "12340000", "16450000[南明]紹宗(朱聿鍵) 隆武", "16470000[南明]桂王(朱由榔) 永暦", "16620000[南明]延平文王(鄭經)", "16810000[南明]延平王(鄭克塽)", "16830000" ); var alt3=new Array( //用於記載舊朝代末、新朝代初或分裂時其它政權的年號,數字後無漢字的表示該朝當年滅亡或當年以后不顯示出 "03860000[北魏]道武帝(拓跋登珪) 登國", "03960700[北魏]道武帝(拓跋登珪) 皇始", "03981200[北魏]道武帝(拓跋登珪) 天興", "04041000[北魏]道武帝(拓跋登珪) 天賜", "04091000[北魏]明元帝(拓跋嗣) 永興", "04140000[北魏]明元帝(拓跋嗣) 神瑞", "04160400[北魏]明元帝(拓跋嗣) 泰常", "04240000[北魏]太武帝(拓跋燾) 始光", "04280200[北魏]太武帝(拓跋燾) 神(上‘鹿’下‘加’)[jiā]", "04320000[北魏]太武帝(拓跋燾) 延和", "04350000[北魏]太武帝(拓跋燾) 太延", "04400600[北魏]太武帝(拓跋燾) 太平真君", "04510600[北魏]太武帝(拓跋燾) 正平", "04520300[北魏]南安王(拓跋餘) 永(承)平", "04521000[北魏]文成帝(拓跋濬[jùn]) 興安", "04540700[北魏]文成帝(拓跋濬[jùn]) 興光", "04550600[北魏]文成帝(拓跋濬[jùn]) 太安", "04600000[北魏]文成帝(拓跋濬[jùn]) 和平", "04660000[北魏]獻文帝(拓跋弘) 天安", "04670800[北魏]獻文帝(拓跋弘) 皇興", "04710800[北魏]孝文帝(拓跋宏) 延興", "04760600[北魏]孝文帝(拓跋宏) 承明", "04770000[北魏]孝文帝(拓跋[元]宏) 太和", "05000000[北魏]宣武帝(元恪[kè]) 景明", "05040000[北魏]宣武帝(元恪[kè]) 正始", "05080800[北魏]宣武帝(元恪[kè]) 永平", "05120400[北魏]宣武帝(元恪[kè]) 延昌", "05160000[北魏]孝明帝(元詡[xǔ]) 熙平", "05180200[北魏]孝明帝(元詡[xǔ]) 神龜", "05200700[北魏]孝明帝(元詡[xǔ]) 正光", "05250600[北魏]孝明帝(元詡[xǔ]) 孝昌", "05280000[北魏]孝明帝(元詡[xǔ]) 武泰", "05280400[北魏]孝莊帝(元子攸) 建義", "05280900[北魏]孝莊帝(元子攸) 永安", "05301000[北魏]長廣王(元曄[yè]) 建明", "05310200[北魏]節閔[mǐn]帝(元恭) 普泰", "05311000[北魏]安定王(元朗) 中興", "05320400[北魏]孝武帝(元脩[xiū]) 太昌", "05321200[北魏]孝武帝(元脩[xiū]) 永興 永熙", "05330001[北魏]孝武帝(元脩[xiū]) 永熙",
"05341000[東魏]孝靜帝(元善見) 天平", "05380000[東魏]孝靜帝(元善見) 元象", "05391100[東魏]孝靜帝(元善見) 興和", "05430000[東魏]孝靜帝(元善見) 武定",
"05500500[北齊]文宣帝(高洋) 天保", "05600000[北齊]廢帝(高殷) 乾明", "05600800[北齊]孝昭帝(高演) 皇建", "05611100[北齊]武成帝(高湛) 太寧", "05620400[北齊]武成帝(高湛) 河清", "05650400[北齊]後主(高緯) 天統", "05700000[北齊]後主(高緯) 武平", "05761200[北齊]後主(高緯) 隆化", "05770000[北齊]幼主(高恒) 承光", "05780000", "10320000[西夏]景宗(李元昊) 顯道", "10340700[西夏]景宗(李元昊) 廣運", "10361200[西夏]景宗(李元昊) 大慶", "10381000[西夏]景宗(李元昊) 天授禮法延祚", "10490000[西夏]毅宗(李諒祚) 延嗣寧國", "10500000[西夏]毅宗(李諒祚) 天祏垂聖", "10530000[西夏]毅宗(李諒祚) 福聖承道", "10570000[西夏]毅宗(李諒祚) 奲都", "10630000[西夏]毅宗(李諒祚) 拱化", "10680000[西夏]惠宗(李秉常) 乾道", "10690000[西夏]惠宗(李秉常) 天賜禮盛國慶", "10750000[西夏]惠宗(李秉常) 大安", "10860700[西夏]崇宗(李乾順) 天儀治平", "10900000[西夏]崇宗(李乾順) 天祐民安", "10980000[西夏]崇宗(李乾順) 永安", "11010000[西夏]崇宗(李乾順) 貞觀", "11140000[西夏]崇宗(李乾順) 雍寧", "11190000[西夏]崇宗(李乾順) 元德", "11270400[西夏]崇宗(李乾順) 正德", "11350000[西夏]崇宗(李乾順) 大德", "11400000[西夏]仁宗(李仁孝) 大慶", "11440000[西夏]仁宗(李仁孝) 人慶", "11490000[西夏]仁宗(李仁孝) 天盛", "11700000[西夏]仁宗(李仁孝) 乾祐", "11940000[西夏]桓宗(李純佑) 天慶", "12060000[西夏]襄宗(李安全) 應天", "12100000[西夏]襄宗(李安全) 皇建", "12110800[西夏]神宗(李遵頊) 光定", "12231200[西夏]獻宗(李德旺) 乾定", "12260700[西夏]未主(李睍) 寶義", "12270700", "16610000[南明]潮武王(鄭(朱)成功)", "16620000" ); var alt5=new Array( //用於記載舊朝代末、新朝代初或分裂時其它政權之一的年號,數字後無漢字的表示該朝當年滅亡或當年以后不顯示出 "05350000[西魏]文帝(元寶炬) 大統", "05520000[西魏]文帝(元欽) --", "05540000[西魏]恭帝(元廓) --", "05570000[北周]孝閔[mǐn]帝(宇文覺) --", "05570900[北周]明帝(宇文毓[yù]) --", "05590800[北周]明帝(宇文毓[yù]) 武成", "05610000[北周]武帝(宇文邕[yōng]) 保定", "05660000[北周]武帝(宇文邕[yōng]) 天和", "05720300[北周]武帝(宇文邕[yōng]) 建德", "05780300[北周]武帝(宇文邕[yōng]) 宣政", "05790000[北周]宣帝(宇文赟[yūn]) 大成", "05790200[北周]文帝(宇文闡) 大象", "05810000[北周]文帝(宇文闡) 大象", "05810200" ); var nh9=new Array( //特别處理1949年后 "19120000◆中華民國成立第", "19490800★中華人民共和國成立第" ); var str=\'\',str1=\'\',str3=\'\',str6=\'\',str7=\'\',str9=\'\'; //年號 for(i in nh){ var y0=parseFloat(nh[i].substring(0,5)); var m0=parseFloat(nh[i].substring(5,7)); if(m<0&&(m*(-1))>m0)m=m*(-1);if((y==322||y==325||y==760||y==904)&&m<0)m=m*(-1)+1; var n0=parseFloat(nh[i].substring(7,9)); var n=y-y0+1+n0; if(y>=y0&&n>0&&y*10+m>=y0*10+m0){ str=nh[i].substring(9,100); if(n==1&&y<1949||n==1&&y>1950){n="元"}else{n=n}; if(str!=\'\') str=str+n+\'年.\'; else str=\'\'; } } for(i in alt){ var y0=parseFloat(alt[i].substring(0,5)); var m0=parseFloat(alt[i].substring(5,7)); if(m<0&&(m*(-1))>m0)m=m*(-1); var n0=parseFloat(alt[i].substring(7,9)); var n=y-y0+1+n0; if(y>=y0&&n>0&&y*10+m>=y0*10+m0){ var str2=alt[i].substring(9,100); if(n==1){n=" 元"}else{n=n} if(str2!=\'\') str1=str2+n+\'年.\'; else str1=\'\'; } } for(i in alt2){ var y0=parseFloat(alt2[i].substring(0,4)); var m0=parseFloat(alt2[i].substring(4,6)); if(m<0&&(m*(-1))>m0)m=m*(-1); var n0=parseFloat(alt2[i].substring(6,8)); var n=y-y0+1+n0; if(y>=y0&&n>0&&y*10+m>=y0*10+m0){ var str4=alt2[i].substring(8,100); if(n==1){n=" 元"}else{n=n} if(str4!=\'\') str3=str4+n+\'年\'; else str3=\'\'; } }
for(i in alt3){ var y0=parseFloat(alt3[i].substring(0,4)); var m0=parseFloat(alt3[i].substring(4,6)); if(m<0&&(m*(-1))>m0)m=m*(-1); var n0=parseFloat(alt3[i].substring(6,8)); var n=y-y0+1+n0; if(y>=y0&&n>0&&y*10+m>=y0*10+m0){ var str6=alt3[i].substring(8,108); if(n==1){n=" 元"}else{n=n} if(str6!=\'\') str6=str6+n+\'年\'; else str6=\'\'; } } for(i in alt5){ var y0=parseFloat(alt5[i].substring(0,4)); var m0=parseFloat(alt5[i].substring(4,6)); if(m<0&&(m*(-1))>m0)m=m*(-1); var n0=parseFloat(alt5[i].substring(6,8)); var n=y-y0+1+n0; if(y>=y0&&n>0&&y*10+m>=y0*10+m0){ var str7=alt5[i].substring(8,100); if(n==1){n=" 元"}else{n=n} if(str7!=\'\') str7=str7+n+\'年\'; else str7=\'\'; } } for(i in nh9){ var y0=parseFloat(nh9[i].substring(0,4)); var m0=parseFloat(nh9[i].substring(4,6)); if(m<0&&(m*(-1))>m0)m=m*(-1); var n0=parseFloat(nh9[i].substring(6,8)); var n=y-y0+1+n0; if(y>=y0&&n>0&&y*10+m>=y0*10+m0){ str9=nh9[i].substring(8,100); if(str9!=\'\') str9=str9+n+\'年.\'; else str9=\'\'; } } return str+\' \'+str1+\' \'+str3+\' \'+str6+\' \'+str7+\' \'+str9; }
|