excel公历转制农历阳历转阴历.docVIP

参看一： 可以这样试一下：EXCEL2007中可以直接做到，例如 TEXT(日期,[$-130000]e-m-d)，可返回日期的阿拉伯数字的农历年月日， 中文农历转换公式如下： B2单元格 =MID(庚辛壬癸甲乙丙丁戊己,MOD(TEXT(A2,[$-130000]e),10)+1,1)MID(申酉戌亥子丑寅卯辰巳午未,MOD(TEXT(A2,[$-130000]e),12)+1,1)TEXT(A2,[dbnum1][$-130000]年M月IF(-TEXT(A2,[$-130000]d)-10,,初)D日) 此公式仅EXCEL2007以使用，EXCEL2003及以下不能正常使用 上面那个公式好像有问题，可以试一下这个： 参看二： 日期在A2, 这个公式在B2 =CHOOSE(MOD(YEAR(LEFT(TEXT(A2,[$-130000]yyyy年mm月IF(LEN(--TEXT(A2,[$-130000]dd))=1,初,)dd),4)-MID(TEXT(A2,[$-130000]yyyy年mm月IF(LEN(--TEXT(A2,[$-130000]dd))=1,初,)dd),6,2)-RIGHT(TEXT(A2,[$-130000]yyyy年mm月IF(LEN(--TEXT(A2,[$-130000]dd))=1,初,)dd),2))-1900,10)+1,庚,辛,壬,癸,甲,乙,丙,丁,戊,己)CHOOSE(MOD(YEAR(LEFT(TEXT(A2,[$-130000]yyyy年mm月IF(LEN(--TEXT(A2,[$-130000]dd))=1,初,)dd),4)-MID(TEXT(A2,[$-130000]yyyy年mm月IF(LEN(--TEXT(A2,[$-130000]dd))=1,初,)dd),6,2)-RIGHT(TEXT(A2,[$-130000]yyyy年mm月IF(LEN(--TEXT(A2,[$-130000]dd))=1,初,)dd),2))-1900,12)+1,子,丑,寅,卯,辰,巳,午,未,申,酉,戌,亥)TEXT(A2,[dbnum1][$-130000]年m月IF(--TEXT(A2,[$-130000]d)11,初,)TEXT(A2,[dbnum1][$-130000]d日)) =CHOOSE(MOD(YEAR(LEFT(TEXT(A11,[$-130000]yyyy年mm月 IF(LEN(--TEXT(A11,[$-130000]dd))=1,初,) dd),4) -MID(TEXT(A11,[$-130000]yyyy年mm月 IF(LEN(--TEXT(A11,[$-130000]dd))=1,初,) dd),6,2) -RIGHT(TEXT(A11,[$-130000]yyyy年mm月 IF(LEN(--TEXT(A11,[$-130000]dd))=1,初,) dd),2))-1900,10)+1,庚,辛,壬,癸,甲,乙,丙,丁,戊,己) CHOOSE(MOD(YEAR(LEFT(TEXT(A11,[$-130000]yyyy年mm月 IF(LEN(--TEXT(A11,[$-130000]dd))=1,初,) dd),4)- MID(TEXT(A11,[$-130000]yyyy年mm月 IF(LEN(--TEXT(A11,[$-130000]dd))=1,初,) dd),6,2) - RIGHT(TEXT(A11,[$-130000]yyyy年mm月 IF(LEN(--TEXT(A11,[$-130000]dd))=1,初,) dd),2))-1900,12)+1,子,丑,寅,卯,辰,巳,午,未,申,酉,戌,亥) TEXT(A11,[dbnum1][$-130000]年m月 IF(--TEXT(A11,[$-130000]d)11,初,) TEXT(A11,[dbnum1][$-130000]d)) Excel公历转农历（阳历转阴历） ??? 用的是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, curDay?Dim GongliStr, NongliStr, NongliDayStr?Dim i, m, n, k, isEnd, bit, TheDate?获取当前系统时间?curTime = XX_DATE?