
//-----rӋ---//
   var qiS='ocFs22AFsckF2tsDtFqEt2aposFdFgiFseFtmelsssEfhkF2anmelpFlF1ikrotcnEqEq2FfqmcDsrFor22FgFrcDocFs22FgEeFtE2sfFs22sCoEsaF2tsD1FpeE2eFsssEciFsFnmelpFcFhkF2tcnEqEpFgkrotcnEqrEtFermcDsrcFs22FgBmcmr22DaDsaF222sD1FpeForeF2tssEfiFpEoeFssD1iFstC2pDgkF2tcnEqEpFg11FscnEqrAoAF2VBtAFrADlFoAkAEpAEgyoFgBiBqAenBaBoqxCdxDklEqCpE1BqVFgEiDrACdVf1VCgxeBbCaCiEifAE2VBa1C1EdEdFdixCoCeE1ADiEifDaVCdBg1FbCbFbcyDdDgiFaAC2VqzzzyEtzzVBbACezCiAFiCixEnxazxDqEoFmyBezzxEkzVEnEqyFkEcwEpDiDpVF1zzCdVBgzyBgAF1zxcACtAF2ACeeAkAEGH';//( 2301,12,22,24)
   var qijz=jieya(qiS);
function qij(k){ ///1646굽19601ʷc1960굽7800깝
  var v2='';var v=qijz.charAt(k);////
  if(k==7993||k==14034||k==14688||k==15654)v=0;if(k==13278||k==14070||k==14553)v=2;
  if(v=='1')
    v2=1;
  if(v=='2')
    v2=-1;
  if(v==''||v=='0')
    v2=0;
  return parseInt(v2);
 } 
  var ykche=new Array(//ʷƽM1
  1640650.479938,1642476.703182,1683430.515601,1752157.640664,1807675.003759,1883627.765182,1907369.128100,1936603.140413,1939145.524180,1947180.798300,1964362.041824,1987372.340971,
  1999653.819126,2007445.469786,2021324.917146,2047257.232342,2070282.898213,2073204.872850,2080144.500926,2086703.688963,2110033.182763,2111190.300888,2113731.271005,2120670.840263,2123973.309063,
  2125068.997336,2136026.312633,2156099.495538,2159021.324663,2162308.575254,2178485.706538,2178759.662849,2185334.020800,2187525.481425,2188621.191481);
  var kche=new Array(//ʷƽM2
  -221,-216,-104,84,236,444,509,589,596,618,665,728,761,783,821,892,955,963,982,1000,1064,1067,1074,1093,1102,1105,1135,1190,1198,1207,
  1251,1252,1270,1276,1279);
  var jkche=new Array(//ʷƽM3
  15.21842500,15.21874996, 15.218750011,15.218749978,15.218620279,15.218612292,15.218449176,15.218425000,15.218466998, 15.218524844,15.218533526,15.218513908,15.218530782,
  15.218535181,15.218526248,15.218519654,15.218425000,15.218515221,15.218530782,15.218523776,15.218425000,15.218425000,15.218515671,15.218425000,15.218425000,15.218477932,15.218472436,
  15.218425000,15.218425000,15.218461742,15.218425000,15.218445786,15.218425000,15.218425000,15.218437484);
  var jkche2=new Array(//ʷƽM4
  -3,-3,0,4,4,3,3,4,3,3,4,4,19,3,3,3,4,4,4,3,0,4,3,3,4,4,4,3,3,3,10,4,4,4,4);
//
function S(y,n,pd){  //pdȡֵ01քeʾƽͶ,ԓعD0ֵ
  var vj='';var ykd=(erJD(y,1,1))-1;
  var ydk=24*(y-1646);var ydk2=(ydk+n-1);var ydk3=qij(ydk2);var vsb0=0;if(ydk3==-1)vsb0=0.952;if(ydk3==1)vsb0=0.0007;
  if((y>1646&&y<=1960||y==1646&&n>=3)&&ydk3==-1||(y>1646&&y<=1960||y==1646&&n>=3)&&ydk3==1){//ʷM
  var yk=365.2423112;var jjk=0.00000001;///yk=365.2422226;
  var jk=y-2200;var j=(0.000084275/3300)*jk;if(y<=2219)j=0;
  var jk5=y-5500;var j5=(0.00001232/1860)*jk5;if(y<5500)j5=0;
  var jk6=y-7800;var j6=(0.00001285/2200)*jk6;if(y<7800)j6=0;
  var jk2=y-900;var j2=0.000252155/3600*jk2;if(1001<y)j2=0;
  var jk3=0.000100121/2012*(y-(-4712));var j3=0.000100121-jk3;if(y>=-2700)j3=0;
  var yk2=yk-j-j2-j3-j5+j6-jjk;
  var juD=y*(yk2-6.4e-14*(y-100)*(y-100)-3.047e-8*(y-100))+15.218427*n+1721050.71301;//
  var tht=3e-4*y-0.372781384-0.2617913325*n;//Ƕ
  var yrD=(1.945*sin(tht)-0.01206*sin(2*tht))*(1.048994-2.583e-5*y);//
  var shuoD=-18e-4*sin(2.313908653*y-0.439822951-3.0443*n);//˷
  vj=floor((juD+yrD+shuoD-erD(y,1,0)-1721425)+(ydk3))+vsb0;
  }else{
  var jkk=0;if(y>-216||y==-216&&n>=21)jkk=1;if(y>=-103)jkk=2;if(y>85||y==85&&n>=4)jkk=3;
  if(y>237||y==237&&n>=4)jkk=4;if(y>445||y==445&&n>=3)jkk=5;if(y>510||y==510&&n>=3)jkk=6;if(y>590||y==590&&n>=4)jkk=7;
  if(y>597||y==597&&n>=3)jkk=8;if(y>619||y==619&&n>=3)jkk=9;if(y>666||y==666&&n>=4)jkk=10;if(y>729||y==729&&n>=4)jkk=11;
  if(y>762||y==762&&n>=19)jkk=12;if(y>784||y==784&&n>=3)jkk=13;if(y>822||y==822&&n>=3)jkk=14;if(y>893||y==893&&n>=3)jkk=15;
  if(y>956||y==956&&n>=4)jkk=16;if(y>964||y==964&&n>=4)jkk=17;if(y>983||y==983&&n>=4)jkk=18;if(y>1001||y==1001&&n>=3)jkk=19;
  if(y>1064||y==1064&&n>=24)jkk=20;if(y>1068||y==1068&&n>=4)jkk=21;
  if(y>1075||y==1075&&n>=3)jkk=22;if(y>1094||y==1094&&n>=3)jkk=23;if(y>1103||y==1103&&n>=4)jkk=24;
  if(y>1106||y==1106&&n>=4)jkk=25;if(y>1136||y==1136&&n>=4)jkk=26;if(y>1191||y==1191&&n>=3)jkk=27;if(y>1199||y==1199&&n>=3)jkk=28;
  if(y>1208||y==1208&&n>=3)jkk=29;if(y>1252||y==1252&&n>=10)jkk=30;if(y>1253||y==1253&&n>=4)jkk=31;if(y>1271||y==1271&&n>=4)jkk=32;
  if(y>1277||y==1277&&n>=4)jkk=33;if(y>1280||y==1280&&n>=4)jkk=34;
  var yk0=ykche[jkk];///
  var k=kche[jkk];//
  var jka=jkche[jkk];////L
  var jk9=jkche2[jkk];///
  //ʷӋ
  var yk3=jka*(jk9*1);
  var yka=(yk0*1)-(yk3*1);
  var jq=jka*(n+(24*(y-k-1)));
  vj=jq+yka-ykd+0.5;
  if(y==502&&n==12)vj=1904585-ykd;if(y==559&&n==12)vj=1925404-ykd;if(y==575&&n==20)vj=1931368.952-ykd;
  if(y==697&&n==24)vj=1975991-ykd;if(y==698&&n==2)vj=1976020-ykd;if(y==725&&n==4)vj=1985913.001-ykd;
  if(y<-220||y>1646||y==1646&&n>=3)vj='';
  }
  var n0=24*(y-1999)-6+n;
  var vsa=qiCalc(n0)-ykd;
  var vs=(pd)?vsa:vj;//vjŴƽ⣬F⡮(juD+yrD+shuoD-erD(y,1,0)-1721425)Fƽ⣺(juD-erD(y,1,0)-1721425)
  return vs;
}
function jqi(y,m,d,a,b){
  var mL=D0(y,m+1,1)-D0(y,m,1);if(y==1582&&m==10)mL=31;
  var yr2=yearStr(y);
  var sT00='';var sT0='';var sT1='';var sT2='';var sT3='';var sT4='';  var qSt='';var sDsStr1='';var ifsj1='';////
  var sN00=2*m-3;
  var sDt00=S(y,sN00,1);if(a==3||a==4&&S(y,sN00)>'')sDt00=S(y,sN00);
  var sD00=antiD0(y,floor(sDt00));
  var sM00=floor(sD00/100);//
  sDate00=sD00%100;
  var sN0=2*m-2;
  var sDt0=S(y,sN0,1);if(a==3||a==4&&S(y,sN0)>'')sDt0=S(y,sN0);
  var sD0=antiD0(y,floor(sDt0));
  var sM0=floor(sD0/100); 
  sDate0=sD0%100;
  sN1=2*m-1;
  var sDt1=S(y,sN1,1);if(a==3||a==4&&S(y,sN1)>'')sDt1=S(y,sN1);
  var sD1=antiD0(y,floor(sDt1));
  var sM1=floor(sD1/100); 
  sDate1=sD1%100;
  sN2=2*m;
  var sDt2=S(y,sN2,1);if(a==3||a==4&&S(y,sN2)>'')sDt2=S(y,sN2);
  var sD2=antiD0(y,floor(sDt2));
  var sM2=floor(sD2/100);
  sDate2=sD2%100;if(y==1582&&m==10)sDate2=sDate2+10;
  var sN3=2*m+1;
  if(sN3>24)
  sN3=25;
  var sDt3=S(y,sN3,1);if(a==3||a==4&&S(y,sN3)>'')sDt3=S(y,sN3);
  var sD3=antiD0(y,floor(sDt3));
  var sM3=floor(sD3/100);
  sDate3=sD3%100;
  var dpzi=' ';var dbq='|8^';if(a==4)dpzi=' ',dbq=' ';
  sN00=rem(sN00-1,24)+1;sN0=rem(sN0-1,24)+1;sN1=rem(sN1-1,24)+1; sN2=rem(sN2-1,24)+1; sN3=rem(sN3-1,24)+1;
  if(sDate2>mL) sDate2-=mL; var jqk=D0(y,m,d);var qk00=floor(sDt00);
  var qk0=floor(sDt0);var qk1=floor(sDt1);var qk2=floor(sDt2);var qk3=floor(sDt3);
  if(qk00<D0(y,m,1)||qk00>D0(y,m,mL)) sN00='';
  if(qk0<D0(y,m,1)||qk0>D0(y,m,mL)) sN0='';
  if(qk1<D0(y,m,1)||qk1>D0(y,m,mL)) sN1='';
  if(qk2<D0(y,m,1)||qk2>D0(y,m,mL)) sN2='';
  if(qk3<D0(y,m,1)||qk3>D0(y,m,mL)) sN3='';//
  if(a==4){
  sT00='%'+sM00+''+dsz(sDate00)+'<b>(r'+lunMStr(lunMon(y,sM00,sDate00),b)+''+dsz(floor(lunDate(y,sM00,sDate00)-floor(lunDate(y,sM00,sDate00)/100)*100))+')'+dToStr(tail(sDt00))+sStr(sN00)+'</b><br>';if(sN00=='') sT00='';
  sT0='*'+sM0+''+dsz(sDate0)+'<b>(r'+lunMStr(lunMon(y,sM0,sDate0),b)+''+dsz(floor(lunDate(y,sM0,sDate0)-floor(lunDate(y,sM0,sDate0)/100)*100))+')'+dToStr(tail(sDt0))+sStr(sN0)+'</b><br>';if(sN0=='') sT0='';
  sT1='&'+sM1+''+dsz(sDate1)+'<b>(r'+lunMStr(lunMon(y,sM1,sDate1),b)+''+dsz(floor(lunDate(y,sM1,sDate1)-floor(lunDate(y,sM1,sDate1)/100)*100))+')'+dToStr(tail(sDt1))+sStr(sN1)+'</b><br>';if(sN1=='') sT1='';
  sT2='$'+sM2+''+dsz(sDate2)+'<b>(r'+lunMStr(lunMon(y,sM2,sDate2),b)+''+dsz(floor(lunDate(y,sM2,sDate2)-floor(lunDate(y,sM2,sDate2)/100)*100))+')'+dToStr(tail(sDt2))+sStr(sN2)+'</b>';if(sN2=='')sT2=''; 
  sT3='<br>'+'#'+sM3+''+dsz(sDate3)+'<b>(r'+lunMStr(lunMon(y,sM3,sDate3),b)+''+dsz(floor(lunDate(y,sM3,sDate3)-floor(lunDate(y,sM3,sDate3)/100)*100))+')'+dToStr(tail(sDt3))+sStr(sN3)+'</b>';if(sN3=='')sT3=''; 
  }else{
  sT00='%'+yr2+sM00+''+dsz(sDate00)+''+dbq+dToStr(tail(sDt00))+dpzi+sStr(sN00)+'<br>';if(sN00=='') sT00='';
  sT0='*'+yr2+sM0+''+dsz(sDate0)+''+dbq+dToStr(tail(sDt0))+dpzi+sStr(sN0)+'<br>';if(sN0=='') sT0='';
  sT1='&'+yr2+sM1+''+dsz(sDate1)+''+dbq+dToStr(tail(sDt1))+dpzi+sStr(sN1)+'<br>';if(sN1=='') sT1='';
  sT2='$'+yr2+sM2+''+dsz(sDate2)+''+dbq+dToStr(tail(sDt2))+dpzi+sStr(sN2);if(sN2=='')sT2=''; 
  sT3='<br>'+'#'+yr2+sM3+''+dsz(sDate3)+''+dbq+dToStr(tail(sDt3))+dpzi+sStr(sN3);if(sN3=='')sT3=''; }
  var qSt5='';if(a==1)qSt5='';if(a==2)qSt5='<img border="0" src="7000wnldat/jiqi.jpg" width="13" height="13">';
  if(jqk==qk00)if(sT00==''){sDsStr1='|'}else{sDsStr1=qSt5+sStr(sN00)+':|8^'+dToStr(tail(sDt00));}
  if(jqk==qk0)if(sT0==''){sDsStr1='|'}else{sDsStr1=qSt5+sStr(sN0)+':|8^'+dToStr(tail(sDt0));}
  if(jqk==qk1)if(sN1==''){sDsStr1='|'}else{sDsStr1=qSt5+sStr(sN1)+':|8^'+dToStr(tail(sDt1));}
  if(jqk==qk2)if(sN2==''){sDsStr1='|'}else{ sDsStr1=qSt5+sStr(sN2)+':|8^'+dToStr(tail(sDt2));} ///
  if(jqk==qk3)if(sT3==''){sDsStr1='|'}else{sDsStr1=qSt5+sStr(sN3)+':|8^'+dToStr(tail(sDt3));}
  
  if(jqk==qk00)if(sT00==''){qSt=''}else{qSt=qSt5+sStr(sN00);}
  if(jqk==qk0)if(sT0==''){qSt=''}else{qSt=qSt5+sStr(sN0);}
  if(jqk==qk1)if(sT1==''){qSt=''}else{qSt=qSt5+sStr(sN1);}
  if(jqk==qk2)if(sT2==''){qSt=''}else{ qSt=qSt5+sStr(sN2);} 
  if(jqk==qk3)if(sT3==''){qSt=''}else{qSt=qSt5+sStr(sN3);}
  if(a==1){return sDsStr1;}else{
  if(a==2){return qSt;}else{
  if(a==3){return qSt;}else{
  return sT00+sT0+sT1+sT2+sT3;}}}
  }
//--⌍H@ʾ--//
 function jqi1(y,m,d){//@ʾʽ1rgĳաĳվ@ʾrg
 return jqi(y,m,d,1);
 }
 function jqi2(y,m,d){//@ʾʽ2ÿµĹ⽻rg
 return jqi(y,m,d);
 }
 function jqi5(y,m,d,b){//@ʾʽ4Ч@ʾѶʮĹ
 var xz=jqi(y,m,d,4,b);
 var xc='<b>ѶʮĹ⣨ƽ⣩</b><br>';if(y>=1647&&y<1961||y==1646&&m>=2)xc='<b>ѶʮĹ</b><br>';
 if(y<-221||y==-221&&m<11)xc='<b>ѶʮĹ</b><br>',xz='ʷϴ߀]24ӛd<br>ՈìFƵ24';
 if(y>=1961)xc='<b>ʮĹ</b><br>'
 var xs='&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'+xc+xz;
 return xs;
 }
 function jqi3(y,m,d){//@ʾʽ3Ѹ
  var sjq2='';var sjq0=jqi(y,m,d,2); var sjq12='';if(y>=1646&&y<1961)sjq12=jqi(y,m,d-1,3);var sjq13='';if(y>=1646&&y<1961)sjq13=jqi(y,m,d+1,3);
  if(y>=-220&&y<1646&&sjq0>''||y==1646&&m<=1&&sjq0>''||sjq12>''&&jqi(y,m,d,2)>''||sjq13>''&&jqi(y,m,d,2)>'')sjq0='<img border="0" src="7000wnldat/jiqi.jpg" width="13" height="13">';
  var sjq1=jqi(y,m,d,3); var sjq=sjq0+sjq1;
 return sjq;
 }/////ӋY
function siju(y,m,d,h,mi){///ļ
 var mi=abs(mi);
 var djr=(D0(y,m,d)+(h+(mi+1)/60)/24);
 if(djr>=(y,3,1)&&djr<S(y,9,1))
   var gzM=0;
 if(djr>=S(y,9,1)&&djr<S(y,15,1))
   var gzM=1;
 if(djr>=S(y,15,1)&&djr<S(y,21,1))
   var gzM=2;
 if(djr>=S(y,21,1)||djr<S(y,3,1))
   var gzM=3;
 return gzM;
}
