中华农历论坛知识讨论区历法知识 → [原创]公开电脑医生、福星、通胜万年历2014年2月最新历算源码


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

主题:[原创]公开电脑医生、福星、通胜万年历2014年2月最新历算源码

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


加好友 发短信
等级:黑侠 帖子:603 积分:5315 威望:0 精华:4 注册:2008/4/21 19:06:00
  发帖心情 Post By:2014/2/19 13:37:00

function leapNum(y){//總閏月數
 var nv=0;if(liza==1&&(y==447||y==504))nv=1;if(liza==1&&y==572)nv=-1;//北朝魏-隋
 if(liza==2&&y==561)nv=1;//北齊
 if(liza==1&&y==1077)nv=1;//金
 if(liza==1&&(y==1650||y==1669))nv=1;//南明
 var mv=leapNumber[y+1187]+nv;
 return mv;
}
var starY=-1187;//記錄從-1187到公元1988年,前104年之後為史實、前104年之前只參各家資料,有爭議。前850(-849)開始050000c00900909(050700600000909)040700600400909--------------------------                                                                                                                                                                                                                  
var leapM='7004007090050020b007004002090060030b00800400b090060020a008005007090060030b007004007090050020b007004002090060030b00800400b090060020a008005007090070030c0080050010a0070030c0080050020a0070030c0080050040a0070030c0080050020a0070030c0080050010a0070030c0080050020a0070030c0080050040a0070030c0080050020a0070030c0080050010a0070030c0080050020a0070030c0080050010a0070030c0080050010a0070030c0080050020a0070030c0080050020a0070030c0090050020a0070030c0090050020a0060030c0060030c00900600c0c0060c00c00c00c0c000600c0c0006090303030006000c00c060c0006c00000c0c0c0060003030006c00009009c0090c00c009000300030906030030c0c00060c00090c0060600c0030060c00c003006009060030c0060060c0090900c00090c0090c00c006030006060003030c0c00030c0060030c0090060030c0090300c0080050020a0060030c0080050020b0070030c0090050010a0070030b0090060020a0070040c0080050020a0060030c0080050020b0070030c0090050010a0070030b0090060020a0070040c0080050020a0060030c0080050020b0070030c0090050000c00c0c00c00c00c0c00c00c00c0c00c00c0c00c00c00c0c00c00c0c00c00c00c0c00c00c0c00c00c00c0c00c00c0c00c00c0c00c00c00c0c00c00c0c00c00c00c0c00c00c0c00c00c00c0c00c00c0c0060030c0090050010a0070030b008005001090070040c0080050020a0060030c0080040010a0060030c0090050010a0070030b0080050010a008005001090050020a0060030c0080040010a0060030c0090050010a0070030b0080050010a0070030b008005001090070040c0080050020a0060030c0080040010a0060030c0090050010a0070030b008005001090070040c0080050020a0060030c0080040010a0060030c0090050010b0060030c0090050010a0070030b008005001090070040c0080050020a0060030c0080040010a0070030b0080050010a0070040c0080050020a0060030c0080040010a0070030c0090050010a0070030b0080050020a0060030c0080040010a0060030c0090050050020a0060030c0090050010b0070030c0090050010a0070040c0080040020a0060030c0080050020a0060030c0090050010a0070030b0080040020a0060040c0090050020b0070030c00a0050010a0070030b0090050020a0070030c0080040020a0060030c0090050010a0070030c0090050030b007005001090070040c009004001090060020c0070050c0090060030b0080040020a0060030b0080040010a0060030b0080050010a0050040c0080050010a0060030c0080050010a0070030c007005001090070030b0070040020a0060030c0080040020a0070030b0090050010a0060040c0080050020a0060040c0080050010b0070030c007005001090070030c0080050020a0070030c0090050020a0070030c0090050020a0060040c0090050020a0060040c0090050010b0070030c0080050030b007004001090060020c008004002090060020a008004001090050030b0080040020a0060040b0080040c00a0060020b007005001090060030b0070050020a0060020c008004002090070030c008005002090070040c0080040020a0060040b0090050010a0060030b0080050020a0060040c0080050010b00700300108005001090070030c0080050020a007003001090050030a0070030b0090050020a0060040c0090050030b0070040c0090050010c0070040c0080060020b007004001090060020b007003002090060020a008004001090050030b007004001090050040c0080040c00a0060020c007005001090060030b0070050020a0060020c008004002090060030b008004002090060030b0080040020a0060040b0080040010b006004002060050030700600400207005003080060040030700500307006004003070050030800600400307005004090060040030700500409006005002070050030a0060050030700500400206004002060050030020600400307005004090060040030700500408007005003080050040a00600500307005004002060050030800500400206005002070050040020600500307006004002070050030800600400307005004080060040a0060';//-1187-1988//
var leapMsgwu='040c0080050020a0060030c0080040010a0070030b0080050010a0070';//三國吳224到280
var leapMsgsu='0a0070030b008005001090070040';//三國蜀漢237到264
var leapMbwsui='010a0070060020a007004001090060030b007004001090050020b0080040c0090060020a0070050020b0070030c0090050010a0070040c008005001090080040010a0060030c0080040';//444年到590年北魏至隋加東魏閏月
var leapMbaiqi='020b0080040c0090060020b0080';//550年到576年北齊
var leapMliao='080050020a0070040b0090050020a0070040c0090050030a0060040c0090050010b0070030c0080060030b0070040c0080060020c008004002090060030a008004001090050030b0080040020a0060040b0080040c00a0060020b007005001090060030b0070050020a0060020c008004002090070030c008005002090070040c0080040020a0060040b0090050010b0';//遼金元閏月,值從984年到1271年
var leapMnanm='60030b0070050010a0060040c0080060020a0060';//南明1645到1684;1683閏6
function leapMon(y){//取出閏月,-1187年到1950年計算農曆月及頁面顯示出閏幾月通用
  var v=leapM.charAt(y-starY);
 if(liza==1&&(y>=224&&y<281))v=leapMsgwu.charAt(y-224);//昊
 if(liza==2&&(y>=237&&y<265))v=leapMsgsu.charAt(y-237);//蜀
 if(liza==1&&(y>=444&&y<591))v=leapMbwsui.charAt(y-444);//魏到隋初
 if(liza==2&&(y>=550&&y<577))v=leapMbaiqi.charAt(y-550);//北齊
 if(liza==1&&(y>=984&&y<1271))v=leapMliao.charAt(y-984);//遼金元初
 if(liza==1&&(y>=1645&&y<1684))v=leapMnanm.charAt(y-1645);//南明
  if(v=='a')
    v=10;
  if(v=='b')
    v=11;
  if(v=='c')
    v=12;
  if(v=='')
    v=0;
  return parseInt(v);
   }
  function leapN(y){ //求閏月數
  var leapN=0;var lea=0; var lea2=''; //
  var lea3=leapM6(y);
  return lea3;
   }
  function jqdmo(ns){//每個節氣日所在月到1900年,1,1總月數(閏月未扣除)2000年春分=0
  var ys=floor((ns+6)/24)+1999;var y=ys*1;
  var n0=ns-(24*(y-1999)-6)*1;var n=n0*1
  if(n0==0)y=ys-1,n=24;
  var dtt=floor(S(y,n));var ykda=(erJD(y,1,1))-1;var jeJDc=dtt+ykda*1;
  var lumta=lunData(jeJDc,5);var dzrs=lumta;
  return dzrs;
  }
  function zqmo(y,n){//y年每個節氣日所在月到1900年,1,1總月數(閏月未扣除)冬至n=24
  var dtt=floor(S(y,n));var ykda=(erJD(y,1,1))-1;var jeJDc=dtt+ykda*1;
  var lumta=lunData(jeJDc,5);var dzrs=lumta;
  return dzrs;
   }
  function leapom(y){//現代高精度無中氣置閏,用於-1187年之前及1950年後頁面顯示閏幾月
  var lnmsj="";
  var n0=24*(y-1-1999)-6+24;var n1=24*(y-1999)-6+24;var n2=24*(y+1-1999)-6+24;
  var jav="",jbv="",jcv="",jqav="",jqav2="";
  var mtk=zqmo(y-1,24);
  var mwk=zqmo(y,24);
  var mek=zqmo(y+1,24);
  var mxk=mwk-mtk;var myk=mek-mwk;
  if(y>=-1187&&mxk==13||y>=-1187&&myk==13){
  for(var jq=n0;jq<=n1+4;jq+=2){
  var jqka=jqdmo(jq);
  var jqkb=jqdmo(jq+2);
  var lnmsjb=((jqka-mtk+11+11)%12+1)*1;
  var lnmsja=lnmsjb;
  var unmca=jqkb-jqka;
  if(lnmsjb==10)lnmsja="a";
  if(lnmsjb==11&&myk==13)lnmsja="b";
  if(lnmsjb==11&&mxk==13)lnmsja=0;
  if(lnmsjb==12&&myk==13)lnmsja="c";
  if(lnmsjb==12&&mxk==13)lnmsja=0;
  if(unmca==2&&mxk==13)lnmsj+=lnmsja+","+0+","+0+",";
  if(unmca==2&&lnmsjb==11&&myk==13)lnmsj+=lnmsja+","+0+","+0+"";
  if(unmca==2&&lnmsjb==12&&myk==13)lnmsj+=lnmsja+","+0+","+0+"";
  }
  }else{
  lnmsj=0+","+0+","+0;
  if(y<-1187&&myk==13)lnmsj="c"+","+0+","+0;
  }
  var va=lnmsj;if(lnmsj=="")va=0+","+0+","+0;
  var vv=va.substring(0,1);
  var vo=vv;
  if(vv=="a")vo=10;
  if(vv=="b")vo=11;
  if(vv=="c")vo=12;
  return vo;
  }
  function nunesy(JDa,lmt){//現代高精度無中氣置閏,用於計算農曆月。JDa=等效儒略日lmt=等效朔月總月數1900年正月=1
  var mjeJD=JDa;
  var jeaJD=2415021;//1900,1,1等效儒略日
  var yey=floor((mjeJD-jeaJD)/365.25+1900);if(mjeJD>=2299239)yey=floor((mjeJD+10-jeaJD)/365.2425+1900);
  var y=yey;if(mjeJD<erJD(yey,1,1))y=yey-1;if(mjeJD>=erJD(yey+1,1,1))y=yey+1;
  for(var i=1;i<=12;i++){
  if(mjeJD>=erJD(y,i,1)&&mjeJD<erJD(y,i+1,1))m=i;
  }
  var lumt=lmt;
  var lnmsj="";
  var n00=24*(y-2-1999)-6+24;var n0=24*(y-1-1999)-6+24;var n1=24*(y-1999)-6+24;var n2=24*(y+1-1999)-6+24;
  var jav="",jbv="",jcv="",jqav="",jqav2="";
  var mrk=zqmo(y-2,24);
  var mtk=zqmo(y-1,24);
  var mwk=zqmo(y,24);
  var mek=zqmo(y+1,24);
  var mrka=mtk-mrk;
  var mxk=mwk-mtk;
  var myk=mek-mwk;
  if(y>=-1187){
  if(lumt<mtk&&mrka==13){
  for(var jq=n00;jq<=n0;jq+=2){
  var jqka=jqdmo(jq);
  var jqkb=jqdmo(jq+2);
  var lnmsjb=((jqka-mrk+11+11)%12+1)*1;
  var lnmsja=lnmsjb;
  var unmca=jqkb-jqka;
  if(lnmsjb==10)lnmsja="a";
  if(lnmsjb==11)lnmsja="b";
  if(lnmsjb==12)lnmsja="c";
  if(unmca==2)lnmsj+=lnmsja+","+0+","+0+",";
  }
  }else{
  if(lumt<mwk&&mxk==13){
  for(var jq=n0;jq<=n1;jq+=2){
  var jqka=jqdmo(jq);
  var jqkb=jqdmo(jq+2);
  var lnmsjb=((jqka-mtk+11+11)%12+1)*1;
  var lnmsja=lnmsjb;
  var unmca=jqkb-jqka;
  if(lnmsjb==10)lnmsja="a";
  if(lnmsjb==11)lnmsja="b";
  if(lnmsjb==12)lnmsja="c";
  if(unmca==2)lnmsj+=lnmsja+","+0+","+0+",";
  }
  }else{
  if(lumt>=mwk&&myk==13){
  for(var jq=n1;jq<=n1+24;jq+=2){
  var jqka=jqdmo(jq);
  var jqkb=jqdmo(jq+2);
  var lnmsjb=((jqka-mtk+11+11)%12+1)*1;
  var lnmsja=lnmsjb;
  var unmca=jqkb-jqka;
  if(lnmsjb==10)lnmsja="a";
  if(lnmsjb==11)lnmsja="b";
  if(lnmsjb==12)lnmsja="c";
  if(unmca==2)lnmsj+=lnmsja+","+0+","+0+",";
  }
  }else{
  lnmsj=0+","+0+","+0;
  }}}
  }else{
  lnmsj="";
  //if(lumt<mtk&&mrka==13)lnmsj+="c"+","+0+","+0+",";
  if(lumt<mwk&&mxk==13)lnmsj+="c"+","+0+","+0+",";
  if(lumt>=mwk&&myk==13)lnmsj+="c"+","+0+","+0+",";
  }
  var va=lnmsj;if(lnmsj=="")va=0+","+0+","+0;
  var vv=va.substring(0,1);
  var vva=vv;
  if(vv=="a")vva=10;if(vv=="b")vva=11;if(vv=="c")vva=12;
  return vva;
  }

[此贴子已经被作者于2014-2-20 9:18:58编辑过]

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


加好友 发短信
等级:黑侠 帖子:603 积分:5315 威望:0 精华:4 注册:2008/4/21 19:06:00
  发帖心情 Post By:2014/2/19 13:37:00

  function lunMoa(JDae,a){//年、月數JDae=等效JD日
  var leapsz=new Array('0','3','4','5','6','7','8','9','10','11','12','1','2');
  var mjeJD=JDae;var m=0;var d=0;
  var lumt=lunData(mjeJD,5)*1;
  var jeaJD=2415021;//1900,1,1等效JD日
  var yey=floor((mjeJD-jeaJD)/365.25+1900);if(mjeJD>=2299239)yey=floor((mjeJD+10-jeaJD)/365.2425+1900);
  var y=yey*1;if(mjeJD<erJD(yey,1,1))y=yey-1*1;if(mjeJD>=erJD(yey+1,1,1))y=yey+1*1;
  for(var i=1;i<=12;i++){
  if(mjeJD>=erJD(y,i,1)&&mjeJD<erJD(y,i+1,1))m=i*1,d=mjeJD-erJD(y,i,1)+1*1;
  }
  var leapN=0;//從當年到-1187年的總閏月數
  if(y>=1950||y<-1187){
  var leapsu=nunesy(mjeJD,lumt)*1;//mjeJD=等效儒略日lumt=等效朔月總月數1900年正月=1
  var leapsua=leapsu;
  var leapNma=leapsua;
  var leapNa=0;if(leapNma>0)leapNa=1;
  var dzunMa=zqmo(y-2,24);
  var dzunMb=zqmo(y-1,24);
  var dzunMc=zqmo(y,24);var MonNa=0;
  var lunMzsu=dzunMb;//上個冬至日所在月到1900年,1,1總月數(閏月未扣除)
  if(lumt<dzunMb)lunMzsu=dzunMa;
  if(lumt>=dzunMc)lunMzsu=dzunMc;
  var dzrs=lunMzsu;
  var lmnza=dzrs+leapsz[leapsu]*1;
  if(lumt>=-43276&&lumt<-38168&&leapsu==12)lmnza=dzrs+leapsz[leapsu]*1-1;
  }else{var dzrs=0;
   }
  if(y>=-1187&&y<1950){
  leapN=leapNum(y);var lumq=-38180;
  var MonN=(lumt-lumq)-leapN;var MonNa=0;//當日到-1187年,2,7的總月數(扣除閏月)
  //史上修改月建開紿
  if(lumt>=-14076&&lumt<-14071)MonN=MonN+2,MonNa=2;//761,12,2--762,4,29
  if(lumt>=-14966&&lumt<-14830) MonN=MonN+2,MonNa=2;//700,12,15
  if(lumt>=-20565&&lumt<-20531&&liza==0) MonN++;//240,1,12
  if(lumt<-23205) MonN++;//23,11,2
  if(lumt<-23388) MonN--;//9,1,15
  if(lumt<-24771) MonN+=3;//-103,3,23
  if(lumt<-32417) MonN++;//-721,1,16
  if(lumt<-36425) MonN--;//-1046,12,30
  if(lumt<-43276) MonN--;//-1599,2,1//史上修改月建完
  var leapNk=0;if(leapMon(y)>0)leapNk=1;
  var lunM8aa=ifGrm(mjeJD);
  var luny=floor((MonN+9+leapNk)/12)-1188;if(lunM8aa<7&&m>2)luny=floor((MonN+9)/12)-1188;
  var lunM=round(rem(MonN-3-MonNa,12)+1);
  var leMon=leapMon(luny);if(leMon>0&&(y>=691&&y<701))leMon=leMon-MonNa;
  if(lunM8aa<7&&leMon>0&&lunM==(leMon+1)&&m>9&&lunM<5)
  lunM=(lunM-1)*(-1);
  else{
  if(lunM8aa<7&&leMon>0&&lunM<leMon&&m>=9&&lunM<5)
  lunM=lunM;
  else{
  if(lunM8aa<7&&leMon>0&&lunM>leMon&&m>=9&&lunM<5)
  lunM--;
  else{
  if(leMon>0&&lunM==leMon&&(m-lunM)<5&&(m-lunM)>-2||y>-150&&lunM8aa==7&&leapMon(y-1)>10&&lunM==leapMon(y-1)&&m<5||lunM8aa<7&&leMon==12&&lunM==leMon&&m>8)
  lunM*=-1;
  else{
  if(m<5&&lunM>9&&leapMon(y)||lunM<leMon)
  lunM++;//y年是閏月但當月未過閏月則前面多扣除了本年的閏月,這裏應當補償 
  if(lunM>=0)lunM=round(rem(lunM-1,12)+1);
  }}}}
  }else{//1950年後的
  var MonN=(lumt-(dzrs))+37;if(lumt>lmnza&&leapsu>0)MonN=(lumt-(dzrs))+37-1;//當日到上年冬至所在月的總月數(扣除閏月)-leapNa
  if(lumt<-38168) MonN++;//前1187,1,27
  if(lumt<-43276) MonN--;//前1600年2,1
  var lunMaq=round(rem(MonN-3,12)+1);
  var lunM=round(rem(MonN-3-MonNa,12)+1);
  var lunMk=round(rem(lunMaq-1,12)+1);if(lumt==lmnza&&leapsu==12)lunMk=round(rem(lunMaq-2,12)+1);
  if(lumt>=-43276&&lumt<-38168&&lumt==lmnza&&leapsu==12)lunMk=round(rem(lunMaq-3,12)+1);
  var luny=y;if(m<=3&&lunMk>=10)luny=y-1;if(m>8&&lunMk>=1&&lunMk<4)luny=y+1;
  if(lumt>=lmnza&&leapsu>0&&lumt<lmnza+1)lunM--;
  if(lumt==lmnza&&leapsu>0)lunM*=-1;
  if(lumt==lmnza&&leapsu==12&&lunM==0)lunM=-12*1;
  if(lunM>=0)lunM=round(rem(lunM-1,12)+1);
   }
  if(a==1){
  return luny;
  }else{
  return lunM;
  }}
  function luny(y,m,d){//取出農曆公元紀年數(公元前1年顯0);正月一日為界
  var JDe=erJD(y,m,d);
  return lunMoa(JDe,1);
  }
  function lunMon(y,m,d){//取出月數
  var JDe=erJD(y,m,d);
  return lunMoa(JDe,0);
  }
  function gaiyej(y1,m1,d1,lunM1,lunD1){//取出史上修改月建
  var v='';
  if(y1==240 && m1==1 && lunM1==12 && d1>lunD1 &&liza==0|| y1==240 && m1==2 && lunM1==12 && d1<lunD1 &&liza==0){v='改'}else{}
  if(y1==23 && m1==11 && lunM1==10 && d1>=lunD1 || y1==23 && m1==12 && lunM1==10 && d1<=lunD1 ){v='改'}else{}
  if(y1==9&&m1==1&&d1>14||y1==9&&m1==2&&d1<14){v='改'}else{}
  if(y1==-103 && m1>3 && lunM1<=4||y1==-103 && m1==3 && d1>=lunD1){v='改'}else{}
  if(y1==-721 && m1==1 && d1>lunD1||y1==-721 && m1==2 && d1<=lunD1){v='改'}else{}
  if(y1==-1599 && m1==2||y1==-1599 && m1==3&& d1<3||y1==-1046 && m1==12 && d1>lunD1||y1==-1045 && m1==1 && d1<=lunD1){v='改'}else{}
  return v;
  }
  function lunDate(y,m,d){//取出每月天數和日數,如2901;29代表這個月有29天01代表是初一。
  var jeJDa=erJD(y,m,d);
  return lunData(jeJDa,0);
  }
 //取出月相,日月食
  function shwStr(y,m,d){//含發生時間月相
  return rsys(y,m,d,1);
  }
  function shwStr1(y,m,d){//不含發生時間月相
  return rsys(y,m,d,2);
  }
  function zim(y,m,d,nms,ak){//曆家地支紀月(初一為界的);1=寅
  var jeJD=erJD(y,m,d);
  var lunM8aa=ifGrm(jeJD);var mk=0;var mk3=0;
  if(lunM8aa==1||lunM8aa==0||lunM8aa==6)mk=(y<680)?2:0;
  if(lunM8aa==3||lunM8aa==4||lunM8aa==5)mk=(y<680)?1:0;
  if(lunM8aa==2)mk=(y<680)?3:0;
  var mk2=abs(nms);var ii=mk2-mk;
  if(y<-1187&&ii==13)ii=12;ii=round(rem(ii-1,12)+1);
  var ii2=ii;if(nms<0&&ak==1)ii2=ii*(-1);
  return ii2;
  }
  function lundsMon(y,m,d){//農曆月大小。
  var jeJDb=erJD(y,m,d);var a96t=lunData(jeJDb,0);
  var a96=floor(a96t/100);
  var dszm=(a96==30)?'大':'小';
  return dszm;
  }
  function yGrma(y){//農曆年首等效朔月總月數1900年正月=1,農曆年首等效儒略日
  var lumt=((y-1901)*12+14+floor((y-1901)/2.715712));
  var MonN=lumt;var MonNa=lumt;
  if(lumt<-23205) MonN--;//23,11,2
  if(lumt<-23388) MonN++;//9,1,15
  if(lumt<-24771) MonN-=3;//-103,3,23
  if(lumt<-26754) MonN++;//-263,11,24
  if(lumt<-32417) MonN--;//-721,1,16
  if(lumt<-36420) MonN=MonNa;//-1046,12,30//-36425
  if(y==-709||y==-698)MonN=MonNa;
  var jeJD=floor(2415021+MonN*29.530588)+8;var MonNb=MonN;
  var zjms=lunMoa(jeJD,0);if(zjms==2)MonNb=MonN-1;if(zjms==-2)MonNb=MonN-2;if(zjms==-1)MonNb=MonN-1;if(zjms==3)MonNb=MonN-2;
  if(zjms==12)MonNb=MonN+1*1;if(zjms==-12)MonNb=MonN+1*1;if(zjms==11)MonNb=MonN+2*1;if(zjms==-11)MonNb=MonN+2*1;
  if(lumt>=-14076&&lumt<-14071&&zjms==12)MonNb=MonN-1;if(lumt>=-14076&&lumt<-14071&&zjms==1)MonNb=MonN-2;if(lumt>=-14076&&lumt<-14071&&zjms==-12)MonNb=MonN-2;
  if(lumt>=-14076&&lumt<-14071&&zjms==10)MonNb=MonN+1;if(lumt>=-14076&&lumt<-14071&&zjms==9)MonNb=MonN+2;if(lumt>=-14076&&lumt<-14071&&zjms==-10)MonNb=MonN+2;
  if(lumt>=-14968&&lumt<-14830&&zjms==12)MonNb=MonN-1;if(lumt>=-14968&&lumt<-14830&&zjms==1)MonNb=MonN-2;if(lumt>=-14968&&lumt<-14830&&lumt<-14071&&zjms==-12)MonNb=MonN-2;
  if(lumt>=-14968&&lumt<-14830&&zjms==10)MonNb=MonN+1;if(lumt>=-14968&&lumt<-14830&&zjms==9)MonNb=MonN+2;if(lumt>=-14968&&lumt<-14830&&zjms==-10)MonNb=MonN+2;
  var jcJD=floor(2415021+MonNb*29.530588)+8;
  var yey=floor((jcJD-2415021)/365.25+1900);if(jcJD>=2299239)yey=floor((jcJD+10-2415021)/365.2425+1900);
  var ys=yey;if(jcJD<erJD(yey,1,1))ys=yey-1;if(jcJD>=erJD(yey+1,1,1))ys=yey+1;
  var ms=floor((ys-1900)*12.3685);
  var cyjd=MonNb+','+lunDatb(ys,MonNb,ms);
  return cyjd;
   }//調用例:var yza=yGrma(y).split(',');yza[1]取日,yza[0]取月
  function nlnzycy(yy,ard){//農曆年首日
  var n0=24*(yy-1999)-6+(0);
  var jd=qiCalc(n0);//var jd=qi_high(n0);var jd=qiCalc(n0);
  var D='';var A='';var D3=0;var D4=0;var D5=0;var D6=365.25;
  var A=floor(jd)+60;
  if(A>=2299239)D5=10; if(A>=2299239)D6=365.2425;
  var y=floor((A+D5)/D6)-4712;var y1=y;
  var dd9=round(JD(y1,1,1,20,0,0,8)*1000)/1000;
  var dd92=round(JD(y1-1,1,1,20,0,0,8)*1000)/1000;  
  var u0D1=A-dd9+1;if(u0D1<=0)u0D1=A-dd92+1,y1=y-1;
  var sDt1=u0D1;
  var sD1=antiD0(y1,floor(sDt1));
  var M=floor(sD1/100);
  var Dt=sD1%100;
  var D=Dt;
  if(y==1582&&M==10&&D>=5)D=Dt+10;var nms2=lunMon(y1,M,D);var lunM5=zim(y1,M,D,nms2,1);
  var nms=nms2;if(yy>=690&&yy<701||yy==762)nms=(round(rem(nms2+2-1,12)+1));
  if(ard==1)nms=lunM5;var nlrs=lunDate(y1,M,D);var nlrd=floor(nlrs-floor(nlrs/100)*100);var a96=floor(nlrs/100);
  var ajrs=0;if(nms==12||nms==-12||nms==13)ajrs=(a96-nlrd+1)*(-1);if(nms>1&&nms<=11||nms==-1||nms==-2||nms==-3||nms==-4)ajrs=(abs(nms)-1)*29+nlrd-1;if(nms==-1)ajrs=29+nlrd-1;
  if(nms==1||ard==1&&(yy>=-1188&&yy<-103)){var ymd=A+1-nlrd;}else{
  var A=floor(jd)+60-ajrs;
  if(A>=2299239)D5=10; if(A>=2299239)D6=365.2425;
  var y=floor((A+D5)/D6)-4712;var y1=y;
  var dd9=round(JD(y1,1,1,20,0,0,8)*1000)/1000;
  var dd92=round(JD(y1-1,1,1,20,0,0,8)*1000)/1000;  
  var u0D1=A-dd9+1;if(u0D1<=0)u0D1=A-dd92+1,y1=y-1;
  var sDt1=u0D1;
  var sD1=antiD0(y1,floor(sDt1));
  var M=floor(sD1/100);
  var Dt=sD1%100;
  var D=Dt;
  if(y==1582&&M==10&&D>=5)D=Dt+10;
  var nlrsaL=lunDate(y1,M,D);var nlrd1=floor(nlrsaL-floor(nlrsaL/100)*100);
  var ymd=A+1-nlrd1;if(yy==-721)ymd=1457698;if(yy==-426)ymd=1565426;
  }
 return ymd;
 }

[此贴子已经被作者于2014-2-20 9:20:10编辑过]

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


加好友 发短信
等级:黑侠 帖子:603 积分:5315 威望:0 精华:4 注册:2008/4/21 19:06:00
  发帖心情 Post By:2014/2/19 13:38:00

///---八字干支--/////
function yGz(y,m,d,h,mi,zone){//年干支
 var mi=abs(mi);var zoneca=8/24-zone/24;if(zone=='')zoneca=0;
 var br=(D0(y,m,d)+(h+(mi+1)/60)/24)+zoneca;
 var rc=S(y,3,1);
 if(br<rc) //是否過立春
 y-=1;
 return round(rem(y-4,60));
}
function yGsz(y,m,d,h,mi,zone){//干支年公元數
 var mi=abs(mi);var zoneca=8/24-zone/24;if(zone=='')zoneca=0;
 var br=(D0(y,m,d)+(h+(mi+1)/60)/24)+zoneca;
 var rc=S(y,3,1);
 if(br<rc) //是否過立春
 y-=1;
 return y;
}
function ysay(y){//3元
  var sany=round(rem(round((y+2726)/60),3));
 return sany;
}
function syjy(y){//9運
  var nyi=round(rem(round((y+2726)/20+5),9));
 return nyi;
}
function mGz(y,m,d,h,mi,zone){//月干支
 var mi=abs(mi);var zoneca=8/24-zone/24;if(zone=='')zoneca=0;
 var djr=((D0(y,m,d)+(h+(mi+1)/60)/24))+zoneca;
 if(djr>=S(y,-3,1)&&djr<S(y,-1,1))
   var gzM=10;//月
 if(djr>=S(y,-1,1)&&djr<S(y,1,1))
   var gzM=11;
 if(djr>=S(y,1,1)&&djr<S(y,3,1))
   var gzM=12;
 if(djr>=S(y,3,1)&&djr<S(y,5,1))
   var gzM=1;
 if(djr>=S(y,5,1)&&djr<S(y,7,1))
   var gzM=2;
 if(djr>=S(y,7,1)&&djr<S(y,9,1))
   var gzM=3;
 if(djr>=S(y,9,1)&&djr<S(y,11,1))
   var gzM=4;
 if(djr>=S(y,11,1)&&djr<S(y,13,1))
   var gzM=5;
 if(djr>=S(y,13,1)&&djr<S(y,15,1))
   var gzM=6;
 if(djr>=S(y,15,1)&&djr<S(y,17,1))
   var gzM=7;
 if(djr>=S(y,17,1)&&djr<S(y,19,1))
   var gzM=8;
 if(djr>=S(y,19,1)&&djr<S(y,21,1))
   var gzM=9;
 if(djr>=S(y,21,1)&&djr<S(y,23,1))
   var gzM=10;
 if(djr>=S(y,23,1)&&djr<S(y,25,1))
   var gzM=11;
 if(m==12&&djr>=S(y,25,1))
  var gzM=12;
  var gzg=gan(yGz(y,m,d,mi,zone));
 if(djr<S(y,3,1))gzg=gan((yGz(y,m,d,mi,zone))+9);
  return round(rem(12*gzg+gzM+1,60));
}
function mGza1(y,gzM){//初一為界月干支
var yGz=round(rem(y-4,60));var v=gzM;
  return round(rem(12*gan(yGz)+v+1,60));
}
function dGz(y,m,d,h){//日干支
var gzD=(h<23)?erD(y,m,d):erD(y,m,d)+1;
  return round(rem(gzD+14,60));
 }
function hGz(y,m,d,h){//時干支
  var v=12*gan(dGz(y,m,d,h))+floor((h+1)/2);
  if(h==23)
    v-=12;
  return round(rem(v,60));
}
function yjx(y2){//年9星
 var vx=round(rem(y2-2,9));
  return vx;
}
function mjxin(y,gzM){//月9星
var yGz=mm=(y+4713)*12+gzM+6;var v=round(rem(mm,9));
  return v;
}
function jxd(y,m,d){//日九星
var jxt;var jx0,jx1,jx2,jx3,jx4;
var d0s=erJD(y,1,1);
var ds=erJD(y,m,d);//當前等效儒略日
var s_12=floor(S(y-1,12,1));//上年夏至
var s0=floor(S(y,0,1));//上年冬至
var s12=floor(S(y,12,1));//當年夏至
var s24=floor(S(y,24,1));//當年冬至
var s12a=floor(S(y+1,12,1));//下年夏至
var jxxz1=(erJD(y-1,1,1))+s_12-1;//上年夏至等效儒略日
var jk1=gzs(jxxz1);if(jk1==0)jk1=60;
var xzjz1=60-jk1;if(jk1<30)xzjz1=-jk1;//上年夏至最近甲子日反差
var jz1=(jxxz1+xzjz1);//上年夏至最近甲子等效儒略日
jx0=ds-jz1;
var jxdz1=floor(d0s+s0)-1;//上年冬至等效儒略日
var jk2=gzs(jxdz1);if(jk2==0)jk2=60;
var dzjz1=60-jk2;if(jk2<30)dzjz1=-jk2;//上年冬至最近甲子日反差
var jz2=(jxdz1+dzjz1);//上年冬至最近甲子等效儒略日
jx1=ds-jz2;
var jxxz2=floor(d0s+s12)-1;//當年夏至等效儒略日
var jk3=gzs(jxxz2);if(jk3==0)jk3=60;
var xzjz2=60-jk3;if(jk3<30)xzjz2=-jk3;//當年夏至最近甲子日反差
var jz3=(jxxz2+xzjz2);//當年夏至最近甲子等效儒略日
jx2=ds-jz3;
var jxdz2=floor(d0s+s24)-1;//當年冬至等效儒略日
var jk4=gzs(jxdz2);if(jk4==0)jk4=60;
var dzjz2=60-jk4;if(jk4<30)dzjz2=-jk4;//當年冬至最近甲子日反差
var jz4=(jxdz2+dzjz2);//當年冬至最近甲子等效儒略日
jx3=ds-jz4;
var jxxz3=(erJD(y+1,1,1)+s12a)-1;//下年夏至等效儒略日
var jk5=gzs(jxxz3);if(jk5==0)jk5=60;
var xzjz3=60-jk5;if(jk5<30)xzjz3=-jk5;//下年夏至最近甲子日反差
var jz5=(jxxz3+xzjz3);//下年夏至最近甲子等效儒略日
jx4=ds-jz5;
var jx1k=(jz2-jz1-180);var j1k=0;var j1ka=0;var jx2k=(jz3-jz2-180);var j2k=0;var j2ka=0;
var jx3k=(jz4-jz3-180);var j3k=0;var j3ka=0;var jx4k=(jz5-jz4-180);var j4k=0;var j4ka=0;
if(jx1k>=60)j1k=30;
if(jx1k==-60)j1k=-33;if(jx1k==-60)j1ka=6;
if(jx2k>=60&&jx1k==0)j2k=30;
if(jx2k==-60)j2k=-33;if(jx2k==-60||jx1k==-60)j2ka=9;
if(jx3k>=60&&jx2k==0)j3k=30;
if(jx3k==-60)j3k=-33;if(jx3k==-60||jx2k==-60)j3ka=6;
if(jx4k>=60&&jx3k==0)j4k=30;
if(jx4k==-60)j4k=-33;if(jx4k==-60||jx3k==-60)j4ka=9;

if(ds>=jz1)jxt=(jx0%9);if(ds>=jz2-j1k)jxt=(9-((jx1-j1ka)%9+1))%9;if(ds>=jz3-j2k)jxt=((jx2-j2ka)%9);if(ds>=jz4-j3k)jxt=(9-((jx3-j3ka)%9+1))%9;
if(ds>=jz5-j4k)jxt=((jx4-j4ka)%9);if(jxt<0&&y>=-4711)jxt=(jxt+9)%9;
var jxs=round(rem(jxt,9));
  return jxs;
}
function yesb(y){//年宿
  return round(rem(y-14,28));
}
function ysgj(y){//管局宿
var gj=28-rem((floor(((y+36)%56)/2)),28);if(gj==28)gj=0;
  return gj;
}
function mesb(y,gzM){//月宿
var mm=(y+4713)*12+gzM+7;
var v=round(rem(mm,28));if(gzM<0) v='';
  return v;
}
function desb(jd){//日宿
  return round(rem((jd+11),28));
}


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


加好友 发短信
等级:黑侠 帖子:603 积分:5315 威望:0 精华:4 注册:2008/4/21 19:06:00
  发帖心情 Post By:2014/2/19 13:38:00

//--------回曆--------//
function huili(y,m,d,h){
var n = ((erJD(y,m,d))-1948440);
var k = floor( (n+0.1)/10631 );
var A = n -k*10631;
var y = floor( (A+0.5)/354.366 );
var B = A - floor( y*354.366+0.5 );
var m = floor( (B+0.11)/29.51 );
var d = B - floor(29.5001*m+0.5);
var hy0=y+1+k*30;
var hy=hy0;if(hy0<=0)hy='前'+(-hy0+1);
var hm=m+1;
var hd=d+1;
var huli='回曆'+hy+'年'+hm+'月'+hd+'日';
return huli;
}

 


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


加好友 发短信
等级:黑侠 帖子:603 积分:5315 威望:0 精华:4 注册:2008/4/21 19:06:00
  发帖心情 Post By:2014/2/19 13:40:00

//--年號---//
//--農曆部份年號---//
function nianHao(y,m,ak){//農曆y年m月,ak為控制開關ak=1只顯示朝代、年號;ak=0或空顯示出朝代帝號、皇帝姓名、年號
var nh=new Array(//各朝代或分裂時期其中之一政權的年號,數字後無漢字的表示以後不顯示

"-7800000000",
"-2697000000,黃帝,,",
"-2069000000,[夏]禹,(姒文命),",
"-2024000000,[夏]啟,(姒啟),",
"-2014000000,[夏],,太康",
"-1986000000,[夏],,仲康",
"-1972000000,[夏],,相",
"-1944000000,[夏],,有窮政權 後羿",
"-1942000000,[夏],,有窮政權 寒浞",
"-1904000000,[夏],,少康",
"-1883000000,[夏],,杼",
"-1866000000,[夏],,槐",
"-1840000000,[夏],,芒",
"-1822000000,[夏],,泄",
"-1806000000,[夏],,不降",
"-1747000000,[夏],,扃",
"-1726000000,[夏],,廑",
"-1705000000,[夏],,孔甲",
"-1674000000,[夏],,臯",
"-1663000000,[夏],,發",
"-1652000000,[夏],,桀",
"-1599000000",
"-1587000000,[商]哀王,(子勝),外丙",
"-1585000000,[商]懿王,(子庸 ),仲壬",
"-1581000000,[商]太宗,(子至),太甲",
"-1569000000,[商]昭王,(子絢),沃丁",
"-1540000000,[商]宣王,(子辯),太庚",
"-1515000000,[商]敬王,(子高),小甲",
"-1498000000,[商]元王,(子密),雍己",
"-1485000000,[商]中宗,(子伷),太戊",
"-1410000000,[商]孝成王,(子莊),仲丁",
"-1399000000,[商]思王,(子發),外壬",
"-1384000000,[商]前平王,(子整),河亶甲",
"-1375000000,[商]穆王,(子滕),祖乙",
"-1356000000,[商]桓王,(子旦),祖辛",
"-1340000000,[商]僖王,(子逾),沃甲",
"-1335000000,[商]莊王,(子新),祖丁",
"-1326000000,[商]頃王,(子更),南庚",
"-1320000000,[商]悼王,(子和),陽甲",
"-1313000000,[商]世祖,(子旬),盤庚",
"-1271000000,[商]章王,(子頌),小辛",
"-1250000000,[商]惠王,(子斂),小乙",
"-1249000000,[商]高宗,(子昭),武丁",
"-1190000000,[商]後平王,(子躍),祖庚",
"-1188000000,[商]世宗,(子載),祖甲",
"-1155000000,[商]甲宗,(子先),廩辛",
"-1147000000,[商]康祖,(子囂),庚丁",
"-1146000000,[商]武祖,(子瞿),武乙",
"-1111000000,[商]匡王,(子托),文丁",
"-1100000000,[商]德王,(子羨),帝乙",
"-1074000000,[商]紂王,(子壽),帝辛",
"-1045000000",
"-1041000000,[西周]成王,(姬誦),",
"-1019000000,[西周]康王,(姬釗),",
"-0994000000,[西周]昭王,(姬瑕),",
"-0975000000,[西周]穆王,(姬滿),",
"-0921000000,[西周]共王,(姬繄[yī]扈),",
"-0898000000,[西周]懿王,(姬囏 [jiān]),",
"-0890000000,[西周]孝王,(姬辟方),",
"-0884000000,[西周]夷王,(姬燮[xiè]),",
"-0876000000,[西周]厲王,(姬胡),",
"-0840000000,[西周]厲王,(姬胡), [共和]",
"-0826000000,[西周]宣王,(姬靜),",
"-0780000000,[西周]幽王,(姬宮湦[shēng]),",
"-0769000000,[東周]平王,(姬宜臼),",
"-0718000000,[東周]桓王,(姬林),",
"-0695000000,[東周]莊王,(姬佗[tuó]),",
"-0680000000,[東周]釐王,(姬胡齊),",
"-0675000000,[東周]惠王,(姬閬[làng]),",
"-0650000000,[東周]襄王,(姬鄭),",
"-0617000000,[東周]頃王,(姬壬臣),",
"-0611000000,[東周]匡王,(姬班),",
"-0605000000,[東周]定王,(姬瑜),",
"-0584000000,[東周]簡王,(姬夷),",
"-0570000000,[東周]靈王,(姬泄心),",
"-0543000000,[東周]景王,(姬貴),",
"-0519000000,[東周]悼王,(姬猛),",
"-0518000000,[東周]敬王,(姬匄[gài]),",
"-0474000000,[東周]元王,(姬仁),",
"-0467000000,[東周]貞定王,(姬介),",
"-0440000000,[東周]哀王,(姬去疾) 思王(姬叔),",
"-0439000000,[東周]考王,(姬嵬[wéi]),",
"-0424000000,[東周]威烈王,(姬午),",
"-0400000000,[東周]安王,(姬驕),",
"-0374000000,[東周]烈王,(姬喜),",
"-0367000000,[東周]顯王,(姬扁),",
"-0319000000,[東周]慎靚[jìng]王,(姬定),",
"-0313000000,[東周]赧[nǎn]王,(姬延),",
"-0254000000",
"-0249000000,[秦]孝文王,(嬴柱),",
"-0248000000,[秦]莊襄王,(嬴子楚),",
"-0245000000,[秦]始皇帝,(嬴政),",
"-0208000000,[秦]二世皇帝,(嬴胡亥),",
"-0205000000,[西漢]高帝,(劉邦),",
"-0193000000,[西漢]惠帝,(劉盈),",
"-0186000000,[西漢]高後,(呂雉),",
"-0178000000,[西漢]文帝,(劉恒),",
"-0162000000,[西漢]文帝,(劉恒), 後元",
"-0155000000,[西漢]景帝,(劉啟), 前元",
"-0148000000,[西漢]景帝,(劉啟), 中元",
"-0142000000,[西漢]景帝,(劉啟),(後)後元",
"-0139000000,[西漢]武帝,(劉徹), 建元",
"-0133000000,[西漢]武帝,(劉徹), 元光",
"-0127000000,[西漢]武帝,(劉徹), 元朔",
"-0121000000,[西漢]武帝,(劉徹), 元狩",
"-0115000000,[西漢]武帝,(劉徹), 元鼎",
"-0109000000,[西漢]武帝,(劉徹), 元封",
"-0103000000,[西漢]武帝,(劉徹), 太初",
"-0099000000,[西漢]武帝,(劉徹), 天漢",
"-0095000000,[西漢]武帝,(劉徹), 太始",
"-0091000000,[西漢]武帝,(劉徹), 征和",
"-0087000000,[西漢]武帝,(劉徹), 後元",
"-0085000000,[西漢]昭帝,(劉弗陵), 始元",
"-0079080000,[西漢]昭帝,(劉弗陵), 元鳳",
"-0073000000,[西漢]昭帝,(劉弗陵), 元平",
"-0072000000,[西漢]宣帝,(劉詢), 本始",
"-0068000000,[西漢]宣帝,(劉詢), 地節",
"-0064000000,[西漢]宣帝,(劉詢), 元康",
"-0060030000,[西漢]宣帝,(劉詢), 神爵",
"-0056000000,[西漢]宣帝,(劉詢), 五鳳",
"-0052000000,[西漢]宣帝,(劉詢), 甘露",
"-0048000000,[西漢]宣帝,(劉詢), 黃龍",
"-0047000000,[西漢]元帝,(劉奭[shì]), 初元",
"-0042000000,[西漢]元帝,(劉奭[shì]), 永光",
"-0037000000,[西漢]元帝,(劉奭[shì]), 建昭",
"-0032000000,[西漢]元帝,(劉奭[shì]), 竟寧",
"-0031000000,[西漢]成帝,(劉驁[ào]), 建始",
"-0027030000,[西漢]成帝,(劉驁[ào]), 河平",
"-0023000000,[西漢]成帝,(劉驁[ào]), 陽朔",
"-0019000000,[西漢]成帝,(劉驁[ào]), 鴻嘉",
"-0015000000,[西漢]成帝,(劉驁[ào]), 永始",
"-0011000000,[西漢]成帝,(劉驁[ào]), 元延",
"-0007000000,[西漢]成帝,(劉驁[ào]), 綏和",
"-0005000000,[西漢]哀帝,(劉欣), 建平",
"-0001000000,[西漢]哀帝,(劉欣), 元壽",
"00001000000,[西漢]平帝,(劉衍), 元始",
"00006000000,[西漢]孺子嬰,(王莽攝政), 居攝",
"00008110000,[西漢]孺子嬰,(王莽攝政), 初始",
"00009000000,[新]王莽,, 始建國",
"00014000000,[新]王莽,, 天鳳",
"00020000000,[新]王莽,, 地皇",
"00023020000,[西漢]更始帝,(劉玄), 更始",

"00025060000,[東漢]光武帝,(劉秀), 建武",
"00056040000,[東漢]光武帝,(劉秀), 建武中元",
"00058000000,[東漢]明帝,(劉莊), 永平",
"00076000000,[東漢]章帝,(劉炟[dá]), 建初",
"00084080000,[東漢]章帝,(劉炟[dá]), 元和",
"00087070000,[東漢]章帝,(劉炟[dá]), 章和",
"00089000000,[東漢]和帝,(劉肇), 永元",
"00105040000,[東漢]和帝,(劉肇), 元興",
"00106000000,[東漢]殤[shāng]帝,(劉隆), 延平",
"00107000000,[東漢]安帝,(劉祜[hù]), 永初",
"00114000000,[東漢]安帝,(劉祜[hù]), 元初",
"00120040000,[東漢]安帝,(劉祜[hù]), 永寧",
"00121070000,[東漢]安帝,(劉祜[hù]), 建光",
"00122030000,[東漢]安帝,(劉祜[hù]), 延光",
"00126000000,[東漢]順帝,(劉保), 永建",
"00132030000,[東漢]順帝,(劉保), 陽嘉",
"00136000000,[東漢]順帝,(劉保), 永和",
"00142000000,[東漢]順帝,(劉保), 漢安",
"00144040000,[東漢]順帝,(劉保), 建康",
"00145000000,[東漢]沖帝,(劉炳), 永憙[xī](嘉)",
"00146000000,[東漢]質帝,(劉纘[zuǎn]), 本初",
"00147000000,[東漢]桓帝,(劉誌), 建和",
"00150000000,[東漢]桓帝,(劉誌), 和平",
"00151000000,[東漢]桓帝,(劉誌), 元嘉",
"00153050000,[東漢]桓帝,(劉誌), 永興",
"00155000000,[東漢]桓帝,(劉誌), 永壽",
"00158060000,[東漢]桓帝,(劉誌), 延熹",
"00167060000,[東漢]桓帝,(劉誌), 永康",
"00168000000,[東漢]靈帝,(劉宏), 建寧",
"00172050000,[東漢]靈帝,(劉宏), 熹平",
"00178030000,[東漢]靈帝,(劉宏), 光和",
"00184120000,[東漢]靈帝,(劉宏), 中平",
"00190000000,[東漢]獻帝,(劉協), 初平",
"00194000000,[東漢]獻帝,(劉協), 興平",
"00196000000,[東漢]獻帝,(劉協), 建安",
"00220030000,[東漢]獻帝,(劉協), 延康",
"00220100000,[魏]文帝,(曹丕), 黃初",
"00227000000,[魏]明帝,(曹叡[ruì]), 太和",
"00233020000,[魏]明帝,(曹叡[ruì]), 青龍",
"00237030000,[魏]明帝,(曹叡[ruì]), 景初",
"00240000000,[魏]齊王,(曹芳), 正始",
"00249040000,[魏]齊王,(曹芳), 嘉平",
"00254100000,[魏]高貴鄉公,(曹髦[máo]), 正元",
"00256060000,[魏]高貴鄉公,(曹髦[máo]), 甘露",
"00260060000,[魏]元帝,(曹奐[huàn]), 景元",
"00264050000,[魏]元帝,(曹奐[huàn]), 鹹熙",

"00265120000,[西普]武帝,(司馬炎), 泰始",
"00275000000,[西普]武帝,(司馬炎), 鹹寧",
"00280040000,[西普]武帝,(司馬炎), 太康",
"00290000000,[西普]武帝,(司馬炎), 太熙",
"00290040000,[西普]惠帝,(司馬衷), 永熙",
"00291000000,[西普]惠帝,(司馬衷), 永平",
"00291030000,[西普]惠帝,(司馬衷), 元康",
"00300000000,[西普]惠帝,(司馬衷), 永康",
"00301040000,[西普]惠帝,(司馬衷), 永寧",
"00302120000,[西普]惠帝,(司馬衷), 太安",
"00304000000,[西普]惠帝,(司馬衷), 永安",
"00304070000,[西普]惠帝,(司馬衷), 建武",
"00304110000,[西普]惠帝,(司馬衷), 永安",
"00304120000,[西普]惠帝,(司馬衷), 永興",
"00306060000,[西普]惠帝,(司馬衷), 光熙",
"00307000000,[西普]懷帝,(司馬熾[chì]), 永嘉",
"00313040000,[西普]湣[mǐn]帝,(司馬鄴[yè]), 建興",
"00317030000,[東晉]元帝,(司馬睿[ruì]), 建武",
"00318000000,[東晉]元帝,(司馬睿[ruì]), 大興",
"00322120000,[東晉]元帝,(司馬睿[ruì]), 永昌",///閏11改元
"00323000000,[東晉]明帝,(司馬紹), 太寧",
"00325090002,[東晉]成帝,(司馬衍), 太寧",///成帝閏8即位,未改元。
"00326020000,[東晉]成帝,(司馬衍), 鹹和",
"00335000000,[東晉]成帝,(司馬衍), 鹹康",
"00343000000,[東晉]康帝,(司馬嶽), 建元",
"00345000000,[東晉]穆帝,(司馬聃[dān]), 永和",
"00357000000,[東晉]穆帝,(司馬聃[dān]), 升平",
"00362000000,[東晉]哀帝,(司馬丕[pī]), 隆和",
"00363020000,[東晉]哀帝,(司馬丕[pī]), 興寧",
"00366000000,[東晉]海西公,(司馬奕[yì]), 太和",
"00371110000,[東晉]簡文帝,(司馬昱[yù]), 鹹安",
"00373000000,[東晉]孝武帝,(司馬曜[yào]), 寧康",
"00376000000,[東晉]孝武帝,(司馬曜[yào]), 太元",
"00397000000,[東晉]安帝,(司馬德宗), 隆安",
"00402000000,[東晉]安帝,(司馬德宗), 元興",
"00405000000,[東晉]安帝,(司馬德宗), 義熙",
"00419000000,[東晉]恭帝,(司馬德文), 元熙",
"00420060000,[宋]武帝,(劉裕), 永初",
"00423000000,[宋]少帝,(劉義符), 景平",
"00424080000,[宋]文帝,(劉義隆), 元嘉",
"00454000000,[宋]孝武帝,(劉駿), 孝建",
"00457000000,[宋]孝武帝,(劉駿), 大明",
"00465000000,[宋]前廢帝,(劉子業), 永光",
"00465080000,[宋]前廢帝,(劉子業), 景和",
"00465120000,[宋]明帝,(劉彧[yù]), 泰始",
"00472000000,[宋]明帝,(劉彧[yù]), 泰豫",
"00473000000,[宋]後廢帝,(劉昱[yù]), 元徽",
"00477000000,[宋]順帝,(劉凖), 昇明",

[此贴子已经被作者于2014-2-20 12:55:25编辑过]

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


加好友 发短信
等级:黑侠 帖子:603 积分:5315 威望:0 精华:4 注册:2008/4/21 19:06:00
  发帖心情 Post By:2014/2/19 13:41:00


"00479040000,[齊]高帝,(蕭道成), 建元",
"00483000000,[齊]武帝,(蕭賾[zé]), 永明",
"00494000000,[齊]郁[yù]林王,(蕭昭業), 隆昌",
"00494070000,[齊]海陵王,(蕭昭文)[7月], 延興",
"00494100000,[齊]明帝,(蕭鸞), 建武",
"00498040000,[齊]明帝,(蕭鸞), 永泰",
"00499000000,[齊]東昏侯,(蕭寶卷), 永元",
"00501030000,[齊]和帝,(蕭寶融), 中興",

"00502040000,[梁]武帝,(蕭衍), 天監",
"00520000000,[梁]武帝,(蕭衍), 普通",
"00527030000,[梁]武帝,(蕭衍), 大通",
"00529100000,[梁]武帝,(蕭衍), 中大通",
"00535000000,[梁]武帝,(蕭衍), 大同",
"00546040000,[梁]武帝,(蕭衍), 中大同",
"00547040000,[梁]武帝,(蕭衍), 太清",
"00550000000,[梁]簡文帝,(蕭綱), 大寶",
"00552110000,[梁]元帝,(蕭繹), 承聖",
"00555100000,[梁]敬帝,(蕭方智), 紹泰",
"00556090000,[梁]敬帝,(蕭方智), 太平",

"00557100000,[陳]武帝,(陳霸先), 永定",
"00560000000,[陳]文帝,(陳蒨[qiàn]), 天嘉",
"00566020000,[陳]文帝,(陳蒨[qiàn]), 天康",
"00567000000,[陳]廢帝,(陳伯宗)(臨海王), 光大",
"00569000000,[陳]宣帝,(陳頊[xū]), 太建",
"00583000000,[陳]後主,(陳叔寶), 至德",
"00587000000,[陳]後主,(陳叔寶), 禎明",

"00590000009,[隋]文帝,(楊堅), 開皇",
"00601000000,[隋]文帝,(楊堅), 仁壽",
"00605000000,[隋]煬帝,(楊廣), 大業",
"00617110000,[隋]恭帝,(楊侑), 義寧",

"00618050000,[唐]高祖,(李淵), 武德",
"00627000000,[唐]太宗,(李世民), 貞觀",
"00650000000,[唐]高宗,(李治), 永徽",
"00656000000,[唐]高宗,(李治), 顯慶",
"00661030000,[唐]高宗,(李治), 龍朔",
"00664000000,[唐]高宗,(李治), 麟德",
"00666000000,[唐]高宗,(李治), 乾封",
"00668030000,[唐]高宗,(李治), 總章",
"00670030000,[唐]高宗,(李治), 鹹亨",
"00674080000,[唐]高宗,(李治), 上元",
"00676110000,[唐]高宗,(李治), 儀鳳",
"00679060000,[唐]高宗,(李治), 調露",
"00680080000,[唐]高宗,(李治), 永隆",
"00681090000,[唐]高宗,(李治), 開耀",
"00682020000,[唐]高宗,(李治), 永淳",
"00683120000,[唐]高宗,(李治), 弘道",
"00684000000,[唐]中宗,(李顯又名哲), 嗣聖",
"00684020000,[唐]睿宗,(李旦), 文明",
"00684090000,[唐]武後,(武曌), 光宅",
"00685000000,[唐]武後,(武曌), 垂拱",
"00689000000,[唐]武後,(武曌),永昌",
"00690000000,[武周]武則天,, 載初",
"00690110000,[武周]武則天,, 天授",
"00692060000,[武周]武則天,, 如意",
"00692110000,[武周]武則天,, 長壽",
"00694070000,[武周]武則天,, 延載",
"00695000000,[武周]武則天,, 證聖",
"00695110000,[武周]武則天,, 天冊萬歲",
"00696020000,[武周]武則天,, 萬歲登封",
"00696050000,[武周]武則天,, 萬歲通天",
"00697110000,[武周]武則天,, 神功",
"00698000000,[武周]武則天,, 聖曆",
"00700070000,[武周]武則天,, 久視",
"00701000000,[武周]武則天,, 大足",
"00701100000,[武周]武則天,, 長安",
"00705000000,[唐]中宗,(李顯又名哲), 神龍",
"00707090000,[唐]中宗,(李顯又名哲), 景龍",
"00710070000,[唐]睿宗,(李旦), 景雲",
"00712050000,[唐]睿宗,(李旦), 延和",
"00712080000,[唐]玄宗,(李隆基), 先天",
"00713120000,[唐]玄宗,(李隆基), 開元",
"00742000000,[唐]玄宗,(李隆基), 天寶",
"00756070000,[唐]肅宗,(李亨), 至德",
"00758020000,[唐]肅宗,(李亨), 乾元",
"00760050000,[唐]肅宗,(李亨), 上元",///閏4改元
"00761090000,[唐]肅宗,(李亨), --",
"00763000000",
"00763070000,[唐]代宗,(李豫), 廣德",
"00765000000,[唐]代宗,(李豫), 永泰",
"00766110000,[唐]代宗,(李豫), 大曆",
"00780000000,[唐]德宗,(李適), 建中",
"00784000000,[唐]德宗,(李適), 興元",
"00785000000,[唐]德宗,(李適), 貞元",
"00805080000,[唐]順宗,(李誦), 永貞",
"00806000000,[唐]憲宗,(李純), 元和",
"00821000000,[唐]穆宗,(李恒), 長慶",
"00825120000,[唐]敬宗,(李湛), 寶曆",
"00827020000,[唐]文宗,(李昂), 大(太)和",
"00841000000,[唐]武宗,(李炎), 會昌",
"00847080000,[唐]宣宗,(李忱), 大中",
"00860110000,[唐]懿宗,(李漼), 鹹通",
"00874110000,[唐]僖宗,(李儇), 乾符",
"00880000000,[唐]僖宗,(李儇), 廣明",
"00881070000,[唐]僖宗,(李儇), 中和",
"00885030000,[唐]僖宗,(李儇), 光啟",
"00888020000,[唐]僖宗,(李儇), 文德",
"00889000000,[唐]昭宗,(李曄), 龍紀",
"00890000000,[唐]昭宗,(李曄), 大順",
"00892000000,[唐]昭宗,(李曄), 景福",
"00894000000,[唐]昭宗,(李曄), 乾寧",
"00898080000,[唐]昭宗,(李曄), 光化",
"00901040000,[唐]昭宗,(李曄), 天復",
"00904050000,[唐]昭宗,(李曄), 天祐",///閏4改元
"00904080000,[唐]衷帝,(李柷), 天祐",

"00907040000(五代),[後梁]太祖,(朱晃,又名溫、全忠), 開平",
"00911050000(五代),[後梁]太祖,(朱晃), 乾化",
"00913020002(五代),[後梁]末帝,(朱瑱), 乾化",
"00915110000(五代),[後梁]末帝,(朱瑱), 貞明",
"00921050000(五代),[後梁]末帝,(朱瑱), 龍德",

"00923040000(五代),[後唐]莊宗,(李存勖), 同光",
"00926040000(五代),[後唐]明宗,(李亶), 天成",
"00930020000(五代),[後唐]明宗,(李亶), 長興",
"00934000000(五代),[後唐]閔帝,(李從厚), 應順",
"00934040000(五代),[後唐]末帝,(李從珂), 清泰",

"00936110000(五代),[後晉]高祖,(石敬瑭), 天福",
"00942060006(五代),[後晉]出帝,(石重貴), 天福",
"00944070000,[後晉]出帝,(石重貴), 開運",

"00947020011(五代),[後漢]高祖,(劉暠), 天福",
"00948000000(五代),[後漢],(劉暠,本名知遠), 乾祐",
"00948020000(五代),[後漢]隱帝,(劉承祐), 乾祐",

"00951000000(五代),[後周]太祖,(郭威), 廣順",
"00954000000(五代),[後周]太祖,(郭威), 顯德",
"00954020000(五代),[後周]世宗,(柴榮), 顯德",
"00959060005(五代),[後周]恭帝,(柴宗訓), 顯德",

"00960000000,[北宋]太祖,(趙匡胤), 建隆",
"00963110000,[北宋]太祖,(趙匡胤), 乾德",
"00968110000,[北宋]太祖,(趙匡胤), 開寶",
"00976120000,[北宋],太宗(趙炅,本名匡義又名光義), 太平興國",
"00984110000,[北宋]太宗,(趙炅,本名匡義又名光義), 雍熙",
"00988000000,[北宋]太宗,(趙炅,本名匡義又名光義), 端拱",
"00990000000,[北宋]太宗,(趙炅,本名匡義又名光義), 淳化",
"00995000000,[北宋]太宗,(趙炅,本名匡義又名光義), 至道",
"00998000000,[北宋]真宗,(趙恒), 鹹平",
"01004000000,[北宋]真宗,(趙恒), 景德",
"01008000000,[北宋],真宗(趙恒), 大中祥符",
"01017000000,[北宋]真宗,(趙恒), 天禧",
"01022000000,[北宋]真宗,(趙恒), 乾興",
"01023000000,[北宋]仁宗,(趙禎), 天聖",
"01032110000,[北宋]仁宗,(趙禎), 明道",
"01034000000,[北宋]仁宗,(趙禎), 景祐",
"01038110000,[北宋]仁宗,(趙禎), 寶元",
"01040020000,[北宋]仁宗,(趙禎), 康定",
"01041110000,[北宋]仁宗,(趙禎), 慶曆",
"01049000000,[北宋]仁宗,(趙禎), 皇祐",
"01054030000,[北宋]仁宗,(趙禎), 至和",
"01056090000,[北宋]仁宗,(趙禎), 嘉祐",
"01064000000,[北宋]英宗,(趙曙), 治平",
"01068000000,[北宋]神宗,(趙頊), 熙寧",
"01078000000,[北宋]神宗,(趙頊), 元豐",
"01086000000,[北宋]哲宗,(趙煦), 元祐",
"01094040000,[北宋]哲宗,(趙煦), 紹聖",
"01098060000,[北宋]哲宗,(趙煦), 元符",
"01101000000,[北宋],徽宗(趙佶), 建中靖國",
"01102000000,[北宋]徽宗,(趙佶), 崇寧",
"01107000000,[北宋]徽宗,(趙佶), 大觀",
"01111000000,[北宋]徽宗,(趙佶), 政和",
"01118110000,[北宋]徽宗,(趙佶), 重和",
"01119020000,[北宋]徽宗,(趙佶), 宣和",
"01126000000,[北宋]欽宗,(趙桓), 靖康",
"01127050000,[南宋]高宗,(趙構), 建炎",
"01131000000,[南宋]高宗,(趙構), 紹興",
"01163000000,[南宋]孝宗,(趙昚), 隆興",
"01165000000,[南宋]孝宗,(趙昚), 乾道",
"01174000000,[南宋]孝宗,(趙昚), 淳熙",
"01190000000,[南宋]光宗,(趙惇), 紹熙",
"01195000000,[南宋]寧宗,(趙擴), 慶元",
"01201000000,[南宋]寧宗,(趙擴), 嘉泰",
"01205000000,[南宋]寧宗,(趙擴), 開禧",
"01208000000,[南宋]寧宗,(趙擴), 嘉定",
"01225000000,[南宋]理宗,(趙昀), 寶慶",
"01228000000,[南宋]理宗,(趙昀), 紹定",
"01234000000,[南宋]理宗,(趙昀), 端平",
"01237000000,[南宋]理宗,(趙昀), 嘉熙",
"01241000000,[南宋]理宗,(趙昀), 淳祐",
"01253000000,[南宋]理宗,(趙昀), 寶祐",
"01259000000,[南宋]理宗,(趙昀), 開慶",
"01260000000,[南宋]理宗,(趙昀), 景定",
"01265000000,[南宋]度宗,(趙禥), 鹹淳",
"01275000000,[南宋]恭帝,(趙&#15118;), 德祐",
"01276050000,[南宋]端宗,(趙昰), 景炎",
"01278050000,[南宋]帝昺,(趙昺), 祥興",
"01280000016,[元]世祖,(忽必烈), 至元",
"01295000000,[元]成宗,(孛兒只斤鐵木真鐵穆耳), 元貞",
"01297020000,[元]成宗,(孛兒只斤鐵木真鐵穆耳), 大德",
"01308000000,[元]武宗,(孛兒只斤鐵木真海山), 至大",
"01312000000,[元]仁宗,(孛兒只斤鐵木真愛育黎拔力八達), 皇慶",
"01314000000,[元]仁宗,(孛兒只斤鐵木真愛育黎拔力八達), 延祐",
"01321000000,[元]英宗,(孛兒只斤鐵木真碩德八剌), 至治",
"01324000000,[元]泰定帝,(孛兒只斤鐵木真也孫鐵木兒), 泰定",
"01328020000,[元],泰定帝(也孫鐵木兒), 致和",
"01328090000,[元] 天順,帝(阿速吉八) 天順、文宗(~圖帖睦爾), 天歷",
"01329000001,[元]文宗,, 天歷",
"01330000000,[元],, 至順",
"01333100000,[元]順帝,(孛兒只斤鐵木真妥懽帖睦爾), 元統",
"01335110000,[元]順帝,(孛兒只斤鐵木真妥懽帖睦爾), (後)至元",
"01341000000,[元]順帝,(孛兒只斤鐵木真妥懽帖睦爾), 至正",

"01368000000,[明]太祖,(朱元璋), 洪武",
"01399000000,[明]惠帝,(朱允炆), 建文",
"01403000000,[明]成祖,(朱棣), 永樂",
"01425000000,[明]仁宗,(朱高熾), 洪熙",
"01426000000,[明]宣宗,(朱瞻基), 宣德",
"01436000000,[明]英宗,(朱祁鎮), 正統",
"01450000000,[明]代宗,(朱祁鈺)(景帝), 景泰",
"01457000000,[明]英宗,(朱祁鎮), 天順",
"01465000000,[明]憲宗,(朱見深), 成化",
"01488000000,[明]孝宗,(朱祐樘), 弘治",
"01506000000,[明]武宗,(朱厚照), 正德",
"01522000000,[明]世宗,(朱厚熜), 嘉靖",
"01567000000,[明]穆宗,(朱載垕), 隆慶",
"01573000000,[明]神宗,(朱翊鈞), 萬曆",
"01620080000,[明]光宗,(朱常洛), 泰昌",
"01621000000,[明]熹宗,(朱由校), 天啟",
"01628000000,[明]思宗,(朱由檢), 崇禎",

"01644000000,[清]世祖,(愛新覺羅福臨), 順治",
"01662000000,[清]聖祖,(愛新覺羅玄燁), 康熙",
"01723000000,[清]世宗,(愛新覺羅胤禛), 雍正",
"01736000000,[清]高宗,(愛新覺羅弘歷), 乾隆",
"01796000000,[清]仁宗,(愛新覺羅颙琰), 嘉慶",
"01821000000,[清]宣宗,(愛新覺羅旻寧), 道光",
"01851000000,[清]文宗,(愛新覺羅奕詝), 鹹豐",
"01862000000,[清]穆宗,(愛新覺羅載淳), 同治",
"01875000000,[清]德宗,(愛新覺羅載湉), 光緒",
"01909000000,[清](溥儀),, 宣統",
"01912000000,[中國],國民黨, 民國",
"01949081948,[中國],, 公元");


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


加好友 发短信
等级:黑侠 帖子:603 积分:5315 威望:0 精华:4 注册:2008/4/21 19:06:00
  发帖心情 Post By:2014/2/19 13:41:00


var alt=new Array(//新舊朝代或分裂時其它政權之一的年號,數字後無漢字的該朝當年滅亡以後不顯示
"-7800000000",
"00222100000[吳]大帝,(孫權), 黃武",
"00229040000[吳]大帝,(孫權), 黃龍",
"00232000000[吳]大帝,(孫權), 嘉禾",
"00238090000[吳]大帝,(孫權), 赤烏",
"00251050000[吳]大帝,(孫權), 太元",
"00252020000[吳]大帝,(孫權), 神鳳",
"00252040000[吳]會稽王,(孫亮), 建興",
"00254000000[吳]會稽王,(孫亮), 五鳳",
"00256100000[吳]會稽王,(孫亮), 太平",
"00258100000[吳]景帝,(孫休), 永安",
"00264070000[吳]烏程侯,(孫皓), 元興",
"00265040000[吳]烏程侯,(孫皓), 甘露",
"00266080000[吳]烏程侯,(孫皓), 寶鼎",
"00269100000[吳]烏程侯,(孫皓), 建衡",
"00272000000[吳]烏程侯,(孫皓), 鳳凰",
"00275000000[吳]烏程侯,(孫皓), 天冊",
"00276070000[吳]烏程侯,(孫皓), 天璽",
"00277000000[吳]烏程侯,(孫皓), 天紀",
"00280030000",
"00386000000[北魏]道武帝,(拓跋登珪), 登國",
"00396070000[北魏]道武帝,(拓跋登珪), 皇始",
"00398120000[北魏]道武帝,(拓跋登珪), 天興",
"00404100000[北魏]道武帝,(拓跋登珪), 天賜",
"00409100000[北魏]明元帝,(拓跋嗣), 永興",
"00414000000[北魏]明元帝,(拓跋嗣), 神瑞",
"00416040000[北魏]明元帝,(拓跋嗣), 泰常",
"00424000000[北魏]太武帝,(拓跋燾), 始光",
"00428020000[北魏]太武帝,(拓跋燾), 神&#19749;[jiā]",
"00432000000[北魏]太武帝,(拓跋燾), 延和",
"00435000000[北魏]太武帝,(拓跋燾), 太延",
"00440060000[北魏]太武帝,(拓跋燾), 太平真君",
"00451060000[北魏]太武帝,(拓跋燾), 正平",
"00452030000[北魏]南安王,(拓跋余), 永(承)平",
"00452100000[北魏]文成帝,(拓跋濬[jùn]), 興安",
"00454070000[北魏]文成帝,(拓跋濬[jùn]), 興光",
"00455060000[北魏]文成帝,(拓跋濬[jùn]), 太安",
"00460000000[北魏]文成帝,(拓跋濬[jùn]), 和平",
"00466000000[北魏]獻文帝,(拓跋弘), 天安",
"00467080000[北魏]獻文帝,(拓跋弘), 皇興",
"00471080000[北魏]孝文帝,(拓跋宏), 延興",
"00476060000[北魏]孝文帝,(拓跋宏), 承明",
"00477000000[北魏]孝文帝,(拓跋[元]宏), 太和",
"00500000000[北魏]宣武帝,(元恪[kè]), 景明",
"00504000000[北魏]宣武帝,(元恪[kè]), 正始",
"00508080000[北魏]宣武帝,(元恪[kè]), 永平",
"00512040000[北魏]宣武帝,(元恪[kè]), 延昌",
"00516000000[北魏]孝明帝,(元詡[xǔ]), 熙平",
"00518020000[北魏]孝明帝,(元詡[xǔ]), 神龜",
"00520070000[北魏]孝明帝,(元詡[xǔ]), 正光",
"00525060000[北魏]孝明帝,(元詡[xǔ]), 孝昌",
"00528000000[北魏]孝明帝,(元詡[xǔ]), 武泰",
"00528040000[北魏]孝莊帝,(元子攸), 建義",
"00528090000[北魏]孝莊帝,(元子攸), 永安",
"00530100000[北魏]長廣王,(元曄[yè]), 建明",
"00531020000[北魏]節閔[mǐn]帝,(元恭), 普泰",
"00531100000[北魏]安定王,(元朗), 中興",
"00532040000[北魏]孝武帝,(元脩[xiū]), 太昌",
"00532120000[北魏]孝武帝,(元脩[xiū]), 永興 永熙",
"00533000001[北魏]孝武帝,(元脩[xiū]), 永熙",
"00535000000[西魏]文帝,(元寶炬), 大統",
"00552000000[西魏]廢帝,(元欽), --",
"00554000000[西魏]恭帝,(元廓), --",
"00557000000[北周]孝閔[mǐn]帝,(宇文覺), --",
"00557090000[北周]明帝,(宇文毓[yù]), --",
"00559080000[北周]明帝,(宇文毓[yù]), 武成",
"00561000000[北周]武帝,(宇文邕[yōng]), 保定",
"00566000000[北周]武帝,(宇文邕[yōng]), 天和",
"00572030000[北周]武帝,(宇文邕[yōng]), 建德",
"00578030000[北周]武帝,(宇文邕[yōng]), 宣政",
"00579000000[北周]宣帝,(宇文赟[yūn]), 大成",
"00579020000[北周]文帝,(宇文闡), 大象",
"00581020000[隋]文帝,(楊堅), 開皇",
"00590000000",
"00907000000[契丹]太祖,(耶律阿保機),",
"00916120000[契丹],太祖(耶律阿保機), 神冊",
"00922020000[契丹],太祖(耶律阿保機), 天贊",
"00926020000[契丹],太祖(~阿保機), 天顯",
"00927110001[遼]太宗,(~德光), 天顯",
"00938110000[遼]太宗,(耶律德光), 會同",
"00947020000[遼]太宗,(耶律德光), 大同",
"00947090000[遼]世宗,(耶律阮), 天祿",
"00951090000[遼]穆宗,(耶律璟), 應曆",
"00969020000[遼]景宗,(耶律賢), 保寧",
"00979110000[遼]景宗,(耶律賢), 乾亨",
"00982090003[遼]聖宗,(~隆緒), 乾亨",
"00983060000[遼]聖宗,(耶律隆緒), 統和",
"01012110000[遼]聖宗,(耶律隆緒), 開泰",
"01021110000[遼]聖宗,(耶律隆緒), 太平",
"01031060000[遼]興宗,(耶律宗真), 景福",
"01032110000[遼]興宗,(耶律宗真), 重熙",
"01055080000[遼]道宗,(耶律洪基), 清寧",
"01065000000[遼]道宗,(耶律洪基), 鹹雍",
"01075000000[遼],道宗(耶律洪基), 大(太)康",
"01085000000[遼]道宗,(耶律洪基), 大安",
"01095000000[遼],道宗(耶律洪基), 壽昌(隆)",
"01101020000[遼],天祚帝(耶律延禧), 乾統",
"01111000000[遼],天祚帝(耶律延禧), 天慶",
"01121000000[遼],天祚帝(耶律延禧), 保大",/////
"01123090000[金]太宗,(完顏晟), 天會",
"01135000012[金]熙宗,(完顏亶), 天會",
"01138000000[金]熙宗,(完顏亶), 天眷",
"01141000000[金]熙宗,(完顏亶), 皇統",
"01149120000[金],海陵王(完顏亮), 天德",
"01153030000[金],海陵王(完顏亮), 貞元",
"01156020000[金],海陵王(完顏亮), 正隆",
"01161100000[金]世宗,(完顏雍), 大定",
"01190000000[金]章宗,(完顏璟), 明昌",
"01196110000[金]章宗,(完顏璟), 承安",
"01201000000[金]章宗,(完顏璟), 泰和",
"01209000000[金],衛紹王(完顏永濟), 大安",
"01212000000[金],衛紹王(完顏永濟), 崇慶",
"01213050000[金],衛紹王(~永濟), 至寧",
"01213090000[金]宣宗,(~珣), 貞祐",
"01217090000[金]宣宗,(完顏珣), 興定",
"01222080000[金]宣宗,(完顏珣), 元光",
"01224000000[金]哀宗,(完顏守緒), 正大",
"01232000000[金]哀宗,(完顏守緒),開興",
"01232040000[金],,天興",
"01234000000",
"01260050000[蒙古(元)]世祖,(孛兒只斤鐵木真忽必烈), 中統",
"01264080000[蒙古(元)]世祖,(忽必烈), 至元",
"01279000015[元]世祖,(忽必烈), 至元",
"01280000000",
"01645000000[南明]紹宗,(朱聿鍵), 隆武",
"01647000000[南明]桂王,(朱由榔), 永曆",
"01661000014[南明]延平武王,(鄭(朱)成功), 永曆",
"01662000015[南明]延平文王,(鄭經), 永曆",
"01681000034[南明]延平王,(鄭克塽), 永曆",
"01683000000",
"01949080037[中國臺灣]含金門等,, 民國"
);

var alt2=new Array(//新舊朝代或分裂時其它政權之一的年號,數字後無漢字以後不顯示
"-7800000000",
"00221040000[蜀漢]昭烈帝,(劉備), 章武",
"00223050000[蜀漢]後主,(劉禪[shàn]), 建興",
"00238000000[蜀漢]後主,(劉禪[shàn]), 延熙",
"00258000000[蜀漢]後主,(劉禪[shàn]), 景耀",
"00263080000[蜀漢]後主,(劉禪[shàn]), 炎興",
"00263110000",
"00534100000[東魏]孝靜帝,(元善見), 天平",
"00538000000[東魏]孝靜帝,(元善見), 元象",
"00539110000[東魏]孝靜帝,(元善見), 興和",
"00543000000[東魏]孝靜帝,(元善見), 武定",
"00550050000[北齊]文宣帝,(高洋), 天保",
"00560000000[北齊]廢帝,(高殷), 乾明",
"00560080000[北齊]孝昭帝,(高演), 皇建",
"00561110000[北齊]武成帝,(高湛), 太寧",
"00562040000[北齊]武成帝,(高湛), 河清",
"00565040000[北齊]後主,(高緯), 天統",
"00570000000[北齊]後主,(高緯), 武平",
"00576120000[北齊]後主,(高緯), 隆化",
"00577000000[北齊]幼主,(高恒), 承光",
"00578000000",
"01032000000[西夏]景宗,(李元昊), 顯道",
"01034070000[西夏]景宗,(李元昊), 廣運",
"01036120000[西夏]景宗,(李元昊), 大慶",
"01038100000[西夏]景宗,(李元昊), 天授禮法延祚",
"01049000000[西夏]毅宗,(李諒祚), 延嗣寧國",
"01050000000[西夏]毅宗,(李諒祚), 天祏垂聖",
"01053000000[西夏]毅宗,(李諒祚), 福聖承道",
"01057000000[西夏]毅宗,(李諒祚), 奲都",
"01063000000[西夏]毅宗,(李諒祚), 拱化",
"01068000000[西夏]惠宗,(李秉常), 乾道",
"01069000000[西夏]惠宗,(李秉常), 天賜禮盛國慶",
"01075000000[西夏]惠宗,(李秉常), 大安",
"01086070000[西夏]崇宗,(李乾順), 天儀治平",
"01090000000[西夏]崇宗,(李乾順), 天祐民安",
"01098000000[西夏]崇宗,(李乾順), 永安",
"01101000000[西夏]崇宗,(李乾順), 貞觀",
"01114000000[西夏]崇宗,(李乾順), 雍寧",
"01119000000[西夏]崇宗,(李乾順), 元德",
"01127040000[西夏]崇宗,(李乾順), 正德",
"01135000000[西夏]崇宗,(李乾順), 大德",
"01140000000[西夏]仁宗,(李仁孝), 大慶",
"01144000000[西夏]仁宗,(李仁孝), 人慶",
"01149000000[西夏]仁宗,(李仁孝), 天盛",
"01170000000[西夏]仁宗,(李仁孝), 乾祐",
"01194000000[西夏]桓宗,(李純佑), 天慶",
"01206000000[西夏]襄宗,(李安全), 應天",
"01210000000[西夏]襄宗,(李安全), 皇建",
"01211080000[西夏]神宗,(李遵頊), 光定",
"01223120000[西夏]獻宗,(李德旺), 乾定",
"01226070000[西夏]未主,(李睍), 寶義",
"01227070000"
);


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


加好友 发短信
等级:黑侠 帖子:603 积分:5315 威望:0 精华:4 注册:2008/4/21 19:06:00
  发帖心情 Post By:2014/2/19 13:41:00

var alt3=new Array(//新舊朝代分裂時其它政權的年號,數字後無漢字的表示該朝當年滅亡或當年以後不顯示出
"-7800000000",
"-1617000000[商]太祖,(子天乙),商湯",
"-1587000000",
"-1102000000[西周]文王,(姬昌),",
"-1052000000[西周]武王,(姬發),",
"-1041000000",
"-0305000000[秦]昭襄王,(嬴則,又名稷),",
"-0249000000",
"00762000000[唐]代宗,(李豫), 寶應",
"00763070000",
"01616000000[後金]太祖,(愛新覺羅努爾哈赤), 天命",
"01627000000[後金]太宗,(愛新覺羅皇太極), 天聰",
"01636040000[清]太宗,(愛新覺羅皇太極), 崇德",
"01644000000",
"01912001911公元,,",
"01949081948"
);
var alt5=new Array(//新舊朝代或分裂時其它政權之一的年號,數字後無漢字的表示該朝當年滅亡或當年以後不顯示出
"-7800000000",
"01115000000[金]太祖,(完顏旻,本名阿骨打), 收國",
"01117000000[金]太祖,(完顏旻,本名阿骨打), 天輔",
"01123090000",
"01123090002[遼]天祚帝,(耶律延禧), 保大",
"01125030000"
);
var nh9=new Array( //特別處理1912年後使用公元
"-7800000000",
"01206000000[蒙古(元)]太祖,(孛兒只斤鐵木真)(成吉思汗),",
"01228000022[蒙古(元)],(孛兒只斤鐵木真拖雷[監國]),太祖",
"01229000000[蒙古(元)]太宗,(窩闊臺),",
"01242000000[蒙古(元)]乃馬真後,(稱制),",
"01246070000[蒙古(元)]定宗,(貴由),",
"01249030000[蒙古(元)]海迷失後,(稱制),",
"01251060000[蒙古(元)]憲宗,(孛兒只斤鐵木真蒙哥),",
"01260050000",
"01644000000[南明]安宗,(朱由崧), 弘光",
"01646000000"
);
var alt6=new Array(//數字後無漢字的表示該朝當年滅亡或當年以後不顯示出
"-7800000000",
"-0899000000[秦]非子,,",
"-0856000000[秦]侯,,",
"-0846000000[秦]公伯,,",
"-0843000000[秦]仲,(贏仲),",
"-0820000000[秦]莊公,(贏其),",
"-0776000000[秦]襄公,(贏開),",
"-0764000000[秦]文公,,",
"-0714000000[秦]寧公,(贏立),",
"-0702000000[秦]出公,(贏曼),",
"-0696000000[秦]武公,(贏說),",
"-0676000000[秦]德公,(贏嘉),",
"-0674000000[秦]宣公,(贏恬),",
"-0662000000[秦]成公,(贏載),",
"-0658000000[秦]穆公,(贏任好),",
"-0619000000[秦]康公,(贏罃),",
"-0607000000[秦]共公,(贏貑),",
"-0602000000[秦]桓公,(贏榮),",
"-0575000000[秦]景公,(贏石),",
"-0535000000[秦]哀公,(贏籍),",
"-0499000000[秦]惠公,(贏寧),",
"-0489000000[秦]悼公,(贏盤),",
"-0475000000[秦]厲共公,(贏剌),",
"-0441000000[秦]躁公,(贏欣),",
"-0427000000[秦]懷公,(贏封),",
"-0423000000[秦]靈公,(贏肅),",
"-0413000000[秦]簡公,(贏悼子),",
"-0398000000[秦]惠公,(贏仁),",
"-0385000000[秦]出公,(贏昌),",
"-0383000000[秦]獻公,(贏師隰),",
"-0360000000[秦]孝公,(贏渠梁),",
"-0336000000[秦]惠文王,(贏駟),",
"-0329000000[秦]武王,(贏蕩),",
"-0305000000",
"00937000000[南唐]烈祖 ,(李昪),昪元",
"00943000000[南唐]元宗 ,(李璟),保大",
"00958000000[南唐]元宗 ,(李璟),中興",
"00959000000"
);
var alt7=new Array(//數字後無漢字的表示該朝當年滅亡或當年以後不顯示出
"-7800000000",
"-1045000000[魯]魯公,(姬伯禽),",
"-0997000000[魯]考公,(姬酋),",
"-0993000000[魯]煬公,(~熙),",
"-0987000000[魯]幽公,(~宰),",
"-0973000000[魯]魏公,(~晞),",
"-0923000000[魯]厲公,(~擢),",
"-0886000000[魯]獻公,(~具),",
"-0854000000[魯]真公,(~濞),",
"-0824000000[魯]武公,(~敖),",
"-0814000000[魯]懿公,(~戲),",
"-0805000000[魯]姬伯禦,,",
"-0795000000[魯]孝公,(~稱),",
"-0767000000[魯]惠公,(~弗涅),",
"-0721000000[魯]隱公,(~息姑),",
"-0710000000[魯]桓公,(~允),",
"-0692000000[魯]莊公,(~同),",
"-0660000000[魯]涽公,(~啟),",
"-0658000000[魯]厘公,(~申),",
"-0625000000[魯]文公,(~興),",
"-0607000000[魯]宣公,(~餒),",
"-0589000000[魯]成公,(~黑肱),",
"-0571000000[魯]襄公,(~午),",
"-0540000000[魯]昭公,(~稠),",
"-0508000000[魯]定公,(~宋),",
"-0493000000[魯]哀公,(~將),",
"-0466000000[魯]悼公,(~寧),",
"-0429000000[魯]元公,(~嘉),",
"-0408000000[魯]穆公,(~顯),",
"-0375000000[魯]共公,(~奮),",
"-0353000000[魯]康公,(~屯),",
"-0344000000[魯]景公,(~匽),",
"-0315000000[魯]平公,(~叔),",
"-0295000000[魯]文公,(~賈),",
"-0272000000[魯]頃公,(~讎),",
"-0254000000",
"00902000000[吳],(楊行密),天復",
"00904000000[吳],(楊行密),天祐",
"00905000001[吳],(楊渥),天祐",
"00908050004[吳],(楊隆演),天祐",
"00919040000[吳],(楊隆演),武義",
"00920050001[吳],(楊溥),武義",
"00921020000[吳],(楊溥),順義",
"00927110000[吳],(楊溥),乾貞",
"00929110000[吳],(楊溥),大和",
"00935050000[吳],(楊溥),天祚",
"00938000000"
);

var alt8=new Array(//數字後無漢字的表示該朝當年滅亡或當年以後不顯示出
"-7800000000",
"-1044000000[陳]胡公,(滿),",
"-0984000000[陳]申公,(犀侯),",
"-0959000000[陳]相公,(臯羊),",
"-0937000000[陳]孝公,(突),",
"-0903000000[陳]慎公,(圉戎),",
"-0853000000[陳]幽公,(寧),",
"-0830000000[陳]厘公,(孝),",
"-0794000000[陳]武公,(靈),",
"-0779000000[陳]夷公,(說),",
"-0776000000[陳]平公,(燮),",
"-0753000000[陳]文公,(圉),",
"-0743000000[陳]桓公,(鮑),",
"-0705000000[陳]厲公,(躍),",
"-0698000000[陳]莊公,(林),",
"-0691000000[陳]宣公,(杵臼),",
"-0646000000[陳]穆公,(款),",
"-0630000000[陳]共公,(朔),",
"-0612000000[陳]靈公,(平國),",
"-0597000000[陳]成公,(午),",
"-0567000000[陳]哀公,(弱),",
"-0532000000[陳]惠公,(吳),",
"-0504000000[陳]懷公,(柳),",
"-0500000000[陳]涽公,(越),",
"-0477000000",
"-0403000000[田齊]田和,(和),",
"-0382000000[田齊]侯剡,(剡),",
"-0373000000[田齊]桓公,(午),",
"-0355000000[田齊]威王,(因齊),",
"-0318000000[田齊]宣王,(辟疆),",
"-0299000000[田齊]涽王,(地),",
"-0282000000[田齊]襄王,(法章),",
"-0263000000[田齊]王建,(建),",
"-0220000000",
"00927000000[南漢]文帝 ,(劉&#40849;),大有",
"00942000000[南漢]殤帝 ,(劉玢),光天",
"00943000000[南漢]明孝帝 ,(劉晟),乾和",
"00958000000[南漢]後主 ,(劉鋹),大寶",
"00972000000"
);
var alt9=new Array(//數字後無漢字的表示該朝當年滅亡或當年以後不顯示出
"-7800000000",
"-0857000000[晉]靖侯,(姬宜臼),",
"-0839000000[晉]厘侯,(姬司徒),",
"-0821000000[晉]獻侯,(姬籍),",
"-0810000000[晉]穆侯,(姬費王),",
"-0783000000[晉]殤叔,,",
"-0779000000[晉]文侯,(姬仇),",
"-0744000000[晉]昭侯,(姬伯),",
"-0738000000[晉]孝侯,(姬平),",
"-0722000000[晉]鄂侯,(姬卻),",
"-0716000000[晉]哀侯,(姬光),",
"-0708000000[晉]姬小子,,",
"-0705000000[晉]姬涽,,",
"-0677000037[晉]武公,(姬稱),",
"-0675000000[晉]獻公,(姬詭諸),",
"-0649000000[晉]惠公,(姬夷吾),",
"-0635000000[晉]文公,(姬重耳),",
"-0626000000[晉]襄公,(姬驩),",
"-0619000000[晉]靈公,(姬夷臯),",
"-0605000000[晉]成公,(姬黑臀),",
"-0598000000[晉]景公,(姬據),",
"-0579000000[晉]厲公,(姬壽曼),",
"-0571000000[晉]悼公,(姬周),",
"-0556000000[晉]平公,(姬彪),",
"-0530000000[晉]昭公,(姬夷),",
"-0524000000[晉]頃公,(姬棄疾),",
"-0510000000[晉]定公,(姬午),",
"-0473000000[晉]出公,(姬鑿),",
"-0450000000[晉]哀公,(姬驕),",
"-0432000000[晉]幽公,(姬柳),",
"-0414000000[晉]烈公,(姬止),",
"-0387000000[晉]桓公,(姬頃),",
"-0368000000",
"00933000000[閩]太宗 ,(王延鈞),龍啟",
"00935000000[閩]太宗 ,(王延鈞),永和",
"00936000000[閩]康宗 ,(王繼鵬),通文",
"00939000000[閩]景宗 ,(王延羲),永隆",
"00943000000[閩]殷王 ,(王延政),天德",
"00945000000",
"00951000003[北漢]世祖 ,(劉崇),乾佑",
"00954000006[北漢]睿宗 ,(劉鈞),乾佑",
"00957000000[北漢]睿宗 ,(劉鈞),天會",
"00968000011[北漢]少主 ,(劉繼恩),天會",
"00969000012[北漢]英武帝 ,(劉繼元),天會",
"00974000000[北漢]英武帝 ,(劉繼元),廣運",
"00979000000"
);
var alt10=new Array(//數字後無漢字的表示該朝當年滅亡或當年以後不顯示出
"-7800000000",
"-0882000000[齊]胡公,(姜靜),",
"-0858000000[齊]獻公,(姜山),",
"-0849000000[齊]武公,(姜壽),",
"-0823000000[齊]歷公,(姜無忌),",
"-0814000000[齊]文公,(姜赤),",
"-0802000000[齊]成公,(姜脫),",
"-0793000000[齊]莊公,(姜購),",
"-0729000000[齊]嫠公,(姜祿父),",
"-0696000000[齊]襄公,(姜諸兒),",
"-0684000000[齊]桓公,(姜小白),",
"-0641000000[齊]孝公,(姜昭),",
"-0631000000[齊]昭公,(姜潘),",
"-0611000000[齊]懿公,(姜商人),",
"-0607000000[齊]惠公,(姜元),",
"-0597000000[齊]頃公,(姜無野),",
"-0580000000[齊]靈公,(姜環),",
"-0552000000[齊]莊公,(姜光),",
"-0546000000[齊]景公,(姜杵臼),",
"-0488000000[齊]晏儒子,(姜茶),",
"-0487000000[齊]悼公,(姜陽生),",
"-0483000000[齊]簡公,(姜任),",
"-0479000000[齊]平公,(姜驁),",
"-0454000000[齊]宣公,(姜積),",
"-0403000000[齊]康公,(姜貸),",
"-0377000000"
);
var alt11=new Array(//數字後無漢字的表示該朝當年滅亡或當年以後不顯示出
"-7800000000",
"-0516000000[趙]簡子,(鞅),",
"-0474000000[趙]襄子,(無恤),",
"-0423000000[趙]桓子,(嘉),",
"-0422000000[趙]獻侯,(浣),",
"-0407000000[趙]烈侯,(籍),",
"-0385000000[趙]敬侯,(章),",
"-0373000000[趙]成侯,(種),",
"-0348000000[趙]肅侯,(語),",
"-0324000000[趙]武靈王,(雍),",
"-0297000000[趙]惠文王,(何),",
"-0264000000[趙]孝成王,(丹),",
"-0243000000[趙]悼襄王,(愝),",
"-0234000000[趙]幽繆王,(遷),",
"-0226000000[趙]代王,(嘉),",
"-0221000000"
);
var alt12=new Array(//數字後無漢字的表示該朝當年滅亡或當年以後不顯示出
"-7800000000",
"-0846000000[楚]熊勇,,",
"-0836000000[楚]熊嚴,,",
"-0826000000[楚]熊霜,,",
"-0820000000[楚]熊徇,,",
"-0798000000[楚]熊咢,,",
"-0789000000[楚]熊若敖,,",
"-0762000000[楚]熊霄敖,,",
"-0756000000[楚]熊蚡冒,,",
"-0739000000[楚]武王,(熊通),",
"-0688000000[楚]文王,(熊貲),",
"-0675000000[楚]熊諸,(熊敖囏),",
"-0670000000[楚]成王,(熊惲),",
"-0624000000[楚]穆王,(熊商臣),",
"-0612000000[楚]莊王,(熊侶),",
"-0589000000[楚]共王,(熊審),",
"-0558000000[楚]康王,(熊招),",
"-0543000000[楚]熊郟敖,,",
"-0539000000[楚]靈王,(熊圍),",
"-0527000000[楚]平王,(熊居),",
"-0514000000[楚]昭王,(熊珍),",
"-0487000000[楚]惠王,(熊章),",
"-0430000000[楚]簡王,(熊仲),",
"-0406000000[楚]聲王,(熊當),",
"-0400000000[楚]悼王,(熊疑),",
"-0379000000[楚]肅王,(熊藏),",
"-0368000000[楚]宣王,(熊良夫),",
"-0338000000[楚]威王,(熊商),",
"-0327000000[楚]懷王,(熊槐),",
"-0297000000[楚]頃襄王,(熊橫),",
"-0261000000[楚]考烈王,(熊完),",
"-0236000000[楚]幽王,(熊悼),",
"-0226000000[楚]楚王,(熊負芻),",
"-0222000000"
);


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


加好友 发短信
等级:黑侠 帖子:603 积分:5315 威望:0 精华:4 注册:2008/4/21 19:06:00
  发帖心情 Post By:2014/2/19 13:42:00

  var str='',str1='',str3='',str6='',str7='',str9='',strb='',strd='',strf='',strh='',strj='',strl='',strl1='',strl2='',strl3='',strl4='',strl5='',strl6='',strl7=''; //年號
  for(i in nh){
   var y0=parseFloat(nh[i].substring(0,5));
   var m0=parseFloat(nh[i].substring(5,7));
   if((y==322||y==325||y==760||y==904)&&m<0)m=abs(m)+1;if(m<0)m=abs(m);
   var n0=parseFloat(nh[i].substring(7,11));
   var n=y-y0+1+n0;
   if(y>=y0&&n>0&&y*10+m>=y0*10+m0){
      str=nh[i].substring(11,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=abs(m);
   var n0=parseFloat(alt[i].substring(7,11));
   var n=y-y0+1+n0;
   if(y>=y0&&n>0&&y*10+m>=y0*10+m0){
     var str2=alt[i].substring(11,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,5));
   var m0=parseFloat(alt2[i].substring(5,7));
   if(m<0)m=abs(m);
   var n0=parseFloat(alt2[i].substring(7,11));
   var n=y-y0+1+n0;
   if(y>=y0&&n>0&&y*10+m>=y0*10+m0){
      var str4=alt2[i].substring(11,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,5));
   var m0=parseFloat(alt3[i].substring(5,7));
   if(m<0)m=abs(m);
   var n0=parseFloat(alt3[i].substring(7,11));
   var n=y-y0+1+n0;
   if(y>=y0&&n>0&&y*10+m>=y0*10+m0){
      var str6=alt3[i].substring(11,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,5));
   var m0=parseFloat(alt5[i].substring(5,7));
   if(m<0)m=abs(m);
   var n0=parseFloat(alt5[i].substring(7,11));
   var n=y-y0+1+n0;
   if(y>=y0&&n>0&&y*10+m>=y0*10+m0){
      var str7=alt5[i].substring(11,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,5));
   var m0=parseFloat(nh9[i].substring(5,7));
   if(m<0)m=abs(m);
   var n0=parseFloat(nh9[i].substring(7,11));
   var n=y-y0+1+n0;
   if(y>=y0&&n>0&&y*10+m>=y0*10+m0){
      str9=nh9[i].substring(11,100);
      if(str9!='')
        str9=str9+n+'年.';
      else
        str9='';
   }
  }
   for(i in alt6){
   var y0=parseFloat(alt6[i].substring(0,5));
   var m0=parseFloat(alt6[i].substring(5,7));
   if(m<0)m=abs(m);
   var n0=parseFloat(alt6[i].substring(7,11));
   var n=y-y0+1+n0;
   if(y>=y0&&n>0&&y*10+m>=y0*10+m0){
      var str10=alt6[i].substring(11,100);
      if(n==1){n="元"}else{n=n}
      if(str10!='')
        str10=str10+n+'年.';
      else
        str10='';
   }
   }
   for(i in alt7){
   var y0=parseFloat(alt7[i].substring(0,5));
   var m0=parseFloat(alt7[i].substring(5,7));
   if(m<0)m=abs(m);
   var n0=parseFloat(alt7[i].substring(7,11));
   var n=y-y0+1+n0;
   if(y>=y0&&n>0&&y*10+m>=y0*10+m0){
      var str11=alt7[i].substring(11,100);
      if(n==1){n="元"}else{n=n}
      if(str11!='')
        str11=str11+n+'年.';
      else
        str11='';
   }
   }
   for(i in alt8){
   var y0=parseFloat(alt8[i].substring(0,5));
   var m0=parseFloat(alt8[i].substring(5,7));
   if(m<0)m=abs(m);
   var n0=parseFloat(alt8[i].substring(7,11));
   var n=y-y0+1+n0;
   if(y>=y0&&n>0&&y*10+m>=y0*10+m0){
      var str12=alt8[i].substring(11,100);
      if(n==1){n="元"}else{n=n}
      if(str12!='')
        str12=str12+n+'年.';
      else
        str12='';
   }
   }
   for(i in alt9){
   var y0=parseFloat(alt9[i].substring(0,5));
   var m0=parseFloat(alt9[i].substring(5,7));
   if(m<0)m=abs(m);
   var n0=parseFloat(alt9[i].substring(7,11));
   var n=y-y0+1+n0;
   if(y>=y0&&n>0&&y*10+m>=y0*10+m0){
      var str13=alt9[i].substring(11,100);
      if(n==1){n="元"}else{n=n}
      if(str13!='')
        str13=str13+n+'年.';
      else
        str13='';
   }
   }
   for(i in alt10){
   var y0=parseFloat(alt10[i].substring(0,5));
   var m0=parseFloat(alt10[i].substring(5,7));
   if(m<0)m=abs(m);
   var n0=parseFloat(alt10[i].substring(7,11));
   var n=y-y0+1+n0;
   if(y>=y0&&n>0&&y*10+m>=y0*10+m0){
      var str14=alt10[i].substring(11,100);
      if(n==1){n="元"}else{n=n}
      if(str14!='')
        str14=str14+n+'年.';
      else
        str14='';
   }
   }
   for(i in alt11){
   var y0=parseFloat(alt11[i].substring(0,5));
   var m0=parseFloat(alt11[i].substring(5,7));
   if(m<0)m=abs(m);
   var n0=parseFloat(alt11[i].substring(7,11));
   var n=y-y0+1+n0;
   if(y>=y0&&n>0&&y*10+m>=y0*10+m0){
      var str15=alt11[i].substring(11,100);
      if(n==1){n="元"}else{n=n}
      if(str15!='')
        str15=str15+n+'年.';
      else
        str15='';
   }
   }
   for(i in alt12){
   var y0=parseFloat(alt12[i].substring(0,5));
   var m0=parseFloat(alt12[i].substring(5,7));
   if(m<0)m=abs(m);
   var n0=parseFloat(alt12[i].substring(7,11));
   var n=y-y0+1+n0;
   if(y>=y0&&n>0&&y*10+m>=y0*10+m0){
      var str16=alt12[i].substring(11,100);
      if(n==1){n="元"}else{n=n}
      if(str16!='')
        str16=str16+n+'年.';
      else
        str16='';
   }
   }
  var stra='';stra= str.split(',');strb=(ak==1)?stra[1]+stra[3]:stra[0]+stra[1]+stra[2]+stra[3];
  var strc='';strc= str1.split(',');strd=(ak==1)?strc[0]+strc[2]:strc[0]+strc[1]+strc[2];
  var stre='';stre= str3.split(',');strf=(ak==1)?stre[0]+stre[2]:stre[0]+stre[1]+stre[2];
  var strg='';strg= str6.split(',');strh=(ak==1)?strg[0]+strg[2]:strg[0]+strg[1]+strg[2];
  var stri='';stri= str7.split(',');strj=(ak==1)?stri[0]+stri[2]:stri[0]+stri[1]+stri[2];
  var strk='';strk= str9.split(',');strl=(ak==1)?strk[0]+strk[2]:strk[0]+strk[1]+strk[2];
  var strk1='';strk1= str10.split(',');strl1=strk1[0]+strk1[2];
  var strk2='';strk2= str11.split(',');strl2=strk2[0]+strk2[2];
  var strk3='';strk3= str12.split(',');strl3=strk3[0]+strk3[2];
  var strk4='';strk4= str13.split(',');strl4=strk4[0]+strk4[2];
  var strk5='';strk5= str14.split(',');strl5=strk5[0]+strk5[2];
  var strk6='';strk6= str15.split(',');strl6=strk6[0]+strk6[2];
  var strk7='';strk7= str16.split(',');strl7=strk7[0]+strk7[2];
  if(stra=='')strb='';if(strc=='')strd='';if(stre=='')strf='';if(strg=='')strh='';if(stri=='')strj='';
  if(strk=='')strl='';if(strk1=='')strl1='';if(strk2=='')strl2='';if(strk3=='')strl3='';
  if(strk4=='')strl4='';if(strk5=='')strl5='';if(strk6=='')strl6='';if(strk7=='')strl7='';
  var xhxst2=(liza==1)?strd+strj+strl:'';var xhxst3=(liza==2)?strf:'';
  var xhxst=(liza==1&&xhxst2==''||liza==2&&xhxst3==''||liza==0)?strb+strh:'';
  var xhxst8='<font color=#000000>'+strl1+strl2+strl3+strl4+strl5+strl6+strl7+'</font>';
  var nhtys=strb+strh+'<font color=#000000>'+strd+strj+strl+strf+'</font>';
  if(liza==1&&xhxst2>'')nhtys=strd+strj+strl+'<font color=#000000>'+strb+strh+strf+'</font>';
  if(liza==2&&xhxst3>'')nhtys=strf+'<font color=#000000>'+strb+strh+strd+strj+strl+'</font>';
  var nhv=(ak==1)?xhxst+xhxst2+xhxst3:nhtys+xhxst8;
  return nhv;
  }//liza=0夏…汉,魏,晋,南朝(宋齐梁陈)隋唐,五代,宋元明清,民国,中国…各時代實歷
//liza=1⑴吴⑴北魏西魏北周,隋⑴辽金,蒙古(元)⑴南明⑴中国台湾…各時代實歷
//liza=2⑴,蜀汉,⑴,东魏,北齐,⑴,西夏,⑴……各時代實歷



[此贴子已经被作者于2014-2-20 12:57:01编辑过]


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


加好友 发短信
等级:黑侠 帖子:603 积分:5315 威望:0 精华:4 注册:2008/4/21 19:06:00
  发帖心情 Post By:2014/2/19 13:42:00

function zhujie(y){//月曆部份註解,農曆正月初一為界
var alt8=new Array(//用於註解,數字後無漢字的表示不顯示
"-4712註:上古時代",
"-2069註:紀年有爭議。",
"-994註:紀年有爭議。",
"-840註:開始有準確記年",
"-839",
"-254註:(周亡史家用秦紀年,秦以寅正10月為年首)",
"-220秦統一全國;秦朝開始",
"-219",
"-205註:西漢初用秦曆",
"-103註:5月改曆,改用寅正(正月為年首);這年有十五個月",
"-102",
"0009<br>註:始建國元年用丑正,改12月為正月,上一年無“12月”。",
"0010註:王莽用丑正",
"0023<br>註:更始元年復用寅正,11月改10月,這年有兩個10月。",
"0024",
"0220註:[三國]。",
"0225註:閏異:魏 閏3月、蜀漢閏3月、吳閏4月。",
"0226註:[三國]。",
"0230註:閏異:魏 和蜀漢 同閏9月、吳閏8月。",
"0231註:[三國]。",
"0236|閏異:魏 和蜀漢 同閏正月、吳閏2月。",
"0237<br>註:建正異:三月,魏改用丑正;蜀漢和吳用寅正。",
"0238<br>閏異:魏閏丑正11月、蜀漢和吳同閏寅正10月。",
"0239建正異:12月魏復用寅正;蜀漢和吳全部用寅正。",
"0240註:[三國]",
"0241註:三國閏異:魏 閏6月、吳閏6月、蜀漢閏7月。",
"0242",
"0246|註:閏異:魏 閏12月、吳閏12月、蜀漢閏11月。","0247",
"0249|註:閏異:魏 閏9月、吳閏8月、蜀漢閏8月。","0250",
"0252<br>註:閏異:魏 閏5月、蜀漢 閏5月、吳閏4月。","0253",
"0257<br>註:閏異:魏 閏10月、吳 閏10月、蜀漢閏9月。","0258",
"0263<br>註:閏異:魏 閏3月、吳 閏3月、蜀漢閏4月。","0264",
"0276<br>註:閏異:晉 閏9月、吳 閏10月。","0277",
"0280註:晉短期統一;[三國]結束","0281",
"0304註:又開始割據分裂","0305",
"0445<br>註:閏異:宋 閏5月、北魏 閏正月。","0446",
"0447<br>註:閏異:宋 無閏月、北魏 閏10月。",
"0448<br>註:閏異:宋 閏2月;北魏無閏月。",
"0449",
"0450<br>註:閏異:宋 閏10月、北魏 閏7月。",
"0451",
"0456<br>註:閏異:宋 閏3月、北魏 閏2月。",
"0457",
"0458<br>註:閏異:宋 閏12月、北魏 閏10月。",
"0459",
"0461<br>註:閏異:宋 閏9月、北魏 閏7月。",
"0462",
"0464<br>註:閏異:宋 閏5月、北魏 閏4月。",
"0465",
"0469<br>註:閏異:宋 閏11月、北魏 閏9月。",
"0470",
"0472<br>註:閏異:宋 閏7月、北魏 閏6月。",
"0473",
"0477<br>註:閏異:宋 閏12月、北魏 閏11月。",
"0478",
"0480<br>註:閏異:齊 閏9月、北魏 閏7月。",
"0481",
"0483<br>註:閏異:齊 閏5月、北魏 閏4月。",
"0484",
"0488<br>註:閏異:齊 閏10月、北魏 閏9月。",
"0489",
"0491<br>註:閏異:齊 閏7月、北魏 閏5月。",
"0492",
"0494<br>註:閏異:齊 閏4月、北魏 閏2月。",
"0495",
"0496<br>註:閏異:齊 閏12月、北魏 閏11月。",
"0497",
"0504<br>註:閏異:梁 無閏月、北魏 閏12月。",
"0505<br>閏異:梁 閏2月;北魏 無閏月。",
"0506",
"0507<br>註:閏異:梁 閏10月、北魏 閏9月。",
"0508",
"0513<br>註:閏異:梁 閏3月、北魏 閏2月。",
"0514",
"0515<br>註:閏異:梁 閏12月、北魏 閏10月。",
"0516",
"0518<br>註:閏異:梁 閏8月、北魏 閏7月。",
"0519",
"0526<br>註:閏異:梁 閏10月、北魏 閏11月。",
"0527",
"0529<br>註:閏異:梁 閏6月、北魏 閏7月。",
"0530",
"0551<br>註:閏異:梁 閏3月、北齊 閏2月、西魏 閏4月。",
"0552",
"0553<br>註:閏異:梁 閏11月、北齊 閏11月、西魏 閏12月。",
"0554",
"0559<br>註:閏異:陳 閏4月、北齊 閏4月、北周 閏5月。",
"0560",
"0561<br>註:閏異:陳 無閏月、北周 無閏月、北齊 閏12月。",
"0562<br>註:閏異:陳 閏2月、北周 閏1月、北齊 無閏月。",
"0563",
"0564<br>註:閏異:陳 閏10月、北齊 閏9月、北周 閏9月。",
"0565",
"0567<br>註:閏異:陳 閏6月、北齊 閏6月、北周 閏8月。",
"0568",
"0570<br>註:閏異:陳 閏4月、北周 閏4月、北齊 閏2月。",
"0571",
"0572<br>註:閏異:陳 年閏12月、北齊 閏11月、北周 無閏。",
"0573<br>註:閏異:陳 、北齊 無閏;北周 閏正月。",
"0574",
"0575<br>註:閏異:陳 閏9月、北齊 閏8月、北周 閏10月。",
"0576",
"0578<br>註:閏異:陳 閏5月、北周 閏6月。",
"0579",
"0581<br>註:閏異:陳 閏2月、陏 閏3月。",
"0582",
"0583<br>註:閏異:陳 至德元年閏11月、陏 開皇3年閏12月。",
"0584",
"0586<br>註:閏異:陳 閏7月、陏 閏8月。",
"0587",
"0589<br>閏異:陳 閏3月、陏 閏4月。註:正月陳朝亡,南北朝結束。",
"0590",
"0689註:十一月改用子正。改11月為正月、12月為臘月、正月為一月……",
"0690註:當時用周暦子正,月序:正(11),臘(12),一,二,……九,十",
"0700註:十月復用寅正,改(11)正月為十一月,庚子年有14個月。",
"0701",
"0761註:9月去年號,稱元年,改用周暦子正。改十一月為下年年首,稱子月。",
"0762註:四月復寅正。壬寅年有14個月。月序:子(11),丑(12),寓(1),卯,辰(3),四……十二",
"0763",
"0927註:契丹太宗即位沒改元",
"0938",
"0947註:後漢用後晉高祖年號稱天福12年",
"0948",
"0985閏異:北宋 閏9月、遼 閏8月。",
"0986",
"0999<br>閏異:北宋 閏3月、遼 閏4月。",
"1000",
"1001<br>閏異:北宋 閏12月、遼 閏11月。",
"1002",
"1015<br>閏異:北宋 閏6月、遼 閏7月。",
"1016",
"1029<br>閏異:北宋 閏2月、遼 閏3月。",
"1030",
"1064閏異:北宋 閏5月、遼 閏6月。",
"1065",
"1077閏異:北宋 無閏月、遼 閏12月",
"1078<br>閏異:北宋 閏正月、遼 無閏月。",
"1079",
"1080閏異:北宋 閏9月、遼 閏8月。",
"1081",
"1086 [西夏]惠宗 天安禮定 元年",
"1087",
"1102閏異:北宋 閏6月、遼 閏6月、西夏 閏6月。",
"1103",
"1105閏異:北宋 閏2月、遼 閏3月、西夏 閏2月。",
"1106",
"1125<br>註:二月遼被金所滅",
"1126",
"1270<br>閏異:南宋 閏10月、蒙古(元) 閏11月。",
"1271",
"1279<br>註:至元16年蒙古改國號為(元);二月南宋亡。",
"1280",
"1329註:明宗(和世“&#16075;”)正月即位,8月暴死,文宗復位",
"1330註:文宗(~圖帖睦爾)5月啟用 至順",
"1331註:文宗(~圖帖睦爾)",
"1332註:10月寧宗(孛兒只斤鐵木真懿璘質班)即位",
"1333",
//"1626閏異:明 閏6月、後金(清) 閏5月。","1627",
"1636‘後金’改國號‘清’","1637",
"1648<br>閏異:清 閏4月、南明 閏3月。","1649",
"1650<br>閏異:清 無閏月、南明 閏11月。","1651<br>閏異:清 閏2月、南明 無閏月。","1652",
"1653<br>閏異:清 閏6月、南明 閏7月。","1654",
"1659<br>閏異:清 閏3月、南明 閏1月。","1660",
"1661閏異:清 閏7月、南明 閏10月。","1662",
"1683註:南明住臺灣的鄭氏政權降清,全國統一",
"1684",
"1911註:11月13日(公曆1912年1月1日)中華民國成立,用公曆同時改元“民國”;12月25日(公曆1912年2月12日)清帝退位。程序年號按農曆年",
"1912註:官方、民間用“民國”的同時也用“公元”。程序年號按農曆年",
"1949註:農曆8月10日(公曆1949年10月1日)中華人民共和國成立。用公元紀年無改元。<br>民國紀年算法如下:公元年數-1911=民國年數。<br>",
"1950註:公元1949年共和國成立後用公元紀年無改元。因中國未統一所以在中國臺灣省“公元”與“民國”同用。祝願我國(中國)早日統一!<br>民國紀年算法如下:公元年數-1911=民國年數。<br>"
);
  var str5='';
  for(i in alt8){
   var y0=parseFloat(alt8[i].substring(0,5));
   var n=y-y0+1;
   if(n>0){
   if(y<=-995)
      var str5=alt8[i].substring(5,120);
      else
      var str5=alt8[i].substring(4,120);
      if(str5!='')
        str5=str5;
      else
        str5='';
    }
     }
 return str5;
 }

支持(0中立(0反对(0单帖管理 | 引用 | 回复 回到顶部
总数 56 上一页 1 2 3 4 5 6 下一页

返回版面帖子列表

[原创]公开电脑医生、福星、通胜万年历2014年2月最新历算源码








签名