Excel阳历转农历VBA函数

最新推荐文章于 2023-04-05 19:36:56 发布

MerryG1

最新推荐文章于 2023-04-05 19:36:56 发布

阅读量5.8k

点赞数 7

分类专栏： Excel 文章标签： excel

本文链接：https://blog.csdn.net/MerryG1/article/details/107442311

版权

通过在Excel中使用VBA自定义函数，可以方便地将阳历日期转换为农历。步骤包括：1、打开VBA编辑环境并插入模块；2、在模块中输入阳历转农历的代码；3、在工作表中输入阳历日期，用公式=NongLi(阳历日期单元格)即可获取农历结果。

摘要由CSDN通过智能技术生成

使用方法如下：

1、在Excel工作表界面下同时按Alt+F11键，打开VBA窗口，进入VBA编辑环境，在菜单中点击“插入-模块”，在当前窗口编辑区域中输入自定义函数代码，代码见下文。复制粘贴代码后，将窗口关闭。

2、在A1单元格中输入阳历日期，再在另一个单元格输入公式=NongLi(A1)，就可以自动将阳历转换成农历了。

Public Function NongLi(Optional xx_date As Date)Dim MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12)Dim curTime, curYear, curMonth, curDayDim GongliStr, NongliStr, NongliDayStrDim i, m, n, k, isEnd, bit, TheDate'获取当前系统bai时间curTime = xx_date'天干名称duTianGan(0) = "甲"TianGan(1) = "乙"TianGan(2) = "丙"TianGan(3) = "丁"TianGan(4) = "戊"TianGan(5) = "己"TianGan(6) = "庚"TianGan(7) = "辛"TianGan(8) = "壬"TianGan(9) = "癸"'地支名称DiZhi(0) = "子"DiZhi(1) = "丑"DiZhi(2) = "寅"DiZhi(3) = "卯"DiZhi(4) = "辰"DiZhi(5) = "巳"DiZhi(6) = "午"DiZhi(7) = "未"DiZhi(8) = "申"DiZhi(9) = "酉"DiZhi(10) = "戌"DiZhi(11) = "亥"'属相名称ShuXiang(0) = "鼠"ShuXiang(1) = "牛"ShuXiang(2) = "虎"ShuXiang(3) = "兔"ShuXiang(4) = "龙"ShuXiang(5) = "蛇"ShuXiang(6) = "马"ShuXiang(7) = "羊"ShuXiang(8) = "猴"ShuXiang(9) = "鸡"ShuXiang(10) = "狗"ShuXiang(11) = "猪"'农历日期名称DayName(0) = "*"DayName(1) = "初一"DayName(2) = "初二"DayName(3) =