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

  

如果真 (局_闰月 ≠ 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 />     .判断结束

太感谢了，楼主牛

新技能已get√

太感谢了，楼主牛

学习一下

感谢分享

谢谢分享  

谢谢分享  

感谢楼主分享！