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

bgt1982

prome3 发表于 2024-2-10 23:33
代码出错的原因是定义的数组太小了。把下图中的 99 改为 199 试试看：

您分析得很对，原因就出在数组定义的大小，但这个代码默认就计算100年内的农历，就是把定义数组的大小改成199，虽然代码能运行，但2021年之后的农历计算结果却是错的。
感谢老师的帮助。

bgt1982

fzxba 发表于 2024-2-10 21:17
此帖巨牛
https://club.excelhome.net/thread-1281548-1-1.html

老师推荐的这个这个帖子确实强大，再次感谢！

boyayes

我刚刚又修改了一下，下这个附件。
可计算的日期范围：1921-2-7至2100-2-8
可计算的全年范围：1922全年-2099全年
另外，附加了从中华民国之后的朝代计算。
这个日期范围足够咱们这代人用了啊。

bgt1982

boyayes 发表于 2024-2-11 10:10
我刚刚又修改了一下，下这个附件。
可计算的日期范围：1921-2-7至2100-2-8
可计算的全年范围：1922全年 ...

功能比较强大，注释较为详细，适合初学者研究，再次感谢老师的帮助！

bgt1982

boyayes 发表于 2024-2-11 10:10
我刚刚又修改了一下，下这个附件。
可计算的日期范围：1921-2-7至2100-2-8
可计算的全年范围：1922全年 ...

有一点很好奇，想请教下老师，每年的农历数据的数组tempArr是怎么算出来的？

boyayes

bgt1982 发表于 2024-2-11 10:35
有一点很好奇，想请教下老师，每年的农历数据的数组tempArr是怎么算出来的？

关于这个农历数据的数组，你就用现成的就好了，对于黄经度数朔望周期等不懂的人来说，是有点挠头哩。

bgt1982

boyayes 发表于 2024-2-11 11:15
关于这个农历数据的数组，你就用现成的就好了，对于黄经度数朔望周期等不懂的人来说，是有点挠头哩。

明白了老师，至少大致了解了一些情况，这就够了！

wcj6376tcp

="今天是"&TEXT(NOW(),"yyyy年mm月dd日aaaahh:mm:ss ")&MID("甲乙丙丁戊己庚辛壬癸",MOD(TEXT(NOW(),"[$-130000]e")-4,10)+1,1)&MID("子丑寅卯辰巳午未申酉戌亥",MOD(TEXT(NOW(),"[$-130000]e")-4,12)+1,1)&"年"&IF(OR(TEXT(NOW()," [$-130000]m")*1=12,TEXT(NOW()," [$-130000]m")*1=13),"腊",IF(TEXT(NOW()," [$-130000]m")*1=1,"正",TEXT(NOW()," [$-130000][DBNum1]m")))&"月"&IF(TEXT(NOW()," [$-130000]d")-9<=1,"初",IF(TEXT(NOW()," [$-130000]d")-29>=1,"卅",IF(TEXT(NOW()," [$-130000]d")-19>=1,"廿","十")))&IF(RIGHT(TEXT(NOW()," [$-130000]d"),1)*1=0,"",TEXT(RIGHT(TEXT(NOW()," [$-130000]d"),1)*1,"[DBNum1]d"))&" 祝大家工作愉快！"

bgt1982

wcj6376tcp 发表于 2024-2-11 11:55
="今天是"&TEXT(NOW(),"yyyy年mm月dd日aaaahh:mm:ss ")&MID("甲乙丙丁戊己庚辛壬癸",MOD(TEXT(NOW(),"[$-13 ...

这个公式有局限性的，今天的数据也不是完全正确的，切换到2023年，数据就有很多问题了。

bgt1982

高个子 发表于 2024-2-10 22:16
能转换的最大日期是2021/2/11，为啥会报错看不出原因

有幸又见老师关注，老师的强项是函数。