EXCEL 公历转农历

南岗吉厦李

日期        农历                                 2018-1-5        #NAME?                        1645        5                                 1648        4                                 1651        1                                 1653        6                                 1656        5                                 1659        3                                 1661        8                                 1664        6                                 1667        4

醇爷们

2023年5月19日~6月17日转换的农历都错开一天，其余的年份没有发现错误。

高个子

个人认为像丁酉年这种的是可以找得到规律的，但是月份不存在规律，这种问题最佳方案是网抓

XCMqxl

农历如何转阳历vba代码，求高手

han_ice

测试发现，2024/1/11—2024/2/9 月份错误，请问怎么修正，谢谢。

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)

hjp3798

=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)

hjp3798

=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)

咔咔乱坠

hjp3798 发表于 2024-1-31 19:48
=MID("甲乙丙丁戊己庚辛壬癸",MOD(TEXT(A2,"[$-130000]e")-4,10)+1,1)&MID("子丑寅卯辰巳午未申酉戌亥",MOD ...

牛，老哥，验证了几个关键日期节点，大致准确的
目前来说，公历1960/1/28-2050/12/31的公历-农历转化是正常的
我后面把逻辑稍作简化了一下

1. LET(公,A130:A135,闰,{1900,8;1903,5;1906,4;1909,2;1911,6;1914,5;1917,2;1919,7;1922,5;1925,4;1928,2;1930,6;1933,5;1936,3;1938,7;1941,6;1944,4;1947,2;1949,7;1952,5;1955,3;1957,8;1960,6;1963,4;1966,3;1968,7;1971,5;1974,4;1976,8;1979,6;1982,4;1984,10;1987,6;1990,5;1993,3;1995,8;1998,5;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;2085,5;2088,4;2090,8;2093,6;2096,4;2099,2},e,--TEXT(公,"[$-110000]e"),m,--TEXT(公,"[$-110000]m"),d,--TEXT(公,"[$-110000]d"),MID("甲乙丙丁戊己庚辛壬癸",MOD(e-4,10)+1,1)&MID("子丑寅卯辰巳午未申酉戌亥",MOD(e-4,12)+1,1)&"("&MID("鼠牛虎兔龙蛇马羊猴鸡狗猪",MOD(e-4,12)+1,1)&")年"&IF(m=IFNA(VLOOKUP(e,闰,2,),13)+1,"闰","")&MID("正月二月三月四月五月六月七月八月九月十月冬月腊月",IF(m>IFNA(VLOOKUP(e,闰,2,),13),m-1,m)*2-1,2)&MID("初一初二初三初四初五初六初七初八初九初十十一十二十三十四十五十六十七十八十九二十廿一廿二廿三廿四廿五廿六廿七廿八廿九三十",d*2-1,2))

复制代码