excel公历转农历四种方法.doc

excel公历转农历的四种方法 excel公历转农历方法一：使用text函数 　　A列是公历日期，我们在B1单元格输入公式：=TEXT(A1,[$-130000]yyyy年m月IF(LEN(--TEXT(A1,[$-130000]dd))=1,初,)d)，下拉完成公历转农历。 excel公历转农历方法二：使用text+MID函数 　　A列仍然是公历，B1输入公式：=MID(甲乙丙丁戊己庚辛壬癸,MOD(TEXT(A1,[$-130000]e)-4,10)+1,1)MID(子丑寅卯辰巳午未申酉戌亥,MOD(TEXT(A1,[$-130000]e)-4,12)+1,1)年TEXT(A1,[$-130000][DBNum1]m月d日即可。 excel公历转农历方法三：使用text+MID+ CHOOSE+ YEAR函数 　　A1为公历，B1输入：=CHOOSE(MOD(YEAR(A1)-1900,10)+1,庚,辛,壬,癸,甲,乙,丙,丁,戊,己)CHOOSE(MOD(YEAR(A1)-1900,12)+1,子,丑,寅,卯,辰,巳,午,未,申,酉,戌,亥)TEXT(A1,[dbnum1][$-130000]年m月IF(--TEXT(A1,[$-130000]d)11,初,)TEXT(A1,[dbnum1][$-130000]d)) excel公历转农历方法四：使用自定义函数 　　上面介绍的excel公历转农历都是使用excel内置函数完成的，有一个弊端就是公式太长，如果使用自定义函数，在公式栏就可以简化输入。 　　如下图所示，我们在B2输入公式：=nongli(A2)，即可。C列农历简称中C2公式是：=RIGHT(B2,LEN(B2)-8)。 　　关于自定义函数的使用方法请参考： excel自定义函数添加和使用方法 　　下面是此自定义函数相关的代码： 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 获取当前系统时间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