电脑医生万年历和福星万年历最新历算源码。其它就不都说了源码如下：

  //-----電腦醫萬年暦及福星萬年暦提示特效-----//
  var dwn=document.writeln;
  dwn("<style>");
  dwn(".tableBorder7{width:800;solid; background-color: #000000;}");
  dwn("div{cursor:url('./7000wnldat/123.cur');}");
  dwn("a{cursor:url('./7000wnldat/123.cur');}");
  dwn("BUTTON{font-size: 13px;}");
  dwn(".font1 {line-height: 1px}");
  dwn(".font106 {font-weight: bold;color:#005E00;FONT-SIZE: 13px;line-height: 19px}");
  dwn(".font107 {FONT-SIZE: 12px;line-height: 20px}");
  dwn(".TableBody7{background-color: #eeeeee;}");
  dwn(".TableBody8{background-color: #FFCCCC;}");
  dwn(".TableBody9{background-color: #FCF8D3;}");
  dwn("</style>");//#B1EA45/#660033
var pltsPop=null;
var pltsoffsetX = 18;// 彈出窗於鼠標的距離；
var pltsoffsetY = 8;// 彈出窗於鼠標下方的距離；
var pltstips="";
document.write('<div id=pltsTipLayer style="display: none;position: absolute; z-index:10001"></div>');
function pltsinits(){
    document.onmouseover   = plts;
    document.onmousemove = moveToMouseLoc;
}
function plts(){
    var o=event.srcElement;
    if(o.alt!=null && o.alt!=""){o.dypop=o.alt;o.alt=""};
    if(o.tips!=null && o.tips!=""){o.dypop=o.tips;o.tips=""};
    if(o.tips2!=null && o.tips2!=""){o.dypop=o.tips2;o.tips2=""};
    if(o.tips3!=null && o.tips3!=""){o.dypop=o.tips3;o.tips3=""};
    if(o.tips4!=null && o.tips4!=""){o.dypop=o.tips4;o.tips4=""};
    if(o.tips5!=null && o.tips5!=""){o.dypop=o.tips5;o.tips5=""};
    if(o.tips6!=null && o.tips6!=""){o.dypop=o.tips6;o.tips6=""};
    pltsPop=o.dypop;
    if(pltsPop!=null&&pltsPop!=""&&typeof(pltsPop)!="undefined")
    {
       pltsTipLayer.style.left=-1000;
       pltsTipLayer.style.display='';
       var Msg=pltsPop.replace(/\n/g,"<br>");
       Msg=Msg.replace(/\0x13/g,"<br>");
       var re=/\{(.[^\{]*)\}/ig;
       if(!re.test(Msg))pltstips="<font color=#ffffff>簡介或注釋</font>";
       else{
         re=/\{(.[^\{]*)\}(.*)/ig;
           pltstips=Msg.replace(re,"$1")+" ";
         re=/\{(.[^\{]*)\}/ig;
         Msg=Msg.replace(re,"");
         Msg=Msg.replace("<br>","");}var zsj='12px;padding-right:12px';
         var clre='class=tablebody7';if(o.tips2!=null)clre='class=TableBody8 align="center"';
         if(o.tips3!=null)clre='class=TableBody7 align="center"';
         if(o.tips4!=null)clre='class=TableBody9';if(o.tips6!=null)clre='class=TableBody8 align="left"',zsj='2px;padding-right:2px';
             var content =
             '<table style="FILTER:alpha(opacity=90) shadow(color=#bbbbbb,direction=135);" id=toolTipTalbe border=0><tr><td width="100%"><table class=tableBorder7 cellspacing="1" cellpadding="0" style="width:100%">'+
             '<tr><td "+attr+" '+clre+' style="padding-left:'+zsj+';padding-top: 6px;padding-bottom:6px;line-height:135%">'+Msg+'</td></tr>'+
             '</table></td></tr></table>';
              pltsTipLayer.innerHTML=content;
              toolTipTalbe.style.width=325;if(o.tips2!=null)toolTipTalbe.style.width=215;//
             if(o.tips3!=null)toolTipTalbe.style.width=325;if(o.tips5!=null)toolTipTalbe.style.width=188;
             if(o.tips6!=null)toolTipTalbe.style.width=298;moveToMouseLoc();
              return true;
       }else{
           pltsTipLayer.innerHTML='';
             pltsTipLayer.style.display='none';
              return true;
    }}
function moveToMouseLoc(){
       if(pltsTipLayer.innerHTML=='')return true;
       var MouseX=event.x;
       var MouseY=event.y;
       var popHeight=pltsTipLayer.clientHeight;
       var popWidth=pltsTipLayer.clientWidth;
       var LEFTWidth=pltsTipLayer.clientWidth;
       if(MouseY+pltsoffsetY+popHeight>document.body.clientHeight)
       {
        var daoz=(MouseY+pltsoffsetY+popHeight)-document.body.clientHeight;
                popTopAdjust=pltsoffsetY-daoz-(pltsoffsetY*1.5);//-popHeight-pltsoffsetY*1.5;
       }else{
                 popTopAdjust=0;
       }
       if(MouseX+pltsoffsetX+popWidth>document.body.clientWidth&&LEFTWidth>MouseX-pltsoffsetX*0.3)
       {
       popLeftAdjust=-popWidth-pltsoffsetX*1.5+(document.body.clientWidth-MouseX);
       }else{
       if(MouseX+pltsoffsetX+popWidth>document.body.clientWidth)
       {
              popLeftAdjust=-popWidth-pltsoffsetX*1.5;
       }else{
              popLeftAdjust=0;
       }}
       pltsTipLayer.style.left=MouseX+pltsoffsetX+document.body.scrollLeft+popLeftAdjust;
       pltsTipLayer.style.top=MouseY+pltsoffsetY+document.body.scrollTop+popTopAdjust;
         return true;
}
pltsinits();

//////////////////////

//---數學函數或公用函數---//
  function sin(x){return Math.sin(x);}//正弦
  function asin(x){return Math.asin(x);}//反正弦
  function cos(x){return Math.cos(x);}//餘弦
  function acos(x){return Math.acos(x);}//反餘弦
  function abs(x){return Math.abs(x);}//絕對值
  function floor(x){return Math.floor(x);}//截去小數部份，取整；如：11.25只取出11
  function round(x){return Math.round(x);}//小數部份舍入n位數；如：11.205
  function tail(x){return x-floor(x);}//取出小數部份；如：11.25只取出0.25
  function rem(x,w){return tail(x/w)*w;}//廣義求餘
  function nnr(x,w){if(x<0){x+=(-x*w);}return x%w;}//非負餘數
  function sqrt(x){return Math.sqrt(x);}//數的平方根
  function tan(x){return Math.tan(x);}//正切
  function atan(x){return Math.atan(x);}//反正切
  function zjqz(x){return floor(x-tail(x));}//直接取整
  function ceil(x){return Math.ceil(x);}//返回大於等於其數字參數的最小整數
  function exp(x){return Math.exp(x);}//e(自然對數的底)的冪
  function log(x){return Math.log(x);}//數字的自然對數
  function PI(){return Math.PI;}//角度
  function ang(x,t,c1,t0,t2,t3){//角度計算
    return tail(c1*x)*2*PI()+t0-t2*t*t-t3*t*t*t;}
  function atan2(y,x){return Math.atan2(y,x);}//由X軸到(y,x)點的角度(以弧度為單位)
  function zfjq(a,b,c){return a.substring(b,c);}//字符串截取
  function zfctj(x,y){//字符串統計
    var k=0,n=0;while(1){k=x.indexOf(y,k)+1;if(k>0)n++;else return n;}}
  function rep(x,y,z){x=x.replace(y,z); return x;}//字符串替換
  function trim(s){return s.replace(/(^\s*)|(\s*$)/g,"");}//
  function gzs(v){//干支數-甲子=0、乙丑=1、……癸亥=59。
    var s=round(rem((v+49),60));return s;}
  function gan(x){//天干數
    return x%10;}
  function zhi(x){//地支數
    return x%12;}
 //---字符串轉換函數或公用字符串函數---//
  function jieya(s){//解压缩
  var o="0000000000",o2=o+o,o3=o2+o2+o2;
  s=s.replace(/J/g,'00');
  s=s.replace(/I/g,'000');
  s=s.replace(/H/g,'0000');
  s=s.replace(/G/g,'00000');
  s=s.replace(/t/g,'02');
  s=s.replace(/s/g,'002');
  s=s.replace(/r/g,'0002');
  s=s.replace(/q/g,'00002');
  s=s.replace(/p/g,'000002');
  s=s.replace(/o/g,'0000002');
  s=s.replace(/n/g,'00000002');
  s=s.replace(/m/g,'000000002');
  s=s.replace(/l/g,'0000000002');
  s=s.replace(/k/g,'01');
  s=s.replace(/j/g,'0101');
  s=s.replace(/i/g,'001');
  s=s.replace(/h/g,'001001');
  s=s.replace(/g/g,'0001');
  s=s.replace(/f/g,'00001');
  s=s.replace(/e/g,'000001');
  s=s.replace(/d/g,'0000001');
  s=s.replace(/c/g,'00000001');
  s=s.replace(/b/g,'000000001');
  s=s.replace(/a/g,'0000000001');
  s=s.replace(/z/g,o3+o3+o3+o3+o3+o3);
  s=s.replace(/w/g,o3+o3+o3+o3+o3);
  s=s.replace(/y/g,o3+o3+o3+o3);
  s=s.replace(/x/g,o3+o3+o3);
  s=s.replace(/V/g,o3+o3);
  s=s.replace(/A/g,o3);
  s=s.replace(/B/g,o2+o2+o);
  s=s.replace(/C/g,o2+o2);
  s=s.replace(/D/g,o2+o);
  s=s.replace(/E/g,o2);
  s=s.replace(/F/g,o);
  return s;
 }
  function jieyaNum(s){//解压缩2
  s=s.replace(/k/g,'00c00c0c00c00c00c0c00c00c0c00c00c00c0c00c00c0c00c00c00c0c');
  s=s.replace(/H/g,'00c00c0c00c00c00c0c');
  s=s.replace(/G/g,'00c00c00c0c');
  s=s.replace(/t/g,'00c00c0c');
  s=s.replace(/f/g,'00c');
  return s;
 }

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:历算的源码.rar

//----許劍偉天文數據--用在《福星萬年暦》《電腦醫生萬年暦》時有改動---//
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;   //sin(太陽視差)
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 dt_at=new Array( // TD - UT1 計算表
-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.4,   0,     0,   //1次項記為x,則 10x=0.4秒/年*(2015-2005),x=0.4
 2015,    69
);