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

本帖最后由 wshcw 于 2011-12-6 23:23 编辑

有部分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)

2011-12-6 22:41 上传

点击文件名下载附件

35.26 KB, 下载次数: 2461