EXCEL公历日期转农历日期方法3.docxVIP

PAGE \* MERGEFORMAT 1 EXCEL公历日期转农历日期方法 方法1：使用EXCEL内置函数Text返回日期的阿拉伯数字的农历年月日 在A1单元格输入公历日期 如 2001-11-30 在B1单元格 按照阿拉伯数字的日期格式显示转换后的农历日期， 在B1单元格输入转农历公式：=TEXT(A1,[$-130000]yyyy-mm-dd) 回车显示农历日期 2001-10-16 按照中文年月的日期格式显示转换后的农历日期，在B1单元格输入转农历公式： =TEXT(A1,[$-130000]yyyy年m月IF(LEN(--TEXT(A1,[$-130000]dd))=1,初,)d) 回车显示农历日期 2001年10月16 方法2：使用EXCEL自定义函数 上面介绍的Text函数是Excel内置函数，如果要显示农历的天干地支等信息，用内置函数公式写得就会很长，这种情况下，可以使用自定义函数，在公式栏就可以简化输入。 我们可以自定义函数Lunardate, 用以实现 在A1单元格输入公历日期 如 2001-11-30 在B2输入公式：=Lunardate(A2)，回车显示农历日期 农历辛巳年(蛇)十月十六 在Excel中设定自定义函数Lunardate的步骤： 按“Alt+F11”快捷键，出现如下图的空白窗，在框体 1处，粘贴Lunardate的程序（见下面的详细程序），粘贴完毕，点击右上角的2处十字叉关闭关闭框，再点击左上角的3处的Excel图标回到Excel的工作表。 要粘贴的程序如下： Public Function Lunardate(Optional XX_DATE As Date) Dim MonthAdd(11), LunardateData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12)Dim curTime, curYear, curMonth, curDayDim GongliStr, LunardateStr, LunardateDayStrDim 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) =