阳历获取农历的自定义函数不能取得2021年之后的结果

bgt1982 · 发表于 2024-2-10 20:53

本帖最后由 bgt1982 于 2024-2-11 08:00 编辑

首先祝各位老师新年快乐！身体健康！心想事成！
再向老师们请教问题：
如图所示，2021之前的都能获得相应的农历结果，之后的都无法获得，刚接触VBA不久，反复看了代码，还是找不出原因，请各位老师指教，谢谢！

ykcbf1100 · 发表于 2024-2-10 21:13

本帖最后由 ykcbf1100 于 2024-2-10 21:32 编辑

。。。。。。

fzxba · 发表于 2024-2-10 21:17

cjc209 · 发表于 2024-2-10 21:29

ykcbf1100 发表于 2024-2-10 21:13
附件供参考。。。

计算出来的农历明显是错误的比如几天是正月初一结果是2月21

cjc209 · 发表于 2024-2-10 21:30

今天

ykcbf1100 · 发表于 2024-2-10 21:31

cjc209 发表于 2024-2-10 21:29
计算出来的农历明显是错误的比如几天是正月初一结果是2月21

代码没研究，结果没验证。
如果是错的，我还是删除了吧。

高个子 · 发表于 2024-2-10 22:16

能转换的最大日期是2021/2/11，为啥会报错看不出原因

prome3 · 发表于 2024-2-10 23:33

代码出错的原因是定义的数组太小了。把下图中的 99 改为 199 试试看：
代码出错的原因.png

注意：我只是通过简单的调试找到了出错的原因，并且据此给出修改建议。但没有看完完整的代码（这代码写得很一般，没兴趣看完），给的修改建议能成功运行，但不保证结果总是对的。其正确性还需严格的核实、验证。

PS：楼上推荐的农历插件做得真不错！刚刚我试了以下，着实惊艳！

boyayes · 发表于 2024-2-11 01:22

本帖最后由 boyayes 于 2024-2-11 13:23 编辑

此楼废弃。附件在下楼。

boyayes · 发表于 2024-2-11 01:29

本帖最后由 boyayes 于 2024-2-11 13:24 编辑

此楼废弃。附件在下楼。

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

[已解决] 阳历获取农历的自定义函数不能取得2021年之后的结果