中华农历论坛知识讨论区历法知识 → 公开修正后的《电脑医生万年历》历算核心代码


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

主题:公开修正后的《电脑医生万年历》历算核心代码

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


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

///---八字干支--/////
//年干支
function yGz(y,m,d,h){
  var br=(D0(y,m,d)+(h+1)/24);
  var rc=S(y,3,1);
  if(br<rc) //判斷是否過立春
    y-=1;
  return round(rem(y-3,60));
}
///月干支
function mGz(y,m,d,h){
 var djr=(D0(y,m,d)+(h+1)/24);
 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;
 if(djr<S(y,3,1)){
 return round(rem(12*gan((yGz(y,m,d))+9)+gzM-10,60));
 }else{
   return round(rem(12*gan(yGz(y,m,d))+gzM-10,60));
   }
}
 //日干支
 function dGz(y,m,d,h){
  var gzD=(h<23)?erD(y,m,d):erD(y,m,d)+1;
  return round(rem(gzD+15,60));
 }
  function dGza(y,m,d,h){
  var gzD=(h<23)?erD(y,m,d):erD(y,m,d)+1;
  return gzD;
}
//時干支
function hGz(y,m,d,h){
  var v=12*gan(dGz(y,m,d,h))+floor((h+1)/2)-11;
  if(h==23)
    v-=12;
  return round(rem(v,60));
}

///---八字干支--/////
//年干支
function yGz(y,m,d,h){
  var br=(D0(y,m,d)+(h+1)/24);
  var rc=S(y,3,1);
  if(br<rc) //判断是否过立春
    y-=1;
  return round(rem(y-3,60));
}
///月干支
function mGz(y,m,d,h){
 var djr=(D0(y,m,d)+(h+1)/24);
 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;
 if(djr<S(y,3,1)){
 return round(rem(12*gan((yGz(y,m,d))+9)+gzM-10,60));
 }else{
   return round(rem(12*gan(yGz(y,m,d))+gzM-10,60));
   }
}
 //日干支
 function dGz(y,m,d,h){
  var gzD=(h<23)?erD(y,m,d):erD(y,m,d)+1;
  return round(rem(gzD+15,60));
 }
  function dGza(y,m,d,h){
  var gzD=(h<23)?erD(y,m,d):erD(y,m,d)+1;
  return gzD;
}
//时干支
function hGz(y,m,d,h){
  var v=12*gan(dGz(y,m,d,h))+floor((h+1)/2)-11;
  if(h==23)
    v-=12;
  return round(rem(v,60));
}


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


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

//--------回暦--------//
function huili(y,m,d,h){
var n = (floor(round(JD(y,m,d,20,0,0,8)*1000)/1000)-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
  13楼 个性首页 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


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

节日计算也用付件传上,要的话请看付件。

因个人所要的风格不同,应用方面就不发了。大家要怎么用就怎么用吧!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:节日.txt


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


加好友 发短信
等级:新手上路 帖子:13 积分:236 威望:0 精华:0 注册:2009/6/18 13:06:00
  发帖心情 Post By:2009/6/19 11:00:00

编程代码,以帖子发布让人看着头晕,为什么不打包下载呢?

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


加好友 发短信
等级:论坛游侠 帖子:159 积分:583 威望:0 精华:1 注册:2008/9/3 16:55:00
  发帖心情 Post By:2009/6/19 16:19:00

谢谢共享

图片点击可在新窗口打开查看


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


加好友 发短信
等级:版主 帖子:2068 积分:4263 威望:5 精华:4 注册:2008/11/13 21:03:00
  发帖心情 Post By:2009/6/20 22:55:00

支持共享源码,楼主辛苦了。

谢谢。


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


加好友 发短信
等级:新手上路 帖子:12 积分:229 威望:0 精华:0 注册:2009/5/29 17:54:00
  发帖心情 Post By:2009/7/20 15:20:00

学习了,感谢分享

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


加好友 发短信
等级:新手上路 帖子:5 积分:297 威望:0 精华:0 注册:2009/1/7 11:15:00
  发帖心情 Post By:2009/8/4 9:45:00

谢谢分享!

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


加好友 发短信
等级:新手上路 帖子:3 积分:203 威望:0 精华:0 注册:2009/8/24 23:26:00
  发帖心情 Post By:2009/8/24 23:38:00

嘿嘿,是有点晕。
还是谢谢提供,复制了,下来好好学习学习。

支持(0中立(0反对(0单帖管理 | 引用 | 回复 回到顶部
总数 19 上一页 1 2

返回版面帖子列表

公开修正后的《电脑医生万年历》历算核心代码








签名