Excel公历转农历阳历转阴历精品文档15

1、第 4 页参看一：可以这样试一下：EXCEL200冲可以直接做到，例如TEXT(日期,$-130000e-m-d)，可返回日期的 阿拉伯数字的农历 年月日，中文农历转换公式如下：B2单元格=MID( 庚辛壬癸甲乙丙丁戊己 ,MOD(TEXT(A2,$-130000e),10)+1,1)&MID( 申酉戌亥子丑寅卯辰巳午未,M0D(TEXT(A2,$-130000e),12)+1,1)&TEXT(A2,dbnum1$-130000年 M月&IF(-TEXT(A2,$-130000d)v-10,初)&D 日)此公式仅EXCEL2007以使用，EXCEL2003及以下不能正常使用上面那个公式好像有问

2、题，可以试一下这个：参看二：日期在 A2,这个公式在 B2=CHOOSE(MOD(YEAR(LEFT(TEXT(A2,$-130000yyyy年 mm月&IF(LEN(-TEXT(A2,$-130000dd)=1,初,)&dd),4)&-&MID(TEXT(A2,$-130000yyyy年 mmM&IF(LEN(-TEXT(A2,$-130000dd)=1,初,)&dd),6,2)&-&RIGHT(TEXT(A2,$-130000yyyy年 mmM&IF(LEN(-TEXT(A2,$-130000dd)=1,初,)&dd),2)-1900,10)+1,庚,辛II II壬, 癸 ,甲, 乙, 丙

3、, 丁, 戊,)&CHOOSE(MOD(YEAR(LEFT(TEXT(A2,$-130000yyyy年 mm月&IF(LEN(-TEXT(A2,$-130000dd)=1,初,)&dd),4)&-&MID(TEXT(A2,$-130000yyyy年mm月&IF(LEN(-TEXT(A2,$-130000dd)=1,初&dd),6,2)&叮&RIGHT(TEXT(A2,$-130000yyyy年 mmMII II寅, 卯, 辰,巳, 午, 未,申, 酉, 戌, 亥&IF(LEN(-TEXT(A2,$-130000dd)=1,初,)&dd),2)-1900,12)+1,子丑)&TEXT(A2,db

4、num1$-130000年 m月&IF(-TEXT(A2,H$-130000dH)11,初,)&TEXT(A2,dbnum1$-130000d 日) 二CHOOSE(MOD(YEAR(LEFT(TEXT(A1$-130000yyyy 年 mm月&IF(LEN(-TEXT(A11,$-130000dd)=1,初,)&dd),4)&-&MID(TEXT(A11,$-130000yyyy年 mm月&IF(LEN(-TEXT(A11,$-130000dd)=1,初,)&dd),6,2)&-&RIGHT(TEXT(A11,$-130000yyyy年 mm月&IF(LEN(-TEXT(A11,$-1300

5、00dd)=1,初,)&dd),2)-1900,10)+1, 庚, 辛, 壬, 癸, 甲, 乙, 丙, 丁, 戊, 己)&CHOOSE(MOD(YEAR(LEFT(TEXT(A11,$-130000yyy年 mm月 &IF(LEN(-TEXT(A11,$-130000dd)=1,初,)&dd),4)&-&MID(TEXT(A11,$-130000yyyy 年 mm月&IF(LEN(-TEXT(A11,$-130000dd)=1,初,)&dd),6,2)&RIGHT(TEXT(A11,$-130000yyyy 年 mn月&IF(LEN(-TEXT(A11,$-130000dd)=1,初,)&dd

6、),2)-1900,12)+1,子,丑,寅,卯,辰,巳,午,未,申,酉,戌,亥)&TEXT(A11,dbnum1$-130000 年 m月& IF(-TEXT(A11,$-130000d) GongliStrcurYear = Y ear(curTime)curM onth = Mon th(curTime)curDay = Day(curTime)Gon gliStr = cur Year & ”年”If (curMo nth 10) The nGongliStr = GongliStr & 0 & curMonth & 月ElseGo ngliStr = Gon gliStr & curM

7、o nth & 月End IfIf (curDay 2) ThenTheDate = TheDate + 1End If计算农历天干、地支、月、日isE nd = 0m = 0DoIf (No ngliData(m) 4095) Thenk = 11Elsek = 12End Ifn 二 kDoIf (n 0) The nExit DoEnd If获取NongliData(m)的第n个二进制位的值bit = No ngliData(m)For i = 1 To n Step 1第 23 页bit = In t(bit / 2)Nextbit = bit Mod 2If (TheDate (In

8、 t(No ngliData(m) / 65536) + 1) Then curMo nth = curMo nth - 1End IfEnd If生成农历天干、地支、属相= NongliStrNo ngliStr =农历& Tia nGan (curYear - 4) Mod 60) Mod 10) & DiZhi(curYear-4) Mod 60) Mod 12) & 年NongliStr = NongliStr & ( & ShuXiang(curYear - 4) Mod 60) Mod 12) & )生成农历月、日 = NongliDayStrIf (curM on th 1) The nNon gliDayStr =闰 ” & Mo nN ame(-1 * curMo nth)ElseNo ngliDayStr = MonN ame(curMo nth)End IfNongliDayStr = NongliDayStr & ” 月”No ngliDayStr = No ngliDayStr & DayName(curDay)Non gLi = Non gliStr & No ngliDayStrEnd Fun cti on其中还有个2007版的公式也可以，不过有时候会出错，公式如下：二TEXT(A1,$-130000yyy