excel公历转农历的四种方法.docx

excel公历转农历的四种方法[日期：2012-02-08] 来源：IT部落窝 作者：IT部落窝 阅读：8875次[字体：大 javascript:ContentSize(0)中 javascript:ContentSize(12)小]内容提要：文章介绍excel公历转农历的四种方法，分别通过excel内置函数和自定义函数完成公历转农历。　尽管通过很多渠道可以轻松获取公历转农历，但是对excel迷们还是很期待用excel来实现公历转农历。　设想一下，IT部落窝会员们的信息都是以阳历注册的，我们也可以使用下面即将介绍的方法实现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)。　关于自定义函数的使用方法请参考：/show.asp?id=1274excel自定义函数添加和使用方法　下面是此自定义函数相关的代码：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)