1、百度文库-让每个人平等地提升自我excel公历转农历的四种方法excel公历转农历方法一：使用text函数A列是公历日期，我们在B1单元格输入公式：=TEXT(A1,"$-130000yyyy年m月"&IIT部落离娜2012212012-1-29F(LEN(-TEXT(A1,”$-130000dd")=1,"初","")&"d"),下拉完成公历转农历。笈-TEXT(AE2012年1月1012012年3月初打excel公历转农历方法二：使用text+MID函数A列仍然是公历，
2、B1输入公式：=MID("甲乙丙丁戊己庚辛壬癸",MOD(TEXT(A1,"$-130000e")-4,10)+1,1)&MID("子丑寅卯辰巳午未申酉戌亥”,MOD(TEXT(A1,”$-130000e")-4,12)+1,1)&"年"&TEXT(A1,”$-130000DBNum1m月d曰”即可。TEXT(Al.部吟韵翳日展年覃王曰2252-1-29立欣年一月七日excel公历转农历方法三：使用text+MID+CHOOSE+YEAR函数A1为公历,B1输入：=CH
3、OOSE(MOD(YEAR(A1)-1900,10)+1,"庚","辛"，"壬","癸","甲","乙","丙","丁","戊","己")&CHOOSE(MOD(YEAR(A1)-1900,12)+1,"子","丑","寅","卯","辰","巳","午&quo
4、t;，"未","申"，"酉","戌","亥")&TEXT(A1,"dbnum1$-130000年m月"&IF(-TEXT(A1,"$-130000d")<11,"初","")&TEXT(A1,"dbnum1$-130000d")hlwh6嬴I笈=CHOOgECWDl山B落Ui的E1一2012-2-111千辰年一月初十J22012-2-2注展年一月十一1e
9、iang(4)="龙"ShuXiang(5)="蛇"ShuXiang(6)="马"ShuXiang(7)="羊"ShuXiang(8)="飞"ShuXiang(9)="鸡"ShuXiang(10)="狗"ShuXiang(11)="猪"农历日期名DayName(0)="*"DayName="初一"DayName(2)="初二"DayName(3)="初三"
10、;DayName(4)="初四"DayName(5)="初五"DayName(6)="初六"DayName="初七"DayName(8)="初八"DayName(9)="初九"DayName(10)="初十"DayName(11)="十一"DayName(12)="十二"DayName(13)="十三"DayName(14)="十四"DayName(15)="十五&q
11、uot;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
14、ata(2)=1701NongliData(3)=1748NongliData(4)=267701NongliData(5)=694NongliData(6)NongliData(7)NongliData(8)NongliData(9)NongliData(10)NongliData(ll)NongliData(12)NongliData(13)NongliData(14)NongliData(15)NongliData(16)NongliData(17)NongliData(18)NongliData(19)NongliData(20)NongliData(21)Nongli
15、Data(22)NongliData(23)NongliData(24)NongliData(25)NongliData(26)NongliData(27)NongliData(28)23911334231175396438=3402=3749=331177=1453=694=201326=2350=465197=3221=3402=400202=2901=1386=267611=605=2349=137515=2709=464533=1738NongliData(29)百度文库-让每个人平等地提升自我NongliData(30)NongliData(31)NongliData(32)Nong
16、liData(33)NongliData(34)NongliData(35)NongliData(36)NongliData(37)NongliData(38)NongliData(39)NongliData(40)NongliData(41)NongliData(42)NongliData(43)NongliData(44)NongliData(45)NongliData(46)NongliData(47)NongliData(48)NongliData(49)NongliData(50)NongliData(51)=2901=330421=1242=2651=199255=1323=529
17、706=3733=1706=398762=2741=1206=267438=2647=1318=204070=3477=461653=1386=2413=330077=1197=2637NongliData(52)NongliData(53)=2688779百度文库-让每个人平等地提升自我13=3365=531109=2900=2922=398042=2395=1179=267415=2635=661067=1701=1748=398772=2742=2391=330031=1175=1611=200010=3749=527717=1452=2742NongliData(54)NongliDa
18、ta(55)NongliData(56)NongliData(57)NongliData(58)NongliData(59)NongliData(60)NongliData(61)NongliData(62)NongliData(63)NongliData(64)NongliData(65)NongliData(66)NongliData(67)NongliData(68)NongliData(69)NongliData(70)NongliData(71)NongliData(72)NongliData(73)NongliData(74)NongliData(75)NongliData(76)
19、NongliData(78)=2350NongliData(79)=3222NongliData(80)=268949NongliData(81)=3402NongliData(82)=3493NongliData(83)=133973NongliData(84)=1386NongliData(85)=464219NongliData(86)=605NongliData(87)=2349NongliData(88)=334123NongliData(89)=2709NongliData(90)=2890NongliData(91)=267946NongliData(92)=2773Nongli
20、Data(93)=592565NongliData(94)=1210NongliData(95)=2651NongliData(96)=395863NongliData(97)=1323NongliData(98)=2707NongliData(99)=265877生成当前公历年、月、曰=>GongliStrcurYear=Year(curTime)curMonth=Month(curTime)curDay=Day(curTime)GongliStr=curYear&"年"If(curMonth<10)ThenGong
21、liStr=GongliStr&"0"&curMonth&"月"ElseGongliStr=GongliStr&curMonth&"月"EndIfIf(curDay<10)ThenGongliStr=GongliStr&"0"&curDay&"日"ElseGongliStr=GongliStr&curDay&"日"En