中华农历论坛知识讨论区历法知识 → 公开《电脑医生万年历》源码,献给采用同样核心代码的人们做参考


  共有18832人关注过本帖树形打印

主题:公开《电脑医生万年历》源码,献给采用同样核心代码的人们做参考

帅哥哟,离线,有人找我吗?
chwc
  1楼 个性首页 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:603 积分:5315 威望:0 精华:4 注册:2008/4/21 19:06:00
公开《电脑医生万年历》源码,献给采用同样核心代码的人们做参考  发帖心情 Post By: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候


支持(0中立(0反对(0单帖管理 | 引用 | 回复 回到顶部
帅哥哟,离线,有人找我吗?
chwc
  2楼 个性首页 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:603 积分:5315 威望:0 精华:4 注册:2008/4/21 19:06:00
  发帖心情 Post By: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);////////計算農曆月大小。


支持(0中立(0反对(0单帖管理 | 引用 | 回复 回到顶部
帅哥哟,离线,有人找我吗?
chwc
  3楼 个性首页 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:603 积分:5315 威望:0 精华:4 注册:2008/4/21 19:06:00
  发帖心情 Post By:2009/1/10 12:31:00

纠错:“调用:dasao=lundsMon(y1,m1,d1);////////計算農曆月大小。”

应为:“调用:dasao=lundsMon(y1,m1,d1,1);////////計算農曆月大小。”


支持(0中立(0反对(0单帖管理 | 引用 | 回复 回到顶部
帅哥哟,离线,有人找我吗?
chwc
  4楼 个性首页 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:603 积分:5315 威望:0 精华:4 注册:2008/4/21 19:06:00
  发帖心情 Post By: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;
}}

支持(0中立(0反对(0单帖管理 | 引用 | 回复 回到顶部
帅哥哟,离线,有人找我吗?
chwc
  5楼 个性首页 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:603 积分:5315 威望:0 精华:4 注册:2008/4/21 19:06:00
  发帖心情 Post By: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;
}}

支持(0中立(0反对(1单帖管理 | 引用 | 回复 回到顶部
帅哥哟,离线,有人找我吗?
chwc
  6楼 个性首页 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:603 积分:5315 威望:0 精华:4 注册:2008/4/21 19:06:00
  发帖心情 Post By: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",

 


支持(0中立(0反对(0单帖管理 | 引用 | 回复 回到顶部
帅哥哟,离线,有人找我吗?
chwc
  7楼 个性首页 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:603 积分:5315 威望:0 精华:4 注册:2008/4/21 19:06:00
  发帖心情 Post By: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[中國]共產黨 民國");


支持(0中立(0反对(0单帖管理 | 引用 | 回复 回到顶部
帅哥哟,离线,有人找我吗?
chwc
  8楼 个性首页 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:603 积分:5315 威望:0 精华:4 注册:2008/4/21 19:06:00
  发帖心情 Post By: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;
  }


支持(0中立(0反对(0单帖管理 | 引用 | 回复 回到顶部

返回版面帖子列表

公开《电脑医生万年历》源码,献给采用同样核心代码的人们做参考








签名