农历计算程序

cyfx2288

非常佩服楼主。有个疑问请教：楼主表中结果与寿星历有一定的出入，2003年河北林道心出版的万年历纸质书大致与寿星历一致，细节有差异，台湾中央研究院发布有公元1年至今的公历农历对照表。与寿星历出有部分出入。
截止目前，1900年以前的公农历对照究竟哪个结果更靠谱呀？国家有没有公开发布过相关对照表？
从网上一些天文论文看，天文学术圈内应该是有一个相对精确的古代农历与现代农历的对照的，可惜并未向公众公开发布。

zopey

cyfx2288 发表于 2019-2-16 19:54
非常佩服楼主。有个疑问请教：楼主表中结果与寿星历有一定的出入，2003年河北林道心出版的万年历纸质书大致 ...

你可以去“农历网”看看，那里比较专业。

YZC51

古代万年历节选
明庄烈帝崇祯十五年·清太宗崇德七年壬午(公元1642年)

月份

正月

二月

三月

四月

五月

六月

七月

八月

九月

十月

十一月

闰十一月

十二月

大

小

大

小

大

大

小

大

大

小

大

小

大

月干支

壬寅

癸卯

甲辰

乙巳

丙午

丁未

戊申

己酉

庚戌

辛亥

壬子

壬子

癸丑

初一

公历

1.3

3.1

3.3

4.29

5.28

6.27

7.27

8.25

9.24

10,24

11.24

12.22

1.2

干支

辛未

辛丑

庚午

庚子

己巳

己亥

己巳

戊戌

戊辰

戊戌

丁乡尸

丁酉

丙寅

十一

公历

2.9

3.11

4. 9

5.9

6.7

7.7

8.6

9.4

30.4

33.3

12.2

1.1

1.3

干支

辛巳

辛亥

庚辰

庚戌

己夕F

己酉

己卯

戊申

戊寅

戊申

丁丑

丁未

丙子

廿一

公历

2.19

3.23

4.19

S.19

6.17

7.17

8.1b

9.14

10.14

11.13

12.12

1.11

2.9

干支

辛卯

辛酉

庚寅

庚申

己丑

己未

己丑

戊午

戊子

戊午

丁亥

丁巴

丙戌

YZC51

If getjq_12 > jda Then jda = jda - 5: GoTo haha '这一行加的妙！

zopey

YZC51 发表于 2019-2-16 22:47
古代万年历节选
明庄烈帝崇祯十五年·清太宗崇德七年壬午(公元1642年)

皇帝年号 只能查表。能计算吗？

zopey

cyfx2288 发表于 2019-2-16 19:54
非常佩服楼主。有个疑问请教：楼主表中结果与寿星历有一定的出入，2003年河北林道心出版的万年历纸质书大致 ...

还原历史只能按文献 修正：


中国古代历法要点   
　　1、公元8年十二月初，王莽改国号为新，称始建国元年，并颁行以十二为岁首的殷历。因此公元8年少十二月。
　　2、公元23年，汉淮阳王刘玄颁行新历，恢复以正月建寅为岁首的夏历，该年有两个十二月。
　　3、公元237年，魏明帝改用以十二月为岁首的殷历，称“景初历”（亦称永初历），既把三月改为四月，是年无三月，只有11个月，公元238、239年均实行殷历，公元239年十二月复寅正，是年有两个十二月。
　　4、公元689年，武则天颁行以十一月为岁首的周历，是年少十一月和十月，并将其移至公元690年岁首（称正月、腊月）。直至公元700年十月复寅正，该年有15个月。
　　5、公元761年九月唐肃宗建宝应年号，并颁行以建子月为岁首的周历，该年仅10个月。但仅过半年，于公元762年四月复寅正，故该年有两个四月和五月，共有14个月。
　　6、公元1582年罗马教皇格里高利修订历法称格里历，其中将1582年10月4日后的一天改为10月15日，星期序号仍然连续计算。这样就解决了儒历比回归年慢10日的情况，改年只有355天。
　　7、公元前850年至公元前222年，岁首是指含冬至之月（农历建子之十一月）的朔日；公元前221-前104年，以颛顼历十月建亥为岁首；公元前104年后，采用夏历以正月初一为岁首。

YZC51

2014        闰九月小        2014        闰九

YZC51

zopey 发表于 2019-2-17 09:57
皇帝年号 只能查表。能计算吗？

是的，皇帝年号 只能查表。

zopey

YZC51 发表于 2019-2-17 10:30
2014        闰九月小        2014        闰九

农历计算要点:1、日月合朔时刻所在的UTC日期为新月份初一,而不是上月的最后一天。所以,在合朔那一天正好是节气或中气,那么该气属本月(的初一),不是上月的。   举 例:冬至200x-12-22 10:00:00, K月的起止合朔时刻200x-11-23 xx:xx:xx和200x-12-22 11:00:00          K月的起止时刻范围已包含了冬至,但从日期看,冬至却不属于K月,冬至是下一个月的
2014年应该是遇到这个问题吧，代码修改如下

1. If getjq_12 > jda Then
   
2.    If Round(getjq_12, 0) = Round(jda, 0) Then Exit Function
   
3.    jda = jda - 5: GoTo haha
   
4. End If

复制代码

cyfx2288

zopey 发表于 2019-2-16 20:33
你可以去“农历网”看看，那里比较专业。

各种网站，我都查过，农历网、台湾中央研究院的网页。各版本之间总的算来部分年度相关一两天，部分年度润月份不同，应该定气精度造成的，或者是古人定气不准，或者是现代倒算结果由于一些特殊原因与古代真实天相不符。秦汉以前的公农历对照，不同版本相差就大了。唉，没有国家认可的统一版本，导致的结果就是无所适从、无可奈何。