[已解决]公历自动转换成农历和天干地支

cunfu2010

如题，当光标在单元格时，弹出公历对应的农历及天干地支。现在是实现的弹出公历、农历，想在农历下面显示干支，如何实现？谢谢！！！

最佳答案

月排行榜 / 总排行榜

passwordsend

2016-8-30 12:01

cunfu2010 发表于 2016-8-27 16:29
谢谢，前些日子有点别的事，才看到。非常感谢！
效果是将B列和D列的内容在Label1中同时显示，即显示公历 ...

3楼的附件已更新，已经用加载宏完成了楼主的需求，请重新下载。因本人未接触过VBA，故未用VBA实现。
另外，关于月干支，它是与节气同步的，因此需要知道节气的日期，这里只能给出个工具，来提取这些数据，数据格式是C/C++的，已经过压缩，还请楼主自己加工成VBA代码。

工具：
新方法.rar (640.94 KB, 下载次数: 220)

2016-8-30 11:57 上传

点击文件名下载附件

月干支和日干支的算法，给出下面资料：
月干支的推算方法：年上起月法（五虎遁元法）
甲己之年丙作首，
乙庚之年戊为头，
丙辛之岁寻庚上，
丁壬壬寅顺水流，
若问戊癸何方发，
甲寅之上好追求。

注解：
1、月份指的是农历。
2、年干支为甲或己的，正月为丙寅；年干支为乙或庚的，正月为戊寅；年干支为丙或辛的，正月为庚寅；年干支为丁或壬的，正月为壬寅；年干支为戊或癸的，正月为甲寅。其它月份按六十甲子顺序推之。

时干支的推算方法：日上起时法（五鼠遁元法）

甲己还加甲，
乙庚丙作初，
丙辛从戊起，
丁壬庚子居，
戊癸何方发，
壬子是真途。

注解：
    1、古时一天分为十二个时辰。23:00——1:00为子时，1:00——3:00为丑时，3:00——5:00为寅时，5:00——7:00为卯时，7:00——9:00为辰时，9:00——11:00为巳时，11:00——13:00午时，13:00——15:00为未时，15:00——17:00为申时，17:00——19:00为酉时，19:00——21:00为戌时，21:00——23:00为亥时。
2、日干支为甲或己的，子时为甲子；日干支为乙或庚的，子时为丙子；日干支为丙或辛的，子时为戊子；日干支为丁或壬的，子时为庚子；日干支为戊或癸的，子时为壬子。其它时辰按六十甲子顺序推之。

跳转到最佳答案楼层

cunfu2010

求帮助

passwordsend

不知你要怎么样的效果，看看这样可以吗？
公历自动转换成农历和天干地支（已修改）.zip (48.88 KB, 下载次数: 201)

2016-8-30 11:45 上传

点击文件名下载附件
我的主题贴里有：实现公农历互转的加载宏

cunfu2010

passwordsend 发表于 2016-8-19 23:01
不知你要怎么样的效果，看看这样可以吗？

我的主题贴里有：实现公农历互转的加载宏

谢谢，前些日子有点别的事，才看到。非常感谢！
效果是将B列和D列的内容在Label1中同时显示，即显示公历、农历、干支。（代码最好在同一工作薄里，能不另外加载宏最好）

passwordsend

cunfu2010 发表于 2016-8-27 16:29
谢谢，前些日子有点别的事，才看到。非常感谢！
效果是将B列和D列的内容在Label1中同时显示，即显示公历 ...

3楼的附件已更新，已经用加载宏完成了楼主的需求，请重新下载。因本人未接触过VBA，故未用VBA实现。
另外，关于月干支，它是与节气同步的，因此需要知道节气的日期，这里只能给出个工具，来提取这些数据，数据格式是C/C++的，已经过压缩，还请楼主自己加工成VBA代码。

工具：
新方法.rar (640.94 KB, 下载次数: 220)

2016-8-30 11:57 上传

点击文件名下载附件

月干支和日干支的算法，给出下面资料：
月干支的推算方法：年上起月法（五虎遁元法）
甲己之年丙作首，
乙庚之年戊为头，
丙辛之岁寻庚上，
丁壬壬寅顺水流，
若问戊癸何方发，
甲寅之上好追求。

注解：
1、月份指的是农历。
2、年干支为甲或己的，正月为丙寅；年干支为乙或庚的，正月为戊寅；年干支为丙或辛的，正月为庚寅；年干支为丁或壬的，正月为壬寅；年干支为戊或癸的，正月为甲寅。其它月份按六十甲子顺序推之。

时干支的推算方法：日上起时法（五鼠遁元法）

甲己还加甲，
乙庚丙作初，
丙辛从戊起，
丁壬庚子居，
戊癸何方发，
壬子是真途。

注解：
    1、古时一天分为十二个时辰。23:00——1:00为子时，1:00——3:00为丑时，3:00——5:00为寅时，5:00——7:00为卯时，7:00——9:00为辰时，9:00——11:00为巳时，11:00——13:00午时，13:00——15:00为未时，15:00——17:00为申时，17:00——19:00为酉时，19:00——21:00为戌时，21:00——23:00为亥时。
2、日干支为甲或己的，子时为甲子；日干支为乙或庚的，子时为丙子；日干支为丙或辛的，子时为戊子；日干支为丁或壬的，子时为庚子；日干支为戊或癸的，子时为壬子。其它时辰按六十甲子顺序推之。

cunfu2010

passwordsend 发表于 2016-8-30 12:01
3楼的附件已更新，已经用加载宏完成了楼主的需求，请重新下载。因本人未接触过VBA，故未用VBA实现。
...

附件出问题了，能否查看一下，重新发一个，谢谢！！！

passwordsend

cunfu2010 发表于 2017-11-30 21:41
附件出问题了，能否查看一下，重新发一个，谢谢！！！

你到我的主题帖中去下载即可，百度网盘里是最新版本的，修复了很多问题。

想学学这个