[求助]我的要求很简单，这个农历转公历，公历转农历的VBA代码是正确的吗？ [中华农历论坛]

中华农历论坛 → 知识讨论区 → 历法知识 → [求助]我的要求很简单，这个农历转公历，公历转农历的VBA代码是正确的吗？

共有19619人关注过本帖树形打印主题：[求助]我的要求很简单，这个农历转公历，公历转农历的VBA代码是正确的吗？

nut2004

小大 1楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：4 积分：235 威望：0 精华：0 注册：2015/5/22 17:16:00

[求助]我的要求很简单，这个农历转公历，公历转农历的VBA代码是正确的吗？ 发帖心情

Post By：2015/5/22 18:09:00

我的要求很简单
只要把指定公历日期转换成农历，但看了坛子的代码太累赘，功能太多，整得太复杂。

如下
公历农历互转

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

此主题相关图片如下：农历公历互转.png

实现1900年－2150年内的查询即可

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

nut2004

小大 2楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：4 积分：235 威望：0 精华：0 注册：2015/5/22 17:16:00

这是我找到的代码 发帖心情

Post By：2015/5/22 18:17:00

我已经在坛子里研究了两天，但还看不出来一个所以然，下面的代码请前辈帮帮我看看——重点是这样算法对吗？

下面的'农历常量：ylData，这个是什么意思，代表什么，这些数据是正确的吗？

链接：http://www.excelpx.com/home/show.aspx?id=34965

坛子里根本没法直接贴代码，贴上后格式全乱了，请前辈直接看链接的代码吧

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

nut2004

小大 3楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：4 积分：235 威望：0 精华：0 注册：2015/5/22 17:16:00

Post By：2015/5/22 18:41:00

代码地址：http://www.excelpx.com/home/show.aspx?id=34965

[此贴子已经被作者于2015-5-23 9:09:28编辑过]

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

hiteyun

小大 4楼 个性首页 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：业余侠客帖子：381 积分：2141 威望：0 精华：0 注册：2009/5/1 23:57:00

Post By：2015/5/23 9:30:00

以下是引用nut2004在2015-5-22 18:17:00的发言：
我已经在坛子里研究了两天，但还看不出来一个所以然，下面的代码请前辈帮帮我看看——重点是这样算法对吗？

下面的'农历常量：ylData，这个是什么意思，代表什么，这些数据是正确的吗？

链接：http://www.excelpx.com/home/show.aspx?id=34965

坛子里根本没法直接贴代码，贴上后格式全乱了，请前辈直接看链接的代码吧

这是一个查表法的日期转换程序，程序里将特定年份（1899-2100年）的农历每年各月大小、闰月等信息编成压缩数据存储在数组常量中。如第1个十六进制数为“AB500D2”，AB5即十二位二进制数101010110101表示1899年农历各月大小，00表示这一年没有闰月，D2换成十进制数为210表示当年正月初一的公历日期为2月10号。