EXCEL 公历转农历

hjp3798

在A2 输入公历 ，在B2 输入 =MID("甲乙丙丁戊己庚辛壬癸",MOD(TEXT(A2,"[$-130000]e")-4,10)+1,1)&MID("子丑寅卯辰巳午未申酉戌亥",MOD(TEXT(A2,"[$-130000]e")-4,12)+1,1)&MID("鼠牛虎兔龙蛇马羊猴鸡狗猪",MOD(TEXT(A2,"[$-130000]e")-4,12)+1,1)&"年"&IF(VALUE(TEXT(A2,"[$-130000]m"))=IFNA(VLOOKUP(VALUE(TEXT(A2,"[$-130000]yyyy")),{2001,4;2004,2;2006,7;2009,5;2012,4;2014,9;2017,6;2020,4;2023,2;2025,6;2028,5;2031,3;2033,11;2036,6;2039,5;2042,2;2044,7;2047,5;2050,3;2052,8;2055,6;2058,4;2061,3;2063,7;2066,5;2069,4;2071,8;2074,6;2077,4;2080,3;2082,7},2,0),13)+1,"闰","")&VLOOKUP(--IF(VALUE(TEXT(A2,"[$-130000]m"))>IFNA(VLOOKUP(VALUE(TEXT(A2,"[$-130000]yyyy")),{2001,4;2004,2;2006,7;2009,5;2012,4;2014,9;2017,6;2020,4;2023,2;2025,6;2028,5;2031,3;2033,11;2036,6;2039,5;2042,2;2044,7;2047,5;2050,3;2052,8;2055,6;2058,4;2061,3;2063,7;2066,5;2069,4;2071,8;2074,6;2077,4;2080,3;2082,7},2,0),13),TEXT(A2,"[$-130000]m")-1,TEXT(A2,"[$-130000]m")),{1,"正月";2,"二月";3,"三月";4,"四月";5,"五月";6,"六月";7,"七月";8,"八月";9,"九月";10,"十月";11,"冬月";12,"腊月"},2,0)&VLOOKUP(--TEXT(A2,"[$-130000]d"),{1,"初一";2,"初二";3,"初三";4,"初四";5,"初五";6,"初六";7,"初七";8,"初八";9,"初九";10,"初十";11,"十一";12,"十二";13,"十三";14,"十四";15,"十五";16,"十六";17,"十七";18,"十八";19,"十九";20,"二十";21,"廿一";22,"廿二";23,"廿三";24,"廿四";25,"廿五";26,"廿六";27,"廿七";28,"廿八";29,"廿九";30,"三十"},2,0)


得到农历

完美方案，该方案适用于 2001年至 2082年

静听溪流

hjp3798

原因是微软设计2026-10-10 为农历的8-30，为30天，实际是小月29天。

alan57

zyhui1961

老师你好！这个怎么用啊？我怎么输入单元格里总是提示公式错误！谢谢！
并且我也没有送鲜花的资格！

miaojohn45

公式农历确实不准，还得代码。

edwin11891

Excel会出现上述相差一天的情况，WPS中则干脆就是直接翻译，没有换算。

静听溪流

hjp3798 发表于 2024-2-1 01:39
原因是微软设计2026-10-10 为农历的8-30，为30天，实际是小月29天。

公式比较准的目前我见的有两种方式：
1、webservice函数直接网抓
2、李逸雪大神写的公式
不联网的公历转农历公式
https://club.excelhome.net/thread-1582095-1-1.html
(出处: ExcelHome技术论坛)