excel公历转农历的四种方法精编版

1、最新资料推荐1excel 公历转农历的四种方法excel 公历转农历方法一：使用 text 函数A 列是公历日期，我们在B1 单元格输入公式：=TEXT(A1,$-130000yyyyF(LEN(-TEXT(A1,$-130000dd)=1,初,)&d)，下拉完成公历转农历。年 m 月&IA =TEXT(A【T韶落窝粥三1| 20当-Al ”01月10：2201 Al-29012年.月初7excel 公历转农历方法二：使用 text+MID 函数A 列仍然是公历，B1 输入公式：=MID(甲乙丙丁戊己庚辛壬癸 ,MOD(TEXT(A1,$-130000e)-4,10)+1,1)

2、&MID(子丑寅卯辰巳午未申酉戌亥”,MOD(TEXT(A1,$-130000e)-4,12)+1,1)&年&TEXT(A1,$-130000DBNum1m月 d 日即可。blwbcomIT部落窝论坛12A MIDL甲乙TEXT (Al,丽工1庄辰晕 T 千日2Q12T-29壬辰年一月七目excel 公历转农历方法三：使用 text+MID+ CHOOSE+ YEAR 函数A1 为公历，B1 输入：=CHOOSE(MOD(YEAR(A1)-1900,10)+1, 庚,辛,壬,癸,甲, 乙,丙,丁,戊,己 ”)&CHOOSE(MOD(YEAR(A1)-1900,1

3、2)+1,子,丑,寅,卯,辰,巳，”午,未,申,酉,戌,亥)&TEXT(A1,dbnum1$-130000年 m 月&IF(-TEXT(A1,”$-130000d) Gon gliStrcurYear = Year(curTime)curM onth = Mon th(curTime)curDay = Day(curTime)GongliStr = curYear & ”年”If (curMonth 10) ThenGongliStr = GongliStr & 0 & curMonth & ”月”ElseGongliStr = GongliSt

4、r & curMonth & ”月”End IfIf (curDay 2) ThenTheDate = TheDate + 1End If计算农历天干、地支、月、日isE nd = 0m = 0DoIf (NongliData(m) 4095) Thenk = 11Elsek = 12End Ifn = kDoIf (n 0) ThenExit DoEnd If获取 NongliData(m)的第 n 个二进制位的值bit = Non gliData(m)For i = 1 To n Step 1bit = Int(bit / 2)Nextbit = bit Mod 2最新资料

5、推荐12If (TheDate (Int(NongliData(m)/ 65536) + 1) ThencurMo nth = curMo nth - 1End IfEnd If生成农历天干、地支、属相= Non gliStrNongliStr =农历 ” & TianGan(curYear - 4) Mod 60) Mod 10)4) Mod 60) Mod 12) & ” 年”NongliStr = NongliStr & ( & ShuXiang(curYear - 4) Mod 60)生成农历月、日 = Non gliDayStrIf (curMonth 1) ThenNongliDayStr =闰 ” & MonName(-1 * curMonth)ElseNon gliDayStr = MonN ame(curMo nth)End IfNongliDayStr = NongliDayStr & ”月”NongliDayStr = NongliDayStr & DayName(curD