<!-- saved from url=(0021)http://www.sxwnl.com/ -->
<html>
<head>
<TITLE>寿星天文历</TITLE>
<META content="寿星天文历;万年历;农历;农历计算;算法;天文算法;伊斯兰历;回历;节气;交节时刻" name=keywords>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="viewport" content="width=device-width,initial-scale=1">
<style>
td {font-family:宋体; font-size:12px; line-height:150%}
.bd0 {border: 0px}
.bd1 {border: 1px solid #888888}
.bd2 {border: 2px solid #000000}
.dTop {border-top: 1px solid #000000}
.dBot {border-bottom: 1px solid #000000}
.dRig {border-right: 1px solid #888888}
.dLef {border-left: 1px solid #888888}
.dRB {border-right: 1 solid #000000;border-bottom: 1 solid #000000}
.dRT {border-right: 1 solid #000000;border-top: 1 solid #000000}
.dBot2 {border-bottom: 1px solid #C0C0C0}
.dTop2 {border-top: 1px solid #C0C0C0}
</style>
<script language="javascript">
function trim(s){return s.replace(/(^\s*)|(\s*$)/g,"");}Date.prototype.toLocaleString2=function(){return this.getFullYear()+"-"+(this.getMonth()+1)+"-"+this.getDate()+" "+this.getHours()+":"+this.getMinutes()+":"+this.getSeconds();};function year2Ayear(c){var y=String(c).replace(/[^0-9Bb\*-]/g,'');var q=y.substr(0,1);if(q=='B'||q=='b'||q=='*'){y=1-y.substr(1,y.length);if(y>0){alert('通用纪法的公元前纪法从B.C.1年开始。并且没有公元0年');return -10000;}}else y-=0;if(y<-4712)alert('超过B.C. 4713不准');if(y>9999)alert('超过9999年的农历计算很不准。');return y;}function Ayear2year(y){y-=0;if(y<=0)return 'B'+(-y+1);return ''+y;}function timeStr2hour(s){var a,b,c;s=String(s).replace(/[^0-9:\.]/g,'');s=s.split(':');if(s.length==1)a=s[0].substr(0,2)-0,b=s[0].substr(2,2)-0,c=s[0].substr(4,2)-0;else if(s.length==2)a=s[0]-0,b=s[1]-0,c=0;else a=s[0]-0,b=s[1]-0,c=s[2]-0;return a+b/60+c/3600;}var storageL={existStorage:function (){return window.Storage&&window.localStorage&&window.localStorageinstanceofStorage;},setItem:function (name,value,t){if(!this.existStorage())this.setCookie(name,value,t);try{localStorage.setItem(name,value);}catch(e){console.error('localStorage.setItem错误,',e.message);}},getItem:function (name){var value;if(!this.existStorage())return this.getCookie(name);try{value=localStorage.getItem(name);}catch(e){console.error('localStorage.getItem错误,',e.message)}finally{return value;}},setCookie:function (name,value,t){var d=new Date();d.setTime(d.getTime()+(t*86400*1000));var expires="expires="+d.toUTCString();document.cookie=name+"="+value+"; "+expires;},getCookie:function (name){var arr,reg=new RegExp("(^| )"+name+"=([^;]*)(;|$)");if(arr=document.cookie.match(reg))return arr[2];return null;}};function addOp(sel,v,t){var Op=document.createElement("OPTION");Op.value=v;Op.text=t;sel.add(Op);}Number.prototype.toFixed=function(m){var n=this,f='',p=Math.pow(10,m);if(n<0)n=-n,f='-';var a=Math.floor(n),b=n-a;b=Math.round(b*p);if(b>=p)a++,b-=p;if(m)b='.'+(p+b+'').substr(1,m);else b='';return f+a+b;};var cs_rEar=6378.1366;var cs_rEarA=0.99834*cs_rEar;var cs_ba=0.99664719;var cs_ba2=cs_ba*cs_ba;var cs_AU=1.49597870691e8;var cs_sinP=cs_rEar/cs_AU;var cs_PI=Math.asin(cs_sinP);var cs_GS=299792.458;var cs_Agx=cs_AU/cs_GS/86400/36525;var cs_xxHH=new Array(116,584,780,399,378,370,367,367);var xxName=new Array('地球','水星','金星','火星','木星','土星','天王星','海王星','冥王星');var rad=180*3600/Math.PI;var radd=180/Math.PI;var pi2=Math.PI*2;var pi_2=Math.PI/2;var J2000=2451545;var cs_k=0.2725076;var cs_k2=0.2722810;var cs_k0=109.1222;var cs_sMoon=cs_k*cs_rEar*1.0000036*rad;var cs_sMoon2=cs_k2*cs_rEar*1.0000036*rad;var cs_sSun=959.64;function int2(v){return Math.floor(v);}function mod2(v,n){return (v%n+n)%n;}function sqrt(x){return Math.sqrt(x);}function floor(x){return Math.floor(x);}function abs(x){return Math.abs(x);}function sin(x){return Math.sin(x);}function cos(x){return Math.cos(x);}function tan(x){return Math.tan(x);}function asin(x){return Math.asin(x);}function acos(x){return Math.acos(x);}function atan(x){return Math.atan(x);}function atan2(y,x){return Math.atan2(y,x);}function rad2strE(d,tim,ext){var s=" ";var w1="°",w2="'",w3='"';if(d<0)d=-d,s='-';if(tim){d*=12/Math.PI;w1="h ",w2="m",w3="s";}else d*=180/Math.PI;var a=Math.floor(d);d=(d-a)*60;var b=Math.floor(d);d=(d-b)*60;var c=Math.floor(d);var Q=Math.pow(10,ext);d=Math.floor((d-c)*Q+0.5);if(d>=Q)d-=Q,c++;if(c>=60)c-=60,b++;if(b>=60)b-=60,a++;a=" "+a,b="0"+b,c="0"+c,d="00000"+d;s+=a.substr(a.length-3,3)+w1;s+=b.substr(b.length-2,2)+w2;s+=c.substr(c.length-2,2);if(ext)s+="."+d.substr(d.length-ext,ext)+w3;return s;}function rad2str(d,tim){return rad2strE(d,tim,2);}function rad2str2(d){var s="+";var w1="°",w2="'",w3='"';if(d<0)d=-d,s='-';d*=180/Math.PI;var a=Math.floor(d);var b=Math.floor((d-a)*60+0.5);if(b>=60)b-=60,a++;a=" "+a,b="0"+b;s+=a.substr(a.length-3,3)+w1;s+=b.substr(b.length-2,2)+w2;return s;}function m2fm(v,fx,fs){var gn='';if(v<0)v=-v,gn='-';var f=Math.floor(v/60),m=v-f*60;if(!fs)return gn+f+"'"+m.toFixed(fx)+'"';if(fs==1)return gn+f+'分'+m.toFixed(fx)+'秒';if(fs==2)return gn+f+'m'+m.toFixed(fx)+'s';}function str2rad(s,f){var fh=1;f=f?15:1;if(s.indexOf('-')!=-1)fh=-1;s=s.replace(/h|m|s|(-)|(°)|\'|\"/g,' ');s=s.replace(/ +/g,' ');s=s.replace(/(^\s*)|(\s*$)/g,'');s=s.split(' ');return fh*(s[0]*3600+s[1]*60+s[2]*1)/rad*f;}function rad2mrad(v){v=v%(2*Math.PI);if(v<0)return v+2*Math.PI;return v;}function rad2rrad(v){v=v%(2*Math.PI);if(v<=-Math.PI)return v+2*Math.PI;if(v>Math.PI)return v-2*Math.PI;return v;}function mod2(a,b){var c=a/b;c-=Math.floor(c);if(c>0.5)c-=1;return c*b;}function llr2xyz(JW){var r=new Array(),J=JW[0],W=JW[1],R=JW[2];r[0]=R*cos(W)*cos(J);r[1]=R*cos(W)*sin(J);r[2]=R*sin(W);return r;}function xyz2llr(xyz){var r=new Array(),x=xyz[0],y=xyz[1],z=xyz[2];r[2]=sqrt(x*x+y*y+z*z);r[1]=asin(z/r[2]);r[0]=rad2mrad(atan2(y,x));return r;}function llrConv(JW,E){var r=new Array(),J=JW[0],W=JW[1];r[0]=atan2(sin(J)*cos(E)-tan(W)*sin(E),cos(J));r[1]=asin(cos(E)*sin(W)+sin(E)*cos(W)*sin(J));r[2]=JW[2];r[0]=rad2mrad(r[0]);return r;}function CD2DP(z,L,fa,gst){var a=new Array(z[0]+Math.PI/2-gst-L,z[1],z[2]);a=llrConv(a,Math.PI/2-fa);a[0]=rad2mrad(Math.PI/2-a[0]);return a;}function j1_j2(J1,W1,J2,W2){var dJ=rad2rrad(J1-J2),dW=W1-W2;if(Math.abs(dJ)<1/1000&&Math.abs(dW)<1/1000){dJ*=Math.cos((W1+W2)/2);return Math.sqrt(dJ*dJ+dW*dW);}return Math.acos(Math.sin(W1)*Math.sin(W2)+Math.cos(W1)*Math.cos(W2)*Math.cos(dJ));}function h2g(z,a){a=llr2xyz(a);z=llr2xyz(z);z[0]-=a[0];z[1]-=a[1];z[2]-=a[2];return xyz2llr(z);}function shiChaJ(gst,L,fa,J,W){var H=gst+L-J;return rad2mrad(atan2(sin(H),tan(fa)*cos(W)-sin(W)*cos(H)));}var dt_at=new Array(-4000,108371.7,-13036.80,392.000,0.0000,-500,17201.0,-627.82,16.170,-0.3413,-150,12200.6,-346.41,5.403,-0.1593,150,9113.8,-328.13,-1.647,0.0377,500,5707.5,-391.41,0.915,0.3145,900,2203.4,-283.45,13.034,-0.1778,1300,490.1,-57.35,2.085,-0.0072,1600,120.0,-9.81,-1.532,0.1403,1700,10.2,-0.91,0.510,-0.0370,1800,13.4,-0.72,0.202,-0.0193,1830,7.8,-1.81,0.416,-0.0247,1860,8.3,-0.13,-0.406,0.0292,1880,-5.4,0.32,-0.183,0.0173,1900,-2.3,2.06,0.169,-0.0135,1920,21.2,1.69,-0.304,0.0167,1940,24.2,1.22,-0.064,0.0031,1960,33.2,0.51,0.231,-0.0109,1980,51.0,1.29,-0.026,0.0032,2000,63.87,0.1,0,0,2005,64.7,0.21,0,0,2012,66.8,0.22,0,0,2018,69.0,0.36,0,0,2028,72.6);function dt_ext(y,jsd){var dy=(y-1820)/100;return -20+jsd*dy*dy;}function dt_calc(y){var y0=dt_at[dt_at.length-2];var t0=dt_at[dt_at.length-1];if(y>=y0){var jsd=31;if(y>y0+100)return dt_ext(y,jsd);var v=dt_ext(y,jsd);var dv=dt_ext(y0,jsd)-t0;return v-dv*(y0+100-y)/100;}var i,d=dt_at;for(i=0;i<d.length;i+=5)if(y<d[i+5])break;var t1=(y-d[i])/(d[i+5]-d[i])*10,t2=t1*t1,t3=t2*t1;return d[i+1]+d[i+2]*t1+d[i+3]*t2+d[i+4]*t3;}function dt_T(t){return dt_calc(t/365.2425+2000)/86400.0;}var JD={JD:function(y,m,d){var n=0,G=0;if(y*372+m*31+int2(d)>=588829)G=1;if(m<=2)m+=12,y--;if(G)n=int2(y/100),n=2-n+int2(n/4);return int2(365.25*(y+4716))+int2(30.6001*(m+1))+d+n-1524.5;},DD:function(jd){var r=new
寿星万年历v5.10(2019年更新）
5星 · 超过95%的资源 需积分: 45 29 浏览量
2020-02-15
14:31:54
上传
评论 6
收藏 189KB RAR 举报 
sxwnl.rar （1个子文件） 
sxwnl.htm 449KB资源评论
pwxz20152020-11-27挺有用,javascript 可以直接調用.支持 -4713 到 9998 年- leuelcey2020-06-13一直在研究，感谢分享！
JWST20092020-05-19里面调整了一个日食计算公式。谢谢许老师。
