关于农历数据制表及查询

zopey · 发表于 2017-7-17 20:47

农历、公历日期互转的内容，网上能搜到不少，最常见的一个思路是从现在万年历摘取数据，制成一个表格（数组）用来查询。
现在将从函数代码中摘取出的不同的农历数组数据做个对比，简单介绍每位二进制数字的含义。
希望能帮助到对农历、公历日期互转有兴趣的朋友。

农历数组数据.rar (17.78 KB, 下载次数: 432)

zopey · 发表于 2017-7-19 16:46

有个自定义函数Lunar（），现在我们来检验它是否有误。
我选择了2个农历闰年：1998年、2012年。
1、查表
1998年农历数组数据为 5936BC，转为2进制 0101 1001 0011 0110 1011 1100
2012年农历数组数据为 4B5537，转为2进制 0100 1011 0101 0101 0011 0111
其中第20位到第8位（从右往左数）代表了农历1-13月的大小，就是
1998年  1001 0011 0110 1
2012年  1011 0101 0101 0
2、根据附件的自定义函数 lunar计算得到，
1998年农历1-13月的大小分别是 1001 ，0（1）011 ，0110
2012年农历1-13月的大小分别是 1011（0）， 0101， 0101
（）代表闰月
3、由1和2 得出的数据比较，自定义函数它把数据数据的第8位当成了闰月的大小标志，
   第8位实际是农历第13个月的大小，所以lunar函数的代码是不对的。期待改正。

阳历转换阴历2017.zip (32.62 KB, 下载次数: 218)

zopey · 发表于 2017-7-20 11:29

1、lunardata sub有一处代码原为
If LunarData.leapmonth = 0 Then LunarData.month(i) = 0

按照2楼分析，修改如下：
If LunarData.leapmonth = 0 Then
   LunarData.month(13) = 0
Else
   b = LunarData.month(LunarData.leapmonth + 1)
   For i = LunarData.leapmonth + 1 To 12
         LunarData.month(i) = LunarData.month(i + 1)
   Next i
   LunarData.month(13) = b
End If

2、2004年的农历数组数据，原为  &H25AA36  有误, 修改为  &H25AAC6

以上是我测试中发现的问题已修正。详见附件

公历农历互转函数.zip (52.86 KB, 下载次数: 247)

zopey · 发表于 2017-7-20 19:49

天文学的回归年是365.2422日，天文学的朔望月长度是29.5306日，人们总结出了计算节气和朔日时间的两个经验公式，不过这两个公式的结果也只能精确到日，不能提供10秒以内精度的时间。
已知1900年小寒时刻为1月6日2:05:00，以1900年1月0日（星期日）为基准日，之后的每一天与基准日的差值称为“积日”， 1900年1月1日的积日是1，以后的时间依次类推。

1、计算第y年第x个节气的积日公式是：
F = 365.242 * (y – 1900) + 6.2 + 15.22 *x - 1.9 * sin(0.262 * x)
其中x是节气的索引，0代表小寒，1代表大寒，其它节气按照顺序类推。

2、计算从1900年开始第m个朔日的公式是：
M = 1.6 + 29.5306 * m + 0.4 * sin(1 - 0.45058 * m)

要想精确地获得几千年乃至更长时间范围内任意一年的节气发生时间和日月合朔时间，就只能采用“天文算法”。

zopey · 发表于 2017-7-31 11:16

最新版公历查农历、四柱，

因节气计算采用的经验公式，月令有个别误差。

公历查农历及四柱.zip (36.78 KB, 下载次数: 342)

zopey · 发表于 2017-7-31 14:55

应用一：推算三伏天初伏为夏至后第3个庚日，中伏为夏至后第4个庚日，末伏为立秋后第1个庚日。
2017年的推算结果分别是 7月12日，7月22日。8月11日。

zopey · 发表于 2017-7-31 15:20

应用二：起运天数的计算
农历1995年4月21日生男为阳年生男，从生日顺数至五月初九，即芒种开始, 共17天除以3，等于从5岁零八个月开始行大运.
如果这一天生女, 从生日逆数至四月初七, 即立夏开始之日, 共14天除以3，等于从4岁零八个月行大运.

aeo000000 · 发表于 2017-10-21 20:39

这个贴比较晚一点，在回一下：
sizhu 不对
比如阳历 2002/2/4
壬午马年壬寅立春月令癸卯日 ---明显不对，应该还是蛇年
2002年是2-11号除夕

好像节气也不对
=====================================
错误应该是年份是不是应该是先转阴历？
按道理节气不应该错
但2002/2/3 应该是大寒，算出来是小寒

zopey · 发表于 2017-10-22 19:34

农历年属于阴阳历，以立春节气为分界线，故
2002/2/3为蛇年的最后一天，2002/2/4（立春）为马年第一天。

而且2002/2/3不是大寒也不是小寒，具体请查正确的万年历。
（网上有的不靠谱）

YZC51 · 发表于 2017-10-23 20:56

留步观察学习！！！

		自动登录	找回密码
密码			免费注册

[讨论] 关于农历数据制表及查询

评分

评分