《在Excel中实现公历与农历互转.pdf》由会员分享，可在线阅读，更多相关《在Excel中实现公历与农历互转.pdf（10页珍藏版）》请在金锄头文库上搜索。
1、Excel 中另一种公历与农历互转的方法 前言： 很多人都遇到过在 Excel 中将公历转换成农历的情况， 而网上所给的方法， 就是使用 VBA 宏或者 Excel 宏，这两者固然简单，但会出现安全警告，同时，支持的年份也只有 200 年， 在某些特殊场合下不能满足要求，为此，特地开发一款带日期转换和天数计算的加载宏 （LunarX.xll） ，来顺应需求，内置了公历、农历、节日、节气等多个日历元素。 使用说明： 函数及功能： 1. XGToL：公历转农历； 2. XLToG：农历转公历； 3. XWeek：星期计算； 4. XDays：天数差计算； 5. XDate：日期计算； 6. XSi
2、zhu：四柱查询； 7. XSolarTerm：二十四节气查询； 8. XDayInfo：每日信息； 9. XDayInfoEx：查询某地日出、日落，天黑、天亮时刻； 10. XDaysOfMonth：查询某个月的总天数； 11. XDaysOfYear：查询某一年的总天数； 12. XGetDateInYear：查询指定日期在某一年中对应的公历或农历日期。 使用方法： 1. 安装加载宏： 将 LunarX.xll 放至一个指定目录，打开 Excel，在【文件】菜单中选择【选项】 ，点击选项 后， 出现如下界面， 再点 “加载项” 。 Office2003 及以下版本请点 【工具】 中的 【加
3、载宏】 。 然后在下方的管理中选择“Excel 加载项”并点击“转到(G)”,出现如下的加载宏界面。 请点击“浏览(B)” ，选择之前放 LunarX.xll 的目录下的“LunarX.xll”,确定即可，到这一 步，加载宏安装完成。注意 32 位 Office 用 32 位的加载宏，64 位 Excel 用 64 位的加载宏。 点击“确定”后，可以看到， “Excel 农历插件”前面的勾已经被选中，点击“确定” 2. 调用函数 公历转农历（XGToL） ： 注意，此时的单元格 A1 中的日期格式只能是 YYYY/MM/DD 或 YYYY-MM-DD。 以上方法可以让 A1 单元格内的格式转换
4、成其它格式，只用使用 TEXT 函数将日期格式 化，还可以用“=XGToL(TEXT(A1,YYYY-MM-DD)” ，效果是一样的。但这个方法有个缺点，如 果日期时间是两位数的年份，如 XX/2/5，刚会被 Excel 自动还原成 19XX/2/5。 本函数得到的农历日期，是以干支纪年再加上农历月日，农历本身无几几年的概念。 农历转公历（XLToG） ： 农历转换时，为了正确表示农历的时间，将岁次改成与公历同步的年份，格式：1999 年 正月初一。 星期计算（XWeek） 星期计算支持公历日期和农历日期 显示结果一致，说明计算正确。 计算天数差（XDays） ： 可支持以下几种计算方法： 公
5、历日期与公历日期之间的天数差 公历日期与农历日期之间的天数差 农历日期与农历日期之间的天数差 注意，得到的天数是 A2-A1，如果天数小于 0，表示 A1 的日期晚于 A2。 计算日期（XDate） ： 支持公历日期和农历日期 注意， 日期一定要在前面， 天数在后面， 天数负数， 表示在 A1 单元格日期之前的日期。 计算四柱（XSizhu） ： 查询节气（XSolarTerm） ： 用节气名称查询 用节气编号查询，该年的第一个节气用编号“1”表示，比如第一个节气为“小寒” ，则 “2”表示大寒，以此类推，直至该年的最后一个节气编号 24 为止。如果要查询指 定节气，请使用节气名称来代替编号。
6、 XDayInfo（请查看 Demo.xls） XDayInfoEx 其余参数请参照“fx”中的函数参数说明来使用。 XDaysOfMonth 支持 yyyy/mm/dd，yyyy-mm-dd，yyyy/mm，yyyy-mm，以及农历年月，年月日等输入格 式。 XGetDateInYear 农历，最典型的日期为 2017 年的闰六月三十，以下就以该日期为例： 公历，典型日期就是 2 月 29 日： 通过以上函数，可以看出，日期会被自动转化，农历转化规则是：无闰月的年份查农历转化规则是：无闰月的年份查 闰月则当作非闰月处理，无三十的月份查三十则当作廿九处理。公历转化规则是：闰月则当作非闰月处理，
7、无三十的月份查三十则当作廿九处理。公历转化规则是： 2 月无月无 29 日若查日若查 29 日则当作日则当作 28 日来处理。日来处理。 XDaysOfYear 参数：缺省状态下获取到的结果为为公历年的总天数，与“gy”效果相同，而“ly”这 个参数所获取到的结果表示农历年的总天数。 详细信息请查看 Demo.xls。 3. 参数说明 以下给出参数列表，当参数不输入时，表示缺省参数，格式用默认方式输出。 0：按照默认的格式输出 1：y 2：m 3：d 4：hh 5：mm 6：ss 7：y/m 8：m/d 9：y/m/d 10：hh:mm 11：hh:mm:ss 12：y/m/d hh:mm 1
8、3：y/m/d hh:mm:ss 14：m/d hh:mm:ss 15：m/d hh:mm 16：y m 17：y m d 18：y m d h 19：年 20：月 21：日 ：时 23：分 24：秒 25：年月 26：月日 27：年月日 28：时分 29：时分秒 30：年月日时分 31：年月日时分秒 32：月日时分秒 33：月日时分 34：年 月 35：年 月 日 36：年 月 日 时 支持参数的函数：XGToL，XLToG，XDate，XSolarTerm 和 XGetDateInYear 这 5 个函数，但 每个函数支持的输出格式参数会有所不同，有些参数会不支持，详细说明这里不写了，请参
9、 照 Demo.xls。 XDayInfo 的参数为： 0 缺省状态全部显示（即显示编号 1-10 的所有信息项，农历日优先级最低） 1 st 显示节气 2 lh 显示农历节日 3 gh 显示公历节日 4 sj 显示数九 5 my 显示梅雨 6 fr 显示伏日 7 sr 显示社日 8 ld 显示农历日 9 lm 显示农历月 10 “lp” 显示月相 以上参数可以组合使用，多个参数之间请用“ ” （空格）隔开。 以下参数请单独使用： 11 “co” 显示星座（与节气同步） 12 nh 显示年号 13 md 显示次日公历日（当月） 14 nd 显示次日公历日 4. 更新加载宏 只要用新版本的加载宏
10、替换掉旧版本即可（请在关闭 Excel 后进行替换操作） 。 注意：由于本加载宏在不断更新，为了保证用户能使用最新版本，将有一个使用期限， 到期请更新即可。如需新版本，请发邮件来索取（邮箱见本文尾） 。后续待版本稳定后， 将发布长期有效的版本。 5. 启用、禁用加载宏 打开加载项管理器，将“Excel 农历插件”前面的勾去掉，点确定，出现如下对话框，表 示禁用加载宏成功。 如果要启用，请将 LunarX 前面的勾选中，然后确定。 6. 需要使用“Excel 农历插件”请用 PDF 阅读器打开本文档。 （见本页页眉右侧） 7. 卸载加载宏 关闭 Excel，将加载宏从安装的位置移除（删除或移动到其它目录） ，再打开 Excel，会出 现以下提示信息： 点击【确定】 ，打开加载项管理页面，点击列表中的 LunarX，会出现以下提示信息。 点击【是】 ，即可将加载宏卸载。 8. 更新加载宏目录 请先卸载当前LunarX加载宏， 然后关闭所有Excel， 再打开， 重新加载新目录下的LunarX.xll， 再次关闭 Excel，最后打开使用即可。 9. 其它说明： 此加载宏目前支持所有版本 Excel。 本加载宏是免费的，请不要将其用于商业用途。 如果在使用过程中遇到问题或有好的建议，请反馈。后续版本会改进。持续更新。
