公历和农历互转 纯源码实现

dot

最近用到了公历农历互转的代码，找了N久，没找到满意的，最后在网友发的java源码上找到灵感。转换日期范围为1900-2099年。（非抓取，非接口，非网络）


温馨提醒后来者：公历 农历属于2个不同的历法，本身无法通过简单的公式换算，农历的编排是由国家机构颁发的，因为农历属于天文历法，每月的初一必须是朔月，所以，大家也没必要花太多时间去学习的。
本源码只调用了精易模块，所以就不上传该模块了。

dot

农历转公历处的代码这个地方得修改一下，

  

如果真 (局_闰月 ≠ 0)
判断 (局_月 ＝ 局_闰月 且 参_是否闰月 或 局_月 ＞ 局_闰月)
判断 (取文本中间 (局_当年农历信息, 13 ＋ 局_闰月, 1) ＝ “0”)
局_公历日数 ＝ 局_公历日数 ＋ 29

局_公历日数 ＝ 局_公历日数 ＋ 30

.版本 2<br /> <br /> .如果真 (局_闰月 ≠ 0)<br />     .判断开始 (局_月 ＝ 局_闰月 且 参_是否闰月 或 局_月 ＞ 局_闰月)<br />         .判断开始 (取文本中间 (局_当年农历信息, 13 ＋ 局_闰月, 1) ＝ “0”)<br />             局_公历日数 ＝ 局_公历日数 ＋ 29<br /> <br />         .默认<br />             局_公历日数 ＝ 局_公历日数 ＋ 30<br />         .判断结束<br /> <br />     .默认<br /> <br />     .判断结束

替换为

  

如果真 (参_是否闰月 且 局_闰月 ＝ 局_月)
判断 (取文本中间 (局_当年农历信息, 12 ＋ 局_月, 1) ＝ “0”)
局_公历日数 ＝ 局_公历日数 ＋ 29

局_公历日数 ＝ 局_公历日数 ＋ 30


如果真 (局_闰月 ≠ 0 且 局_月 ＞ 局_闰月)
判断 (取文本中间 (局_当年农历信息, 13 ＋ 局_闰月, 1) ＝ “0”)
局_公历日数 ＝ 局_公历日数 ＋ 29

局_公历日数 ＝ 局_公历日数 ＋ 30

.版本 2<br /> <br /> .如果真 (参_是否闰月 且 局_闰月 ＝ 局_月)<br />     .判断开始 (取文本中间 (局_当年农历信息, 12 ＋ 局_月, 1) ＝ “0”)<br />         局_公历日数 ＝ 局_公历日数 ＋ 29<br /> <br />     .默认<br />         局_公历日数 ＝ 局_公历日数 ＋ 30<br /> <br />     .判断结束<br /> <br /> .如果真结束<br /> <br /> .如果真 (局_闰月 ≠ 0 且 局_月 ＞ 局_闰月)<br />     .判断开始 (取文本中间 (局_当年农历信息, 13 ＋ 局_闰月, 1) ＝ “0”)<br />         局_公历日数 ＝ 局_公历日数 ＋ 29<br /> <br />     .默认<br />         局_公历日数 ＝ 局_公历日数 ＋ 30<br /> <br />     .判断结束

gp5165203

太感谢了，楼主牛

pipicool

学习一下

ttggnn

感谢分享

tw1

谢谢分享  

君九

谢谢分享  

商务

感谢楼主分享！

396384183

新技能已get√

一指温柔

感谢分享