1901年~2099年公历转农历程序

mmxx2015 · 发表于 2024-10-22 12:50:37

爱科技、爱创意、爱折腾、爱极致，我们都是技术控

您需要登录才可以下载或查看，没有账号？立即注册

x

本帖最后由 mmxx2015 于 2024-10-22 18:10 编辑

搜索公历转农历方法时，多数结果使用的是查表法，即预置N年的农历特征数据，然后根据这些特征数据把N年内其中任意一天的公历转换为农历。

其中，找到的这篇文章的程序比较容易看懂：
公农历转换和获取二十四节气算法

https://blog.csdn.net/qq_46041930/article/details/108653836
文章中还有转换农历二十四节气和星期日，以下程序没有包含这两段，需要的可以查看原文。

实际测试也发现一些问题：
（1）农历特征表格有6年的数据错误。

1960年闰六月
错误数据：{0x7A, 0xD5, 0x3C}, /* 060-1960 */
正确数据：{0x6A, 0xD5, 0x3C}, /* 060-1960 */
1989年六月大，七月小
错误数据：{0x09, 0x37, 0x46}, /* 089-1989 */
正确数据：{0x09, 0x57, 0x46}, /* 089-1989 */
0x937=1001,0011,0111
0x957=1001,0101,0111
2025年闰六月三月大，四月小
错误数据：{0x69, 0x57, 0x3D}, /* 125-2025 */
正确数据：{0x6A, 0x57, 0x3D}, /* 125-2025 */
0x957=1001,0101,0111
0x95A=1010,0101,0111
2057年八月小，九月大
错误数据：{0x06, 0xB2, 0x44}, /* 157-2057 */
正确数据：{0x06, 0xAA, 0x44}, /* 157-2057 */
0x6B2=0110,1011,0010
0x6AA=0110,1010,1010
2089年七月小，八月大
错误数据：{0x0D, 0x26, 0x4A}, /* 189-2089 */
正确数据：{0x0D, 0x16, 0x4A}, /* 189-2089 */
0xD26=1101,0010,0110
0xD16=1101,0001,0110
2097年六月小，七月大
错误数据：{0x0A, 0x4D, 0x4C}, /* 197-2097 */
正确数据：{0x0A, 0x2D, 0x4C}, /* 197-2097 */
0xA4D=1010,0100,1101
0xA2D=1010,0010,1101

复制代码

（2）表格少1900年，无法转换1901年春节前的农历（需要上一年的农历数据）。
（3）有农历闰月的年份，常规月和闰月均记为闰月，比如2025年六月和闰六月均记为闰月。

一下程序修正了上述问题，添加更详细的注释，部分数据使用结构体使之更容易理解。
经过把公历1901.1.1~2099.12.31转成农历串口输出与从农历查询网http://cn.nongli.info/提取的数据对比，数据一致（顺便说一下，我从网上下载的一份“公历农历对照表 ExcelHome”表格中1960年闰七月是错误的，1960年是闰六月，这份文件可能来着 ExcelHome，可能新版已修正，但因为要注册才能下载，所以未验证）。

程序组成（可按需放在一个或多个文件中）：

//******************************************************************
// 结构体/联合体声明
//******************************************************************
//农历特征数据结构体
typedef struct
{
union
{
unsigned char V8;
struct
{
unsigned char Month_1_4_Long_Short:4; //字节0 bit[3:0]，农历第1-4月的大小
unsigned char Leap_Month:4; //字节0 bit[7:4]，闰月月份,0表示无闰月
}Bits;
}Byte_0;
unsigned char Month_5_12_Long_Short; //字节1，农历第5-12月大小
union
{
unsigned char V8;
struct
{
unsigned char Spring_Festival_Date:5; //字节2 bit[4:0]，春节的公历日期
unsigned char Spring_Festival_Month:2; //字节2 bit[6:5]，春节的公历月份
unsigned char Month_13_Long_Short:1; //字节2 bit7，农历第13个月大小
}Bits;
}Byte_2;
}Lunar_Year_Code_Typedef;
//公历转农历返回数据结构体
typedef struct
{
unsigned char Month:5; //月
unsigned char IS_Leap_Month:1; //闰月标志
unsigned char Reserved_Bits:2;
unsigned char Date:8; //日
}Solar2Lunar_Typedef;

复制代码

//位值
#define BIT0 0x01
#define BIT1 0x02
#define BIT2 0x04
#define BIT3 0x08
#define BIT4 0x10
#define BIT5 0x20
#define BIT6 0x40
#define BIT7 0x80
#define BIT8 0x0100
#define BIT9 0x0200
#define BIT10 0x0400
#define BIT11 0x0800
#define BIT12 0x1000
#define BIT13 0x2000
#define BIT14 0x4000
#define BIT15 0x8000

复制代码

//******************************************************************
//* 公历与农历转换年份数据存储数组
//* 公历年对应的农历数据,每年三字节,
//* 格式第一字节BIT7-4 位表示闰月月份,值为0为无闰月,BIT3-0对应农历第1-4月的大小
//* 第二字节BIT7-0对应农历第5-12月大小,第三字节BIT7表示农历第13个月大小
//* 月份对应的位为1表示本农历月大(30天),为0表示小(29天).
//* 第三字节BIT6-5表示春节的公历月份,BIT4-0表示春节的公历日期
//******************************************************************
//农历特征数据表格（1900年~2099年）
Lunar_Year_Code_Typedef code Lunar_Year_Code[200] =
{
{0x84, 0xB6, 0xBF}, /* 000-1900 */
{0x04, 0xAE, 0x53}, /* 001-1901 */
{0x0A, 0x57, 0x48}, /* 002-1902 */
{0x55, 0x26, 0xBD}, /* 003-1903 */
{0x0D, 0x26, 0x50}, /* 004-1904 */
{0x0D, 0x95, 0x44}, /* 005-1905 */
{0x46, 0xAA, 0xB9}, /* 006-1906 */
{0x05, 0x6A, 0x4D}, /* 007-1907 */
{0x09, 0xAD, 0x42}, /* 008-1908 */
{0x24, 0xAE, 0xB6}, /* 009-1909 */
{0x04, 0xAE, 0x4A}, /* 010-1910 */
{0x6A, 0x4D, 0xBE}, /* 011-1911 */
{0x0A, 0x4D, 0x52}, /* 012-1912 */
{0x0D, 0x25, 0x46}, /* 013-1913 */
{0x5D, 0x52, 0xBA}, /* 014-1914 */
{0x0B, 0x54, 0x4E}, /* 015-1915 */
{0x0D, 0x6A, 0x43}, /* 016-1916 */
{0x29, 0x6D, 0x37}, /* 017-1917 */
{0x09, 0x5B, 0x4B}, /* 018-1918 */
{0x74, 0x9B, 0xC1}, /* 019-1919 */
{0x04, 0x97, 0x54}, /* 020-1920 */
{0x0A, 0x4B, 0x48}, /* 021-1921 */
{0x5B, 0x25, 0xBC}, /* 022-1922 */
{0x06, 0xA5, 0x50}, /* 023-1923 */
{0x06, 0xD4, 0x45}, /* 024-1924 */
{0x4A, 0xDA, 0xB8}, /* 025-1925 */
{0x02, 0xB6, 0x4D}, /* 026-1926 */
{0x09, 0x57, 0x42}, /* 027-1927 */
{0x24, 0x97, 0xB7}, /* 028-1928 */
{0x04, 0x97, 0x4A}, /* 029-1929 */
{0x66, 0x4B, 0x3E}, /* 030-1930 */
{0x0D, 0x4A, 0x51}, /* 031-1931 */
{0x0E, 0xA5, 0x46}, /* 032-1932 */
{0x56, 0xD4, 0xBA}, /* 033-1933 */
{0x05, 0xAD, 0x4E}, /* 034-1934 */
{0x02, 0xB6, 0x44}, /* 035-1935 */
{0x39, 0x37, 0x38}, /* 036-1936 */
{0x09, 0x2E, 0x4B}, /* 037-1937 */
{0x7C, 0x96, 0xBF}, /* 038-1938 */
{0x0C, 0x95, 0x53}, /* 039-1939 */
{0x0D, 0x4A, 0x48}, /* 040-1940 */
{0x6D, 0xA5, 0x3B}, /* 041-1941 */
{0x0B, 0x55, 0x4F}, /* 042-1942 */
{0x05, 0x6A, 0x45}, /* 043-1943 */
{0x4A, 0xAD, 0xB9}, /* 044-1944 */
{0x02, 0x5D, 0x4D}, /* 045-1945 */
{0x09, 0x2D, 0x42}, /* 046-1946 */
{0x2C, 0x95, 0xB6}, /* 047-1947 */
{0x0A, 0x95, 0x4A}, /* 048-1948 */
{0x7B, 0x4A, 0xBD}, /* 049-1949 */
{0x06, 0xCA, 0x51}, /* 050-1950 */
{0x0B, 0x55, 0x46}, /* 051-1951 */
{0x55, 0x5A, 0xBB}, /* 052-1952 */
{0x04, 0xDA, 0x4E}, /* 053-1953 */
{0x0A, 0x5B, 0x43}, /* 054-1954 */
{0x35, 0x2B, 0xB8}, /* 055-1955 */
{0x05, 0x2B, 0x4C}, /* 056-1956 */
{0x8A, 0x95, 0x3F}, /* 057-1957 */
{0x0E, 0x95, 0x52}, /* 058-1958 */
{0x06, 0xAA, 0x48}, /* 059-1959 */
{0x6A, 0xD5, 0x3C}, /* 060-1960 */
{0x0A, 0xB5, 0x4F}, /* 061-1961 */
{0x04, 0xB6, 0x45}, /* 062-1962 */
{0x4A, 0x57, 0x39}, /* 063-1963 */
{0x0A, 0x57, 0x4D}, /* 064-1964 */
{0x05, 0x26, 0x42}, /* 065-1965 */
{0x3E, 0x93, 0x35}, /* 066-1966 */
{0x0D, 0x95, 0x49}, /* 067-1967 */
{0x75, 0xAA, 0xBE}, /* 068-1968 */
{0x05, 0x6A, 0x51}, /* 069-1969 */
{0x09, 0x6D, 0x46}, /* 070-1970 */
{0x54, 0xAE, 0xBB}, /* 071-1971 */
{0x04, 0xAD, 0x4F}, /* 072-1972 */
{0x0A, 0x4D, 0x43}, /* 073-1973 */
{0x4D, 0x26, 0xB7}, /* 074-1974 */
{0x0D, 0x25, 0x4B}, /* 075-1975 */
{0x8D, 0x52, 0xBF}, /* 076-1976 */
{0x0B, 0x54, 0x52}, /* 077-1977 */
{0x0B, 0x6A, 0x47}, /* 078-1978 */
{0x69, 0x6D, 0x3C}, /* 079-1979 */
{0x09, 0x5B, 0x50}, /* 080-1980 */
{0x04, 0x9B, 0x45}, /* 081-1981 */
{0x4A, 0x4B, 0xB9}, /* 082-1982 */
{0x0A, 0x4B, 0x4D}, /* 083-1983 */
{0xAB, 0x25, 0xC2}, /* 084-1984 */
{0x06, 0xA5, 0x54}, /* 085-1985 */
{0x06, 0xD4, 0x49}, /* 086-1986 */
{0x6A, 0xDA, 0x3D}, /* 087-1987 */
{0x0A, 0xB6, 0x51}, /* 088-1988 */
{0x09, 0x57, 0x46}, /* 089-1989 */
{0x54, 0x97, 0xBB}, /* 090-1990 */
{0x04, 0x97, 0x4F}, /* 091-1991 */
{0x06, 0x4B, 0x44}, /* 092-1992 */
{0x36, 0xA5, 0x37}, /* 093-1993 */
{0x0E, 0xA5, 0x4A}, /* 094-1994 */
{0x86, 0xB2, 0xBF}, /* 095-1995 */
{0x05, 0xAC, 0x53}, /* 096-1996 */
{0x0A, 0xB6, 0x47}, /* 097-1997 */
{0x59, 0x36, 0xBC}, /* 098-1998 */
{0x09, 0x2E, 0x50}, /* 099-1999 */
{0x0C, 0x96, 0x45}, /* 100-2000 */
{0x4D, 0x4A, 0xB8}, /* 101-2001 */
{0x0D, 0x4A, 0x4C}, /* 102-2002 */
{0x0D, 0xA5, 0x41}, /* 103-2003 */
{0x25, 0xAA, 0xB6}, /* 104-2004 */
{0x05, 0x6A, 0x49}, /* 105-2005 */
{0x7A, 0xAD, 0xBD}, /* 106-2006 */
{0x02, 0x5D, 0x52}, /* 107-2007 */
{0x09, 0x2D, 0x47}, /* 108-2008 */
{0x5C, 0x95, 0xBA}, /* 109-2009 */
{0x0A, 0x95, 0x4E}, /* 110-2010 */
{0x0B, 0x4A, 0x43}, /* 111-2011 */
{0x4B, 0x55, 0x37}, /* 112-2012 */
{0x0A, 0xD5, 0x4A}, /* 113-2013 */
{0x95, 0x5A, 0xBF}, /* 114-2014 */
{0x04, 0xBA, 0x53}, /* 115-2015 */
{0x0A, 0x5B, 0x48}, /* 116-2016 */
{0x65, 0x2B, 0xBC}, /* 117-2017 */
{0x05, 0x2B, 0x50}, /* 118-2018 */
{0x0A, 0x93, 0x45}, /* 119-2019 */
{0x47, 0x4A, 0xB9}, /* 120-2020 */
{0x06, 0xAA, 0x4C}, /* 121-2021 */
{0x0A, 0xD5, 0x41}, /* 122-2022 */
{0x24, 0xDA, 0xB6}, /* 123-2023 */
{0x04, 0xB6, 0x4A}, /* 124-2024 */
{0x6A, 0x57, 0x3D}, /* 125-2025 */
{0x0A, 0x4E, 0x51}, /* 126-2026 */
{0x0D, 0x26, 0x46}, /* 127-2027 */
{0x5E, 0x93, 0x3A}, /* 128-2028 */
{0x0D, 0x53, 0x4D}, /* 129-2029 */
{0x05, 0xAA, 0x43}, /* 130-2030 */
{0x36, 0xB5, 0x37}, /* 131-2031 */
{0x09, 0x6D, 0x4B}, /* 132-2032 */
{0xB4, 0xAE, 0xBF}, /* 133-2033 */
{0x04, 0xAD, 0x53}, /* 134-2034 */
{0x0A, 0x4D, 0x48}, /* 135-2035 */
{0x6D, 0x25, 0xBC}, /* 136-2036 */
{0x0D, 0x25, 0x4F}, /* 137-2037 */
{0x0D, 0x52, 0x44}, /* 138-2038 */
{0x5D, 0xAA, 0x38}, /* 139-2039 */
{0x0B, 0x5A, 0x4C}, /* 140-2040 */
{0x05, 0x6D, 0x41}, /* 141-2041 */
{0x24, 0xAD, 0xB6}, /* 142-2042 */
{0x04, 0x9B, 0x4A}, /* 143-2043 */
{0x7A, 0x4B, 0xBE}, /* 144-2044 */
{0x0A, 0x4B, 0x51}, /* 145-2045 */
{0x0A, 0xA5, 0x46}, /* 146-2046 */
{0x5B, 0x52, 0xBA}, /* 147-2047 */
{0x06, 0xD2, 0x4E}, /* 148-2048 */
{0x0A, 0xDA, 0x42}, /* 149-2049 */
{0x35, 0x5B, 0x37}, /* 150-2050 */
{0x09, 0x37, 0x4B}, /* 151-2051 */
{0x84, 0x97, 0xC1}, /* 152-2052 */
{0x04, 0x97, 0x53}, /* 153-2053 */
{0x06, 0x4B, 0x48}, /* 154-2054 */
{0x66, 0xA5, 0x3C}, /* 155-2055 */
{0x0E, 0xA5, 0x4F}, /* 156-2056 */
{0x06, 0xAA, 0x44}, /* 157-2057 */
{0x4A, 0xB6, 0x38}, /* 158-2058 */
{0x0A, 0xAE, 0x4C}, /* 159-2059 */
{0x09, 0x2E, 0x42}, /* 160-2060 */
{0x3C, 0x97, 0x35}, /* 161-2061 */
{0x0C, 0x96, 0x49}, /* 162-2062 */
{0x7D, 0x4A, 0xBD}, /* 163-2063 */
{0x0D, 0x4A, 0x51}, /* 164-2064 */
{0x0D, 0xA5, 0x45}, /* 165-2065 */
{0x55, 0xAA, 0xBA}, /* 166-2066 */
{0x05, 0x6A, 0x4E}, /* 167-2067 */
{0x0A, 0x6D, 0x43}, /* 168-2068 */
{0x45, 0x2E, 0xB7}, /* 169-2069 */
{0x05, 0x2D, 0x4B}, /* 170-2070 */
{0x8A, 0x95, 0xBF}, /* 171-2071 */
{0x0A, 0x95, 0x53}, /* 172-2072 */
{0x0B, 0x4A, 0x47}, /* 173-2073 */
{0x6B, 0x55, 0x3B}, /* 174-2074 */
{0x0A, 0xD5, 0x4F}, /* 175-2075 */
{0x05, 0x5A, 0x45}, /* 176-2076 */
{0x4A, 0x5D, 0x38}, /* 177-2077 */
{0x0A, 0x5B, 0x4C}, /* 178-2078 */
{0x05, 0x2B, 0x42}, /* 179-2079 */
{0x3A, 0x93, 0xB6}, /* 180-2080 */
{0x06, 0x93, 0x49}, /* 181-2081 */
{0x77, 0x29, 0xBD}, /* 182-2082 */
{0x06, 0xAA, 0x51}, /* 183-2083 */
{0x0A, 0xD5, 0x46}, /* 184-2084 */
{0x54, 0xDA, 0xBA}, /* 185-2085 */
{0x04, 0xB6, 0x4E}, /* 186-2086 */
{0x0A, 0x57, 0x43}, /* 187-2087 */
{0x45, 0x27, 0x38}, /* 188-2088 */
{0x0D, 0x16, 0x4A}, /* 189-2089 */
{0x8E, 0x93, 0x3E}, /* 190-2090 */
{0x0D, 0x52, 0x52}, /* 191-2091 */
{0x0D, 0xAA, 0x47}, /* 192-2092 */
{0x66, 0xB5, 0x3B}, /* 193-2093 */
{0x05, 0x6D, 0x4F}, /* 194-2094 */
{0x04, 0xAE, 0x45}, /* 195-2095 */
{0x4A, 0x4E, 0xB9}, /* 196-2096 */
{0x0A, 0x2D, 0x4C}, /* 197-2097 */
{0x0D, 0x15, 0x41}, /* 198-2098 */
{0x2D, 0x92, 0xB5}, /* 199-2099 */
};
//公历前n月总天数
unsigned int code Days_Code[13] =
{
0, //0
0, //1，1月:当月
31, //2，1月:31
59, //3，1~2月:31+28=59
90, //4，1~3月:31+28+31=90
120, //5，1~4月:31+28+31+30=120
151, //6，1~5月:31+28+31+30+31=151
181, //7，1~6月:31+28+31+30+31+30=181
212, //8，1~7月:31+28+31+30+31+30+31=212
243, //9，1~8月:31+28+31+30+31+30+31+31=243
273, //10，1~9月:31+28+31+30+31+30+31+31+30=273
304, //11，1~10月:31+28+31+30+31+30+31+31+30+31=304
334, //12，1~11月:31+28+31+30+31+30+31+31+30+31+30=334
};
//农历大小月特征位编码
unsigned char code Month_Long_Short_Bit_Table[14] =
{
0x00, //0
BIT3, //1，1月
BIT2, //2，2月
BIT1, //3，3月
BIT0, //4，4月
BIT7, //5，5月
BIT6, //6，6月
BIT5, //7，7月
BIT4, //8，8月
BIT3, //9，9月
BIT2, //10，10月
BIT1, //11，11月
BIT0, //12，12月
BIT7, //13，13月
};

复制代码

//******************************************************************
//函数名称：unsigned char Get_Lunar_Month_Days(unsigned char Lunar_Month, unsigned int Offset)
//函数功能：用于读取数据表中农历月的大月或小月
//输入参数：Lunar_Month，Offset
//返回值： 0/1（1：大月；0：小月）
//******************************************************************
unsigned char Get_Lunar_Month_Days(unsigned char Lunar_Month, unsigned int Offset)
{
unsigned char Month_Long_Short; //大小月
Month_Long_Short = 0; //无效数据返回小月
if(Lunar_Month <= Ubound(Month_Long_Short_Bit_Table))
{
if(Lunar_Month <= 4) //农历参数表格第0字节bit[3:0]表示农历第1-4月的大小
{
Month_Long_Short = (Lunar_Year_Code[Offset].Byte_0.Bits.Month_1_4_Long_Short & Month_Long_Short_Bit_Table[Lunar_Month]);
}
else if(Lunar_Month <= 12) //农历参数表格第1字节bit[7:0]表示农历第5-12月的大小
{
Month_Long_Short = (Lunar_Year_Code[Offset].Month_5_12_Long_Short & Month_Long_Short_Bit_Table[Lunar_Month]);
}
else //农历第13个月大小
{
Month_Long_Short = Lunar_Year_Code[Offset].Byte_2.Bits.Month_13_Long_Short;
}
}
if(Month_Long_Short)
{
Month_Long_Short = 1;
}
return Month_Long_Short;
}

复制代码

//******************************************************************
//函数名称：Solar2Lunar_Typedef Get_China_Calendar(unsigned int Year,unsigned char Month,unsigned char Day)
//函数功能：公农历转换
//输入参数：Year：公历年(只允许1901-2099年) Month：公历月 Day：公历日
//返回值： 0/1 1对应转换成功，0对应转换失败
//******************************************************************
#define C_SOLAR_YEAR_MIN 1901 //公历年最小值
#define C_SOLAR_YEAR_MAX 2099 //公历年最大值
Solar2Lunar_Typedef Get_China_Calendar(unsigned int Year,unsigned char Month,unsigned char Day)
{
unsigned char Spring_Festival_Month; //当年春节所在的公历月份
unsigned char Spring_Festival_Date; //当年春节所在的公历日
unsigned char Leap_Month_Flag; //闰月，农历月不+1
unsigned char Lunar_Month; //农历月
unsigned char Lunar_Month_Temp; //农历月（尝试判断月份）
unsigned char Lunar_Month_Save; //农历月保存（用于判断是不是闰月）
unsigned char Lunar_Date; //农历日
unsigned char Lunar_Leap_Month; //闰月
unsigned char Lunar_Month_Days; //农历月天数
unsigned char Spring_Festival_Days; //当年春年离当年元旦的天数
unsigned int Days_After_New_Years_Day; //公历日离当年元旦的天数
unsigned int Days_Differ; //两个日期天数差
unsigned int Table_Offset; //农历特征数据表格查表偏移量
Solar2Lunar_Typedef Return_Value; //返回值
Return_Value.Month = 0; //月
Return_Value.IS_Leap_Month = 0; //闰月标志
Return_Value.Reserved_Bits = 0;
Return_Value.Date = 0; //日
if((Year >= C_SOLAR_YEAR_MIN) && (Year <= C_SOLAR_YEAR_MAX)) //1901~2099年之外不处理
{
Lunar_Month_Save=0; //农历月保存（用于判断是不是闰月）
/* 定位数据表地址 */
Table_Offset = (Year - 1900); //农历特征数据从1900年开始，但只能转换1901年之后的数据，转换春节前的数据需要前一年的数据
/* 取当年春节所在的公历月份 */
Spring_Festival_Month = Lunar_Year_Code[Table_Offset].Byte_2.Bits.Spring_Festival_Month;
/* 取当年春节所在的公历日 */
Spring_Festival_Date = Lunar_Year_Code[Table_Offset].Byte_2.Bits.Spring_Festival_Date;
/* 计算当年春年离当年元旦的天数,春节只会在公历1月或2月 */
if ( Spring_Festival_Month == 1 )
{
Spring_Festival_Days = Spring_Festival_Date - 1;
}
else
{
Spring_Festival_Days = Spring_Festival_Date + 31 - 1;
}
/* 计算公历日离当年元旦的天数 */
Days_After_New_Years_Day = Days_Code[Month] + Day - 1;
/* 如果公历月大于2月并且该年的2月为闰月,天数加1 */
if (Month > 2)
{
if((Year % 100) == 0) //能被100整除
{
if((Year % 400) == 0) //能被400整除--闰年
{
Days_After_New_Years_Day ++;
}
}
else if (Year % 4 == 0) //不能被100整除，能被4整除--闰年
{
Days_After_New_Years_Day ++;
}
}
/* 判断公历日在春节前还是春节后 */
if(Days_After_New_Years_Day >= Spring_Festival_Days) //当前公历日在春节后
{
Days_Differ = (Days_After_New_Years_Day - Spring_Festival_Days); //Days_Differ存放当前公历日距离当前春节公历日天数
Lunar_Month = 1; //农历月
Lunar_Month_Temp = 1; //农历月，从1月开始判断（第一个月不会是闰月，直接农历正月天数）
Leap_Month_Flag = 0; //闰月，农历月不+1
if(Get_Lunar_Month_Days(Lunar_Month_Temp, Table_Offset) == 0) //农历月天数
{
Lunar_Month_Days = 29; /* 小月29天 */
}
else
{
Lunar_Month_Days = 30; /* 大月30天 */
}
/* 从数据表中取该年的闰月月份,如为0则该年无闰月 */
Lunar_Leap_Month = Lunar_Year_Code[Table_Offset].Byte_0.Bits.Leap_Month;
while(Days_Differ >= Lunar_Month_Days) //天数差>=当前处理农历月天数
{
Days_Differ -= Lunar_Month_Days;
if(Lunar_Month == Lunar_Leap_Month) //农历月=当年农历闰月
{
Leap_Month_Flag = (~Leap_Month_Flag); //闰月标志
if (Leap_Month_Flag == 0)
{
Lunar_Month ++; //闰月之后的下一个月
}
else
{
Lunar_Month_Save = Lunar_Month; //农历月保存（用于判断是不是闰月）
}
}
else
{
Lunar_Month ++; //下一个月
}
Lunar_Month_Temp ++;
if(Get_Lunar_Month_Days(Lunar_Month_Temp, Table_Offset) == 0)
{
Lunar_Month_Days = 29;
}
else
{
Lunar_Month_Days = 30;
}
}
Lunar_Date = (Days_Differ + 1); //农历日
}
else /* 公历日在春节前使用下面代码进行运算 */
{
Days_Differ = (Spring_Festival_Days - Days_After_New_Years_Day);
Table_Offset -= 1; //未到当年春节，取前一年的农历特征表格
Lunar_Month = 12; //从前一年农历十二月开始判断
Lunar_Leap_Month = Lunar_Year_Code[Table_Offset].Byte_0.Bits.Leap_Month; //闰月月份
if (Lunar_Leap_Month == 0) //当前年没有闰月
{
Lunar_Month_Temp = 12; //农历月，从12月开始判断
}
else
{
Lunar_Month_Temp = 13; //农历月，当前年有闰月，从13月开始判断
}
Leap_Month_Flag = 0; //闰月，农历月不-1
if(Get_Lunar_Month_Days(Lunar_Month_Temp, Table_Offset) == 0) //农历月天数
{
Lunar_Month_Days = 29; /* 小月29天 */
}
else
{
Lunar_Month_Days = 30; /* 大月30天 */
}
while(Days_Differ > Lunar_Month_Days)
{
Days_Differ -= Lunar_Month_Days;
Lunar_Month_Temp --;
if(Leap_Month_Flag == 0)
{
Lunar_Month --;
}
if(Lunar_Month == Lunar_Leap_Month)
{
Leap_Month_Flag = (~Leap_Month_Flag);
if(Leap_Month_Flag)
{
Lunar_Month_Save = Lunar_Month; //农历月保存（用于判断是不是闰月）
}
}
if(Get_Lunar_Month_Days(Lunar_Month_Temp, Table_Offset) == 0)
{
Lunar_Month_Days = 29;
}
else
{
Lunar_Month_Days = 30;
}
}
Lunar_Date = (Lunar_Month_Days - Days_Differ + 1); //农历日
}
if(Lunar_Month == Lunar_Month_Save) //当前月=闰月保存月份
{
Return_Value.IS_Leap_Month = 1; //闰月标志=1
}
Return_Value.Month = Lunar_Month; //保存转换农历月、日
Return_Value.Date = Lunar_Date;
}
return Return_Value; //返回值
}

复制代码

转换实例：
（1）定义一个结构体变量保存转换返回值

Solar2Lunar_Typedef Lunar_Data; //公历转农历返回值

复制代码

（2）简单判断数据是否有效（待转换日期在预设范围内都会返回有效结果）。

Lunar_Data=Get_China_Calendar(Year,Month,Date); //公历转农历
if(Lunar_Data.Month != 0) //数据有效
{
Lunar_Calendar.Month = Lunar_Data.Month; //保存转换农历月、日
Lunar_Calendar.Date= Lunar_Data.Date;
Lunar_Calendar.IS_Leap_Month = Lunar_Data.IS_Leap_Month; //闰月标志
}

复制代码

off-ice · 发表于 2025-6-24 11:25:15

感谢楼主的分享，正需要。

dulme · 发表于 2025-5-23 16:08:26

留个印记，网上好多农历查表数组都是错的

dujq · 发表于 2025-5-1 07:04:20

不好意思，是我弄错了。请教楼主，只想用2000到2099年的数据。应该怎样修改

lmn2005 · 发表于 2025-4-30 16:13:17

本帖最后由 lmn2005 于 2025-4-30 16:36 编辑

不知道日出和日落有没有什么公式可以计算

补充：找到了，不过还没有下载下来应证
https://gitcode.com/Universal-To ... &type=card&

lmn2005 · 发表于 2025-4-29 13:10:38

mmxx2015 发表于 2025-4-29 12:18
如果只管今年的农历，把这行改了就行了：
改为：

已经修改，好了！谢谢！
顺便也把其他几个年份错误的也改了

mmxx2015 · 发表于 2025-4-29 12:18:29

lmn2005 发表于 2025-4-29 11:54
我从网上下载的公历转农历h文件（忘记了从哪里下载的），这个月的农历又错了。
今天是四月初二，而转换出来 ...

如果只管今年的农历，把这行改了就行了：

0x69,0x57,0x3d, //2025

复制代码

改为：

0x6A,0x57,0x3d, //2025

复制代码

lmn2005 · 发表于 2025-4-29 11:54:03

本帖最后由 lmn2005 于 2025-4-29 11:56 编辑

我从网上下载的公历转农历h文件（忘记了从哪里下载的），这个月的农历又错了。
今天是四月初二，而转换出来的是四月初三
表内数据是这样的：

uchar code Data[]={
0x04,0xAe,0x53, //1901 0 (200-(2100-1901)-1)*3=0
0x0A,0x57,0x48, //1902 3 (200-(2100-1902)-1)*3=3
0x55,0x26,0xBd, //1903 6 (200-(2100-1903)-1)*3=3
0x0d,0x26,0x50, //1904 9 (200-(2100-year)-1)*3
0x0d,0x95,0x44, //1905 12
0x46,0xAA,0xB9, //1906 15
0x05,0x6A,0x4d, //1907
0x09,0xAd,0x42, //1908
0x24,0xAe,0xB6, //1909
0x04,0xAe,0x4A, //1910
0x6A,0x4d,0xBe, //1911
0x0A,0x4d,0x52, //1912
0x0d,0x25,0x46, //1913
0x5d,0x52,0xBA, //1914
0x0B,0x54,0x4e, //1915
0x0d,0x6A,0x43, //1916
0x29,0x6d,0x37, //1917
0x09,0x5B,0x4B, //1918
0x74,0x9B,0xC1, //1919
0x04,0x97,0x54, //1920
0x0A,0x4B,0x48, //1921
0x5B,0x25,0xBC, //1922
0x06,0xA5,0x50, //1923
0x06,0xd4,0x45, //1924
0x4A,0xdA,0xB8, //1925
0x02,0xB6,0x4d, //1926
0x09,0x57,0x42, //1927
0x24,0x97,0xB7, //1928
0x04,0x97,0x4A, //1929
0x66,0x4B,0x3e, //1930
0x0d,0x4A,0x51, //1931
0x0e,0xA5,0x46, //1932
0x56,0xd4,0xBA, //1933
0x05,0xAd,0x4e, //1934
0x02,0xB6,0x44, //1935
0x39,0x37,0x38, //1936
0x09,0x2e,0x4B, //1937
0x7C,0x96,0xBf, //1938
0x0C,0x95,0x53, //1939
0x0d,0x4A,0x48, //1940
0x6d,0xA5,0x3B, //1941
0x0B,0x55,0x4f, //1942
0x05,0x6A,0x45, //1943
0x4A,0xAd,0xB9, //1944
0x02,0x5d,0x4d, //1945
0x09,0x2d,0x42, //1946
0x2C,0x95,0xB6, //1947
0x0A,0x95,0x4A, //1948
0x7B,0x4A,0xBd, //1949
0x06,0xCA,0x51, //1950
0x0B,0x55,0x46, //1951
0x55,0x5A,0xBB, //1952
0x04,0xdA,0x4e, //1953
0x0A,0x5B,0x43, //1954
0x35,0x2B,0xB8, //1955
0x05,0x2B,0x4C, //1956
0x8A,0x95,0x3f, //1957
0x0e,0x95,0x52, //1958
0x06,0xAA,0x48, //1959
0x7A,0xd5,0x3C, //1960
0x0A,0xB5,0x4f, //1961
0x04,0xB6,0x45, //1962
0x4A,0x57,0x39, //1963
0x0A,0x57,0x4d, //1964
0x05,0x26,0x42, //1965
0x3e,0x93,0x35, //1966
0x0d,0x95,0x49, //1967
0x75,0xAA,0xBe, //1968
0x05,0x6A,0x51, //1969
0x09,0x6d,0x46, //1970
0x54,0xAe,0xBB, //1971
0x04,0xAd,0x4f, //1972
0x0A,0x4d,0x43, //1973
0x4d,0x26,0xB7, //1974
0x0d,0x25,0x4B, //1975
0x8d,0x52,0xBf, //1976
0x0B,0x54,0x52, //1977
0x0B,0x6A,0x47, //1978
0x69,0x6d,0x3C, //1979
0x09,0x5B,0x50, //1980
0x04,0x9B,0x45, //1981
0x4A,0x4B,0xB9, //1982
0x0A,0x4B,0x4d, //1983
0xAB,0x25,0xC2, //1984
0x06,0xA5,0x54, //1985
0x06,0xd4,0x49, //1986
0x6A,0xdA,0x3d, //1987
0x0A,0xB6,0x51, //1988
0x09,0x37,0x46, //1989
0x54,0x97,0xBB, //1990
0x04,0x97,0x4f, //1991
0x06,0x4B,0x44, //1992
0x36,0xA5,0x37, //1993
0x0e,0xA5,0x4A, //1994
0x86,0xB2,0xBf, //1995
0x05,0xAC,0x53, //1996
0x0A,0xB6,0x47, //1997
0x59,0x36,0xBC, //1998
0x09,0x2e,0x50, //1999
0x0C,0x96,0x45, //2000
0x4d,0x4A,0xB8, //2001
0x0d,0x4A,0x4C, //2002
0x0d,0xA5,0x41, //2003
0x25,0xAA,0xB6, //2004
0x05,0x6A,0x49, //2005
0x7A,0xAd,0xBd, //2006
0x02,0x5d,0x52, //2007
0x09,0x2d,0x47, //2008
0x5C,0x95,0xBA, //2009
0x0A,0x95,0x4e, //2010
0x0B,0x4A,0x43, //2011
0x4B,0x55,0x37, //2012
0x0A,0xd5,0x4A, //2013
0x95,0x5A,0xBf, //2014
0x04,0xBA,0x53, //2015
0x0A,0x5B,0x48, //2016
0x65,0x2B,0xBC, //2017
0x05,0x2B,0x50, //2018
0x0A,0x93,0x45, //2019
0x47,0x4A,0xB9, //2020
0x06,0xAA,0x4C, //2021
0x0A,0xd5,0x41, //2022
0x24,0xdA,0xB6, //2023
0x04,0xB6,0x4A, //2024
0x69,0x57,0x3d, //2025
0x0A,0x4e,0x51, //2026
0x0d,0x26,0x46, //2027
0x5e,0x93,0x3A, //2028
0x0d,0x53,0x4d, //2029
0x05,0xAA,0x43, //2030
0x36,0xB5,0x37, //2031
0x09,0x6d,0x4B, //2032
0xB4,0xAe,0xBf, //2033
0x04,0xAd,0x53, //2034
0x0A,0x4d,0x48, //2035
0x6d,0x25,0xBC, //2036
0x0d,0x25,0x4f, //2037
0x0d,0x52,0x44, //2038
0x5d,0xAA,0x38, //2039
0x0B,0x5A,0x4C, //2040
0x05,0x6d,0x41, //2041
0x24,0xAd,0xB6, //2042
0x04,0x9B,0x4A, //2043
0x7A,0x4B,0xBe, //2044
0x0A,0x4B,0x51, //2045
0x0A,0xA5,0x46, //2046
0x5B,0x52,0xBA, //2047
0x06,0xd2,0x4e, //2048
0x0A,0xdA,0x42, //2049
0x35,0x5B,0x37, //2050
0x09,0x37,0x4B, //2051
0x84,0x97,0xC1, //2052
0x04,0x97,0x53, //2053
0x06,0x4B,0x48, //2054
0x66,0xA5,0x3C, //2055
0x0e,0xA5,0x4f, //2056
0x06,0xB2,0x44, //2057
0x4A,0xB6,0x38, //2058
0x0A,0xAe,0x4C, //2059
0x09,0x2e,0x42, //2060
0x3C,0x97,0x35, //2061
0x0C,0x96,0x49, //2062
0x7d,0x4A,0xBd, //2063
0x0d,0x4A,0x51, //2064
0x0d,0xA5,0x45, //2065
0x55,0xAA,0xBA, //2066
0x05,0x6A,0x4e, //2067
0x0A,0x6d,0x43, //2068
0x45,0x2e,0xB7, //2069
0x05,0x2d,0x4B, //2070
0x8A,0x95,0xBf, //2071
0x0A,0x95,0x53, //2072
0x0B,0x4A,0x47, //2073
0x6B,0x55,0x3B, //2074
0x0A,0xd5,0x4f, //2075
0x05,0x5A,0x45, //2076
0x4A,0x5d,0x38, //2077
0x0A,0x5B,0x4C, //2078
0x05,0x2B,0x42, //2079
0x3A,0x93,0xB6, //2080
0x06,0x93,0x49, //2081
0x77,0x29,0xBd, //2082
0x06,0xAA,0x51, //2083
0x0A,0xd5,0x46, //2084
0x54,0xdA,0xBA, //2085
0x04,0xB6,0x4e, //2086
0x0A,0x57,0x43, //2087
0x45,0x27,0x38, //2088
0x0d,0x26,0x4A, //2089
0x8e,0x93,0x3e, //2090
0x0d,0x52,0x52, //2091
0x0d,0xAA,0x47, //2092
0x66,0xB5,0x3B, //2093
0x05,0x6d,0x4f, //2094
0x04,0xAe,0x45, //2095
0x4A,0x4e,0xB9, //2096
0x0A,0x4d,0x4C, //2097
0x0d,0x15,0x41, //2098
0x2d,0x92,0xB5, //2099
0x0d,0x53,0x49, //2100
};

复制代码

mmxx2015 · 发表于 2025-4-28 21:27:29

dujq 发表于 2025-4-28 15:29
楼主这个日期出错公历: 2057-10-5 农历: 9月7日 9月8日 9月7日

你用在哪个单片机平台？我用在STC 51单片机、小华ARM M0+单片机，转换结果都是正确的。

日梭万年历2057-10-5的农历日期是九月初八

用在STC8H4K64TL的转换结果

用在HC32L196KCTA的转换结果

dujq · 发表于 2025-4-28 15:29:59

楼主这个日期出错公历: 2057-10-5 农历: 9月7日 9月8日 9月7日

fmjz · 发表于 2025-2-22 23:41:13

这个很有用，参考程序

xiaomage · 发表于 2025-2-17 16:48:19

确实遇到这种情况。感谢楼主分享！留个脚印。

huwangchina · 发表于 2025-2-7 00:35:43

好东西，收藏了，改天有空也搞-搞

mmxx2015 · 发表于 2025-2-4 10:49:24

水表君发表于 2025-2-3 23:09
网上看到好多类似的转换程序，关于“农历计算”的程序不计其数，甚至有的人做出小工具来生成代码。不过都是 ...

看过日梭万年历网络版、寿星天文历的源码，农历、节气、干支是可以计算的，只是计算方法很复杂，计算量很大，大部分单片机难以完成。
要生成大量日历数据，可以参考这两个日历程序算法在电脑上编程生成，也可以简单编程修改电脑日期再调用这两个程序得到。

水表君 · 发表于 2025-2-3 23:09:34

网上看到好多类似的转换程序，关于“农历计算”的程序不计其数，甚至有的人做出小工具来生成代码。不过都是查表法，也正因为查表法就带来很大的不确定性，之前我也用过好多程序都出现过一些日期错误问题，所以这类的程序主要难点我觉得在于验证的准确性！折腾过几次也懒得去折腾了，现在基本上都在玩ESP32和ESP8266，对于农历，节气这些直接API获取，还省的出错自己去修。我曾经也想过把这些农历常用的查询信息，比如农历日期，二十四节气，天干，地支等等都封装成一个库，然后不断更新，奈何也是被这种验证问题磨没了毅力。看楼主发言就是一个对中国农历有很深厚的研究的人，如果楼主有毅力，有时间，可以做个开源库，让全中国玩编程的都用你的库，能做到统一管理，我想到这种程度就能到100%准确性了！

mmxx2015 · 发表于 2025-1-29 17:44:19

本帖最后由 mmxx2015 于 2025-2-4 11:03 编辑

13楼的干支年转换程序有问题，应改为以立春日为界。
不过，大部分的日历还是以正月初一作为干支年、生肖年的分界，还有的干支年以正月初一为界、生肖年以立春日为界。

修正后的程序：

//******************************************************************
//函数名称：unsigned char Get_24_Solar_Terms(unsigned int Year,unsigned char Month,unsigned char Day)
//函数功能：查询当天是不是二十四节气之一
//输入参数：Year：公历年(只允许1901-2099年) Month：公历月 Day：公历日
//返回值： 0xff：不是；0~23：24节气编号（0-小寒，1-大寒，2-立春 …… 23冬至）
//******************************************************************
unsigned char Get_24_Solar_Terms(unsigned int Year,unsigned char Month,unsigned char Day)
{
unsigned char Solar_Terms_Data;
unsigned char Solar_Terms_Day;
unsigned char Return_Value; //返回值
Return_Value = 0xff; //默认返回无效值
if((Year >= C_SOLAR_YEAR_MIN) && (Year <= C_SOLAR_YEAR_MAX)) //公历年范围
{
Solar_Terms_Data = Solar_Terms_Code[(Year - C_SOLAR_YEAR_MIN)][(Month - 1)]; //当月24节气的公历日期编码
if(Day < 15) //高4位，当月第一个节气
{
Solar_Terms_Day = (15 - (Solar_Terms_Data >> 4));
if(Day == Solar_Terms_Day)
{
Return_Value = ((Month - 1) * 2);
}
}
else //低4位，当月第二个节气
{
Solar_Terms_Day = (15 + (Solar_Terms_Data & 0x0f));
if(Day == Solar_Terms_Day)
{
Return_Value = (((Month - 1) * 2) + 1);
}
}
}
return Return_Value; //返回值
}
//******************************************************************
//函数名称：unsigned char Get_Heavenly_Stems_Earthly_Branches(unsigned int Year,unsigned char Month,unsigned char Date)
//函数功能：查询当年天干地支序数
//输入参数：Year：公历年(需≥1864年 && ≤(1864+255)年)，月，日
//返回值：bit[7:4]天干序数+bit[3:0]地支序数（其中0xFF表示无效值）
//******************************************************************
unsigned char Get_Heavenly_Stems_Earthly_Branches(unsigned int Year,unsigned char Month,unsigned char Date)
{
unsigned int Table_Offset; //农历特征数据表格查表偏移量
unsigned char The_Beginning_Of_Spring_Date; //立春日对应的公历日期
unsigned char Year_Differ; //输入年份与指定甲子年年份差
unsigned char Year_Remainder; //(Year_Differ % 60)
unsigned char Return_Value; //返回值:天干序数+地支序数
Return_Value = 0xff; //默认返回无效值
if((Year >= C_SOLAR_YEAR_MIN) && (Year <= C_SOLAR_YEAR_MAX)) //有24节气公历日期表格年范围
{
if((Year >= C_SEXAGENARY_YEAR) && (Year <= (C_SEXAGENARY_YEAR + 255))) //可计算公历年范围
{
Year_Differ = (Year - C_SEXAGENARY_YEAR); //输入年份与指定甲子年年份差
//干支纪年和生肖年以立春日为界；立春是公历2月第1个节气
if(Month == 1) //未到立春日
{
if(Year == C_SEXAGENARY_YEAR) //指定甲子年立春日之前
{
Return_Value = (((10 - 1) <<4) | (12-1)); //返回癸亥年
return Return_Value; //返回值
}
else
{
Year_Differ --; //年份差 - 1
}
}
else if((Month == 2) && (Date < 15)) //指定公历日期在立春前还是后（立春日的公历日期不会超过2月15日）
{
/* 定位数据表地址 */
Table_Offset = (Year - C_SOLAR_YEAR_MIN); //二十四节气特征数据从1901年开始
/* 取当年立春日所的公历日期（立春是公历2月第1个节气） */
The_Beginning_Of_Spring_Date = (15 - (Solar_Terms_Code[Table_Offset][1] >> 4));
if(Date < The_Beginning_Of_Spring_Date) //未到立春日
{
if(Year == C_SEXAGENARY_YEAR) //指定甲子年立春日之前
{
Return_Value = (((10 - 1) <<4) | (12-1)); //返回癸亥年
return Return_Value; //返回值
}
else
{
Year_Differ --; //年份差 - 1
}
}
}
Year_Remainder = (Year_Differ % 60); //60年一个周期
Return_Value = ((Year_Remainder % 10) << 4); //天干序数
Return_Value |= (Year_Remainder % 12); //地支序数
}
}
return Return_Value; //返回值
}

复制代码

mmxx2015 · 发表于 2025-1-23 19:22:55

本帖最后由 mmxx2015 于 2025-1-23 19:30 编辑

hydize 发表于 2025-1-23 17:43
看了下代码，感觉是不是有点复杂了？我是直接以公元0年庚申年为基准，这样只要年份直接对10、12取余就得到 ...

年份直接除以10、12得到干支数确实少了一些计算，如果是51单片机，可能计算量差不多，因为年份除以10、12都是16位除以8位计算，不能直接硬件计算，年份减起始年份1864的差值不超过255，只需做8位除法，可以硬件一次完成计算。

mmxx2015 · 发表于 2025-1-23 19:09:06

hydize 发表于 2025-1-23 17:28
从另外一个帖子过来的，的确有几个年份的农历数据是错误的。我用的节气数据只到2050年，前几天下载了个香港 ...

查表转换速度快，也比较省电，一般“万年历”的年份范围从1901~2099年，数据量不大。

hydize · 发表于 2025-1-23 17:43:19

天干地支编年转换：根据百度知道回复编写程序....

看了下代码，感觉是不是有点复杂了？我是直接以公元0年庚申年为基准，这样只要年份直接对10、12取余就得到天干、地址的序列了。
当然这个0年是不存在的，实际就是公元前一年了。就是为了省事，但天干地支的顺序得按庚申开头来排序了，后续月日时的干支也需要同样的顺序。

hydize · 发表于 2025-1-23 17:28:03

从另外一个帖子过来的，的确有几个年份的农历数据是错误的。我用的节气数据只到2050年，前几天下载了个香港天文台的数据，自己又整理的。对照楼主修正的，还好整理的基本都对。

关于星期计算，我一直都是在用基姆拉尔森公式算的，不过我的用处是在电纸屏显示，所以速度快慢都好像影响不大。

账号		自动登录	找回密码
密码			立即注册

[C51] 1901年~2099年公历转农历程序

爱科技、爱创意、爱折腾、爱极致，我们都是技术控

打赏

相关帖子

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

浏览过的版块