在excel中实现阳历转化阴历.docVIP

步骤一，在Excel工作表界面下按ALT+F11组合键打开VBA窗口，进入VBA编辑环境，在其窗口的菜单栏上依次单击“插入”→“模块”，可在当前VBA工程中插入模块，并直接进入此模块的代码编辑区域。可在此编辑区域中输入自定义函数的程序代码,如图： 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, curDay?Dim GongliStr, NongliStr, NongliDayStr?Dim i, m, n, k, isEnd, bit, TheDate?获取当前系统时间?curTime = XX_DATE?天干名称?TianGan(0) = 甲?TianGan(1) = 乙?TianGan(2) = 丙?TianGan(3) = 丁?TianGan(4) = 戊?TianGan(5) = 己?TianGan(6) = 庚?TianGan(7) = 辛?TianGan(8) = 壬?TianGan(9) = 癸?地支名称?DiZhi(0)