EXCEL 公历转农历

超超之道

公历转农历 一直有个梗 就是 闰月。
本人搜罗网上三种 农历转公历的函数写法，进行修正，改进，得到当前比较不错的一个写法。
源于大家，回馈大家：
首先，准备闰月表，知道哪一年闰、哪一月，这个百度可得。把闰月表放在E:F区域。
其次，对A1的日期，在B1里写公式：=MID("甲乙丙丁戊己庚辛壬癸",MOD(TEXT(A2,"[$-130000]e")-4,10)+1,1)&MID("子丑寅卯辰巳午未申酉戌亥",MOD(TEXT(A2,"[$-130000]e")-4,12)+1,1)&"年"&NUMBERSTRING(IF(VALUE(TEXT(A2,"[$-130000]m"))>IFNA(VLOOKUP(VALUE(TEXT(A2,"[$-130000]yyyy")),E:F,2,0),13),TEXT(A2,"[$-130000]m")-1,TEXT(A2,"[$-130000]m")),1)&"月"&TEXT(A2,IF(--TEXT(A2,"[$-130000]d")=10,"初十",IF(--TEXT(A2,"[$-130000]d")>10,"[$-130000][DBNum1]d","初[$-130000][DBNum1]d")))

完成截图

完毕！
其中，=IF(VALUE(TEXT(A3,"[$-130000]m"))>IFNA(VLOOKUP(VALUE(TEXT(A3,"[$-130000]yyyy")),E:F,2,0),12),TEXT(A3,"[$-130000]m")-1,TEXT(A3,"[$-130000]m"))
这段是判断闰月，是当前闰月则月份减一。部分TEXT转换后需要VALUE再转换，否则无法判断数值和运算。

超超之道

欢迎大家补充，改进

一剑惊心

你试一下2018-1-17这个日期，返回了啥

hcm19522

农历一年354.多天 ,與公历差11.多天 ,所以三年一潤 ,19年潤7次
西元年換算天干年D2:D16=INDEX(MID(REPT("甲乙丙丁戊己庚辛壬癸",6),ROW($1:$60),1)&MID(REPT("子丑寅卯辰巳午未申酉戌亥",5),ROW($1:$60),1),MOD(B2-4+(B2<0),60)+1)&"年"

超超之道

一剑惊心 发表于 2018-1-9 14:04
你试一下2018-1-17这个日期，返回了啥

我的结果是：丁酉年一十二月初一，我看了看电脑的农历，一样的。错在哪了，请指教。

超超之道

hcm19522 发表于 2018-1-9 16:34
农历一年354.多天 ,與公历差11.多天 ,所以三年一潤 ,19年潤7次
西元年換算天干年=INDEX(MID(REPT("甲乙丙 ...

您好，您这公式我用了一下，B2单元格结果错误，我引用A2结果是戊丁年。
请问，公式怎么解释的。

hcm19522

超超之道 发表于 2018-1-10 15:57
您好，您这公式我用了一下，B2单元格结果错误，我引用A2结果是戊丁年。
请问，公式怎么解释的。

4螻已附截圖 B2是西元年

超超之道

hcm19522 发表于 2018-1-10 16:34
4螻已附截圖 B2是西元年

晕，刚才没打开图……

YZC51

请参考
http://club.excelhome.net/thread-1190893-1-1.html

hws20080808

超超之道 发表于 2018-1-10 15:53
我的结果是：丁酉年一十二月初一，我看了看电脑的农历，一样的。错在哪了，请指教。

是的，是丁酉年一十二月初一！