有农历和公历相互转换的函数吗

公历转农历，如图例：

B2="农历"&TEXT(A2,"[$-130000]m月d日")----限2007版以上

农历闰月月份会加 1，如润7月会显示8月，8月顺延为9月…，12月顺延为13月。

农历转公历：(供参考，不一定正确，闰年无法转换)

B2=LOOKUP(--SUBSTITUTE(SUBSTITUTE(A2,-30,-28),-29,-27),--TEXT((LEFT(A2,5)&"1/1")+ROW($1:$400),"[$-130000]yyyy/m/d"),(LEFT(A2,5)&"1/1")+ROW($1:$400))+(--RIGHT(A2,2)>28)2

验算：C2="农历"&TEXT(B2,"[$-130000]m月d日")

=TEXT(EDATE(A1,-12),"[$-130000]YYYY-M-D")

不过2020年有闰月（闰4月），闰月后面的农历月份显示的都不对，腊月会显示13月，推算公式好像挺复杂，建议通过后台写VBA/从网上抓取结果

Excel里显示农历的函数，常用的是TEXT函数，如：

=TEXT(A1,”[$-130000]YYYY-M-D”)

但是出现了闰月后就会出现问题。

因此还需要其他的来进行处理，更为准确些。

可以“搜Excel农历”使用VBA的方式更好些。

VBA代码