根据公历日期计算农历年生肖及公历转换农历的方法

wshcw

有部分E友都知道,农历格式"[$-130000]e-m-d"转换出来的结果有好大一部分有误,那有没有其它转换办法呢?办法当然有,一是用VBA转换,二是辅助列做公历与农历对照表转换.今天我就提供对照表转换方法,与EH的E友分享.首先做一个公农历日期的对照表(文字很多,只能直接看附件了)和各年春节日期对照表，如：
公历 农历
1900-1-31 春节
1901-2-19 春节
1902-2-8 春节
1903-1-29 春节
1904-2-16 春节
1905-2-4 春节
1906-1-25 春节
1907-2-13 春节
1908-2-2 春节
1909-1-22 春节
1910-2-10 春节
1911-1-30 春节
1912-2-18 春节
1913-2-6 春节
1914-1-26 春节
1915-2-14 春节
1916-2-3 春节
1917-1-23 春节
1918-2-11 春节
1919-2-1 春节
1920-2-20 春节
1921-2-8 春节
1922-1-28 春节
1923-2-16 春节
1924-2-5 春节
1925-1-24 春节
1926-2-13 春节
1927-2-2 春节
1928-1-23 春节
1929-2-10 春节
1930-1-30 春节
1931-2-17 春节
1932-2-6 春节
1933-1-26 春节
1934-2-14 春节
1935-2-4 春节
1936-1-24 春节
1937-2-11 春节
1938-1-31 春节
1939-2-19 春节
1940-2-8 春节
1941-1-27 春节
1942-2-15 春节
1943-2-5 春节
1944-1-25 春节
1945-2-13 春节
1946-2-2 春节
1947-1-22 春节
1948-2-10 春节
1949-1-29 春节
1950-2-17 春节
1951-2-6 春节
1952-1-27 春节
1953-2-14 春节
1954-2-3 春节
1955-1-24 春节
1956-2-12 春节
1957-1-31 春节
1958-2-18 春节
1959-2-8 春节
1960-1-28 春节
1961-2-15 春节
1962-2-5 春节
1963-1-25 春节
1964-2-13 春节
1965-2-2 春节
1966-1-21 春节
1967-2-9 春节
1968-1-30 春节
1969-2-17 春节
1970-2-6 春节
1971-1-27 春节
1972-2-15 春节
1973-2-3 春节
1974-1-23 春节
1975-2-11 春节
1976-1-31 春节
1977-2-18 春节
1978-2-7 春节
1979-1-28 春节
1980-2-16 春节
1981-2-5 春节
1982-1-25 春节
1983-2-13 春节
1984-2-2 春节
1985-2-20 春节
1986-2-9 春节
1987-1-29 春节
1988-2-17 春节
1989-2-6 春节
1990-1-27 春节
1991-2-15 春节
1992-2-4 春节
1993-1-23 春节
1994-2-10 春节
1995-1-31 春节
1996-2-19 春节
1997-2-7 春节
1998-1-28 春节
1999-2-16 春节
2000-2-5 春节
2001-1-24 春节
2002-2-12 春节
2003-2-1 春节
2004-1-22 春节
2005-2-9 春节
2006-1-29 春节
2007-2-18 春节
2008-2-7 春节
2009-1-26 春节
2010-2-14 春节
2011-2-3 春节
2012-1-23 春节
2013-2-10 春节
2014-1-31 春节
2015-2-19 春节
2016-2-8 春节
2017-1-28 春节
2018-2-16 春节
2019-2-5 春节
2020-1-25 春节
2021-2-12 春节
2022-2-1 春节
2023-1-22 春节
2024-2-10 春节
2025-1-29 春节
2026-2-17 春节
2027-2-6 春节
2028-1-26 春节
2029-2-13 春节
2030-2-3 春节
2031-1-23 春节
2032-2-11 春节
2033-1-31 春节
2034-2-19 春节
2035-2-8 春节
2036-1-28 春节
2037-2-15 春节
2038-2-4 春节
2039-1-24 春节
2040-2-12 春节
2041-2-1 春节
2042-1-22 春节
2043-2-10 春节
2044-1-30 春节
2045-2-17 春节
2046-2-6 春节
2047-1-26 春节
2048-2-14 春节
2049-2-2 春节
2050-1-23 春节
2051-2-11 春节
2052-2-1 春节
2053-2-19 春节
2054-2-8 春节
2055-1-28 春节
2056-2-15 春节
2057-2-4 春节
2058-1-24 春节
2059-2-12 春节
2060-2-2 春节
2061-1-21 春节
2062-2-9 春节
2063-1-29 春节
2064-2-17 春节
2065-2-5 春节
2066-1-26 春节
2067-2-14 春节
2068-2-3 春节
2069-1-23 春节
2070-2-11 春节
2071-1-31 春节
2072-2-19 春节
2073-2-7 春节
2074-1-27 春节
2075-2-15 春节
2076-2-5 春节
2077-1-24 春节
2078-2-12 春节
2079-2-2 春节
2080-1-22 春节
2081-2-9 春节
2082-1-29 春节
2083-2-17 春节
2084-2-6 春节
2085-1-26 春节
2086-2-14 春节
2087-2-3 春节
2088-1-24 春节
2089-2-10 春节
2090-1-30 春节
2091-2-18 春节
2092-2-7 春节
2093-1-27 春节
2094-2-15 春节
2095-2-5 春节
2096-1-25 春节
2097-2-12 春节
2098-2-1 春节
2099-1-21 春节
2100-2-9 春节
另外，再建一个农历日期顺序表：
"农历日
期顺序"
初一
初二
初三
初四
初五
初六
初七
初八
初九
初十
十一
十二
十三
十四
十五
十六
十七
十八
十九
二十
廿一
廿二
廿三
廿四
廿五
廿六
廿七
廿八
廿九
三十
三个表建立好后,基础工作就完成了,接下来可以写转换公式了:
公历日期转农历年年份的公式:
=1898+MATCH(要转换的公历日期,{0;31;416;770;1125;1508;1862;2217;2601;2955;3310;3694;4048;4432;4786;5140;5524;5878;6233;6617;6972;7356;7710;8064;8448;8802;9156;9541;9895;10250;10634;10988;11371;11725;12080;12464;12819;13173;13557;13911;14295;14649;15003;15387;15742;16096;16481;16835;17189;17573;17927;18311;18665;19020;19404;19758;20113;20497;20851;21234;21589;21943;22327;22682;23036;23420;23775;24128;24512;24867;25251;25605;25960;26344;26698;27052;27436;27790;28174;28528;28883;29267;29622;29976;30360;30714;31098;31452;31806;32190;32545;32900;33284;33638;33992;34375;34730;35114;35468;35823;36207;36561;36915;37299;37653;38008;38392;38746;39131;39485;39839;40223;40577;40931;41315;41670;42054;42408;42763;43147;43501;43855;44239;44593;44948;45332;45686;46070;46424;46778;47162;47517;47871;48255;48610;48994;49348;49702;50086;50440;50794;51178;51533;51888;52272;52626;53010;53364;53718;54102;54456;54811;55195;55550;55934;56288;56642;57025;57380;57734;58118;58473;58827;59211;59565;59949;60303;60658;61042;61396;61751;62135;62489;62873;63227;63581;63965;64320;64674;65058;65413;65767;66151;66505;66889;67243;67598;67982;68336;68691;69074;69428;69812;70166;70521;70905;71260;71614;71998;72352;72706;73090})
年生肖也可以改成引用:
=MID("猴鸡狗猪鼠牛虎兔龙蛇马羊",MOD(MATCH(F4,春节日期对照表)+1898,12)+1,1)
该贴已经同步到 wshcw的微博

wshcw

公历转农历的公式:
="农历"&MID("庚辛壬癸甲乙丙丁戊己",RIGHT(MATCH(要转换的公历日期,春节日期对照表)+1898)+1,1)&MID("申酉戌亥子丑寅卯辰巳午未",MOD(MATCH(要转换的公历日期,春节日期对照表)+1898,12)+1,1)&"("&MID("猴鸡狗猪鼠牛虎兔龙蛇马羊",MOD(MATCH(要转换的公历日期,春节日期对照表)+1898,12)+1,1)&")年"&LOOKUP(要转换的公历日期,公历农历对照表!A:B)&OFFSET(L$2,要转换的公历日期-LOOKUP(要转换的公历日期,公历农历对照表!A:A),)

注:L$2以下为"农历日期顺序".详情看附件.

fjzjm

请求大理版主上传一个附件，好让我们学习。谢谢！

岁月无恒

呀！这个好！要好好学习一下，以前公农历转换都是用的别人的VBA代码。
24节气可否有精确的计算方法？

laosu

这可是很实用的资料！大理版主辛苦了，谢谢分享！

huangyongli

前排收藏，谢谢斑竹分享……

lgcmeli

收藏了。有空研究。

CheryBTL

同意，请大理版主上传附件！谢谢分享呀！！

胡剑0227

呵呵，好东西，大家都记住有这个好东西就好多了。不过还没细看怎么用，呵呵

一指禅

谢谢斑竹分享！
俺来添砖加瓦！
2101-2200的数据！

2101-1-29 20:24:23	春节
2102-2-17 21:27:52	春节
2103-2-7 12:53:30	春节
2104-1-28 4:07:21	春节
2105-2-15 4:39:33	春节
2106-2-4 11:48:22	春节
2107-1-24 12:17:01	春节
2108-2-12 6:28:48	春节
2109-1-31 8:48:09	春节
2110-2-19 7:23:00	春节