右栏

中华农历论坛 → 知识讨论区 → 历法知识 → [求助]帮我看看这个算法，怎么总是相差十天


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

主题：[求助]帮我看看这个算法，怎么总是相差十天
帅哥哟，离线，有人找我吗？
秦汉昌
 小大  1楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：业余侠客 帖子：372 积分：1447 威望：0 精华：0 注册：2008/12/20 18:10:00 		[求助]帮我看看这个算法，怎么总是相差十天  发帖心情 Post By：2008/12/25 1:37:00

装载 D:\DOWNLOADS\汉语编程\新词汇集\由儒略日推算历日.CHP
。 ★
2008 12 24.0 由儒略日推算历日 ★...
看数摞 [3] 1 3 2009 ★...
2008 12 22.0 由儒略日推算历日 ★......
看数摞 [6] 1 3 2009 1 3 2009 ★......
2008 12 22.0 1 由儒略日推算历日 看数摞
数摞顶有不同类型的数进行运算!
2008 12 1.0 由儒略日推算历日 看数摞 [3] 1 3 2009 ★...
2007 12 24.0 由儒略日推算历日 看数摞 [6] 1 3 2009 1 3 2008 ★......
2007 12 1.0 由儒略日推算历日 看数摞 [9] 1 3 2009 1 3 2008 1 3 2008 ★......

支持(0) 中立(0) 反对(0)  单帖管理 | 引用 | 回复 回到顶部
帅哥哟，离线，有人找我吗？
秦汉昌
 小大  2楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：业余侠客 帖子：372 积分：1447 威望：0 精华：0 注册：2008/12/20 18:10:00 		  发帖心情 Post By：2008/12/25 1:38:00

依原始资料如下：

由儒略日推算历日

将JD加上0.5，令 Z 为其整数部分，F 为尾数（小数）部分。

若 Z < 2299161，取A = Z

若 Z 大于等于2299 161，计算 α=INT((Z-1867216.25)/36524.25) ，A=Z+1+α-INT(α/4)

然后计算

B = A+1524

C = INT((B-122.1)/365.25)

D = INT(365.25C)

E = INT((B-D)/30.6001)

该月日期（带小数部分）则为：d = B - D - INT(30.6001E) + F

月份m为：
IF E < 14 THEN m = E – 1
IF E=14 or E=15 THEN m = E – 13

年份为y：
IF m>2 THEN y = C – 4716 IF m =1 or m=2 THEN y = C – 4715

这个公式里求E时用的数30.6001不能代之以30.6，哪怕计算机没有先前所说的问题。否则，你得到的结果会是2月0日而不是1月31日，或者4月0日而不是3月31日。
支持(0) 中立(0) 反对(0)  单帖管理 | 引用 | 回复 回到顶部
帅哥哟，离线，有人找我吗？
秦汉昌
 小大  3楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：业余侠客 帖子：372 积分：1447 威望：0 精华：0 注册：2008/12/20 18:10:00 		  发帖心情 Post By：2008/12/25 1:41:00

装载 D:\DOWNLOADS\汉语编程\新词汇集\由儒略日推算历日.CHP
。 ★
2008 12 24.0 由儒略日推算历日 ★...
看数摞 [3] 1 3 2009 ★...
2008 12 22.0 由儒略日推算历日 ★......
看数摞 [6] 1 3 2009 1 3 2009 ★......
2008 12 22.0 1 由儒略日推算历日 看数摞
数摞顶有不同类型的数进行运算!
2008 12 1.0 由儒略日推算历日 看数摞 [3] 1 3 2009 ★...
2007 12 24.0 由儒略日推算历日 看数摞 [6] 1 3 2009 1 3 2008 ★......
2007 12 1.0 由儒略日推算历日 看数摞 [9] 1 3 2009 1 3 2008 1 3 2008 ★.......
.
2007 10 1.0 由儒略日推算历日 看数摞 [12] 1 3 2009 1 3 2008 1 3 2008 1 3 2008
 ★........
2007 6 1.0 由儒略日推算历日 ★........
看数摞 [15] 1 3 2009 1 3 2008 1 3 2008 1 3 2008 1 3 2007 ★........

支持(0) 中立(0) 反对(0)  单帖管理 | 引用 | 回复 回到顶部
帅哥哟，离线，有人找我吗？
秦汉昌
 小大  4楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：业余侠客 帖子：372 积分：1447 威望：0 精华：0 注册：2008/12/20 18:10:00 		  发帖心情 Post By：2008/12/25 1:42:00

不知原始数据有问题，还是我的程序没编好，呵呵
支持(0) 中立(0) 反对(0)  单帖管理 | 引用 | 回复 回到顶部
帅哥哟，离线，有人找我吗？
浪-淘-沙
 小大  5楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：2068 积分：4263 威望：5 精华：4 注册：2008/11/13 21:03:00 		  发帖心情 Post By：2008/12/25 8:07:00

如果正好差十天,那么你忘了1582年10月4日的第二天是1582年10月15日.中间的10月5日到10月14日已经被人为抹去了.

支持(0) 中立(0) 反对(0)  单帖管理 | 引用 | 回复 回到顶部
帅哥哟，离线，有人找我吗？
秦汉昌
 小大  6楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：业余侠客 帖子：372 积分：1447 威望：0 精华：0 注册：2008/12/20 18:10:00 		  发帖心情 Post By：2008/12/25 20:47:00

呵呵，不好意思，是我自己少了一个符号所致，现在已经测试，能正常使用，并发表于本版：儒略日推算历日.CHP

支持(0) 中立(0) 反对(0)  单帖管理 | 引用 | 回复 回到顶部

返回版面帖子列表

[求助]帮我看看这个算法，怎么总是相差十天
签名：
RSS2.0　　Xhtml无图版　　Xslt无图版 Copyright ©2005 - 2018 NongLi.Com Email:chinanongli@tom.com   京ICP备05002438号 Powered By Dvbbs8.2.0