如何在excel中实现阳历转化阴历概述.doc

步骤一，在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 子?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 初三?DayName 4 初四?DayName 5 初五?DayName 6 初六?DayName 7 初七?DayName 8 初八?DayName 9 初九?DayName 10 初十?DayName 11 十一?DayName 12 十二?DayName 13 十三?DayName 14 十四?DayName 15 十五?DayName 16 十六?DayName 17 十七?DayName 18 十八?DayName 19 十九?DayName 20 二十?DayName 21 廿一?DayName 22 廿二?DayName 23 廿三?DayName 24 廿四?DayName 25 廿五?DayName 26 廿六?DayName 27 廿七?DayName 28 廿八?DayName 29 廿九?DayName 30 三十?农历月份名?MonName 0 *?MonName 1 正?MonName 2 二?MonName 3 三?MonName 4 四?MonName 5 五?MonName 6 六?MonName 7 七?MonName 8 八?MonName 9 九?MonName 10 十?MonName 11 十一?MonName 12 腊?公历每月前面的天数?MonthAdd 0 0?MonthAdd 1 31?MonthAdd 2 59?MonthAdd 3 90?MonthAdd 4 120?MonthAdd 5 151?MonthAdd 6 181?MonthAdd 7 212?MonthAdd 8 243?MonthAdd 9 273?MonthAdd 10 304?MonthAdd 11 334?农历数据?NongliData 0