标题: 51单片机阳历转农历（仅仅是阳历转阴历例程） [打印本页]
作者: 清枫城主    时间: 2018-12-30 22:31
标题: 51单片机阳历转农历（仅仅是阳历转阴历例程）
之前要做一个万年历，从论坛上辗转多处，最终发现以下这个阳历转换阴历的程序比较简单，数据带入可以直接使用，不过测试发现转换有问题，后面进行仿真调试找到问题所在，从而进而修改。不知道是我复制出错，还是自己不经意间修改才导致问题出现，已经修复，需要阳历转阴历的可以拿去。找不到具体来源，因此无法标志引用链接地址，如有侵权，联系删除。
问题所在：在SPDATE GetSpringDay(uchar GreYear,uchar GreMon,uchar GreDay)函数里面的参数定义，把Offset1定义为uchar类型，后面计算时Offset1数值溢出，将uchar改为uint后，数据不在溢出，进行上机测试，转换成功。
  1. //公曆轉農曆(1901-2100)
  2. //亦木明 2008.1.11
  3. //2018.12.30清枫城主测试，发现存在问题，通过仿真一步步走找出问题所在，并作出修正
  4. //原文在哪忘了，只知道作者有“亦木明”的标注，如有侵权联系删除
  5. #include "12c5a60s2.h"//可修改为51的头文件   


  8. #define TRUE  1
  9. //公历年对应的农历数据,每年三字节,
  10. //格式第一字节BIT7-4 位表示闰月月份,值为0 为无闰月,BIT3-0 对应农历第1-4 月的大小
  11. //第二字节BIT7-0 对应农历第5-12 月大小,第三字节BIT7 表示农历第13 个月大小
  12. //月份对应的位为1 表示本农历月大(30 天),为0 表示小(29 天).
  13. //第三字节BIT6-5 表示春节的公历月份,BIT4-0 表示春节的公历日期
  14. //每年的數據對應在數組中的位置庫 (200-(2100-year)-1)*3+Offset1  
  15. //0x09,0x2d,0x47, //2008  0x47 01000111
  16. //0x4d,0x4A,0xB8, //2001

  18. typedef struct spdate
  19. {
  20.         char         cYear;
  21.         char        cMon;
  22.         char        cDay;
  23. }SPDATE;


  26. uchar code Data[]={

  28. 0x04,0xAe,0x53, //1901  0        (200-(2100-1901)-1)*3=0
  29. 0x0A,0x57,0x48, //1902        3   (200-(2100-1902)-1)*3=3
  30. 0x55,0x26,0xBd, //1903        6        (200-(2100-1903)-1)*3=3
  31. 0x0d,0x26,0x50, //1904        9   (200-(2100-year)-1)*3
  32. 0x0d,0x95,0x44, //1905        12        
  33. 0x46,0xAA,0xB9, //1906        15
  34. 0x05,0x6A,0x4d, //1907
  35. 0x09,0xAd,0x42, //1908
  36. 0x24,0xAe,0xB6, //1909
  37. 0x04,0xAe,0x4A, //1910
  38. 0x6A,0x4d,0xBe, //1911
  39. 0x0A,0x4d,0x52, //1912
  40. 0x0d,0x25,0x46, //1913
  41. 0x5d,0x52,0xBA, //1914
  42. 0x0B,0x54,0x4e, //1915
  43. 0x0d,0x6A,0x43, //1916
  44. 0x29,0x6d,0x37, //1917
  45. 0x09,0x5B,0x4B, //1918
  46. 0x74,0x9B,0xC1, //1919
  47. 0x04,0x97,0x54, //1920
  48. 0x0A,0x4B,0x48, //1921
  49. 0x5B,0x25,0xBC, //1922
  50. 0x06,0xA5,0x50, //1923
  51. 0x06,0xd4,0x45, //1924
  52. 0x4A,0xdA,0xB8, //1925
  53. 0x02,0xB6,0x4d, //1926
  54. 0x09,0x57,0x42, //1927
  55. 0x24,0x97,0xB7, //1928
  56. 0x04,0x97,0x4A, //1929
  57. 0x66,0x4B,0x3e, //1930
  58. 0x0d,0x4A,0x51, //1931
  59. 0x0e,0xA5,0x46, //1932
  60. 0x56,0xd4,0xBA, //1933
  61. 0x05,0xAd,0x4e, //1934
  62. 0x02,0xB6,0x44, //1935
  63. 0x39,0x37,0x38, //1936
  64. 0x09,0x2e,0x4B, //1937
  65. 0x7C,0x96,0xBf, //1938
  66. 0x0C,0x95,0x53, //1939
  67. 0x0d,0x4A,0x48, //1940
  68. 0x6d,0xA5,0x3B, //1941
  69. 0x0B,0x55,0x4f, //1942
  70. 0x05,0x6A,0x45, //1943
  71. 0x4A,0xAd,0xB9, //1944
  72. 0x02,0x5d,0x4d, //1945
  73. 0x09,0x2d,0x42, //1946
  74. 0x2C,0x95,0xB6, //1947
  75. 0x0A,0x95,0x4A, //1948
  76. 0x7B,0x4A,0xBd, //1949
  77. 0x06,0xCA,0x51, //1950
  78. 0x0B,0x55,0x46, //1951
  79. 0x55,0x5A,0xBB, //1952
  80. 0x04,0xdA,0x4e, //1953
  81. 0x0A,0x5B,0x43, //1954
  82. 0x35,0x2B,0xB8, //1955
  83. 0x05,0x2B,0x4C, //1956
  84. 0x8A,0x95,0x3f, //1957
  85. 0x0e,0x95,0x52, //1958
  86. 0x06,0xAA,0x48, //1959
  87. 0x7A,0xd5,0x3C, //1960
  88. 0x0A,0xB5,0x4f, //1961
  89. 0x04,0xB6,0x45, //1962
  90. 0x4A,0x57,0x39, //1963
  91. 0x0A,0x57,0x4d, //1964
  92. 0x05,0x26,0x42, //1965
  93. 0x3e,0x93,0x35, //1966
  94. 0x0d,0x95,0x49, //1967
  95. 0x75,0xAA,0xBe, //1968
  96. 0x05,0x6A,0x51, //1969
  97. 0x09,0x6d,0x46, //1970
  98. 0x54,0xAe,0xBB, //1971
  99. 0x04,0xAd,0x4f, //1972
  100. 0x0A,0x4d,0x43, //1973
  101. 0x4d,0x26,0xB7, //1974
  102. 0x0d,0x25,0x4B, //1975
  103. 0x8d,0x52,0xBf, //1976
  104. 0x0B,0x54,0x52, //1977
  105. 0x0B,0x6A,0x47, //1978
  106. 0x69,0x6d,0x3C, //1979
  107. 0x09,0x5B,0x50, //1980
  108. 0x04,0x9B,0x45, //1981
  109. 0x4A,0x4B,0xB9, //1982
  110. 0x0A,0x4B,0x4d, //1983
  111. 0xAB,0x25,0xC2, //1984
  112. 0x06,0xA5,0x54, //1985
  113. 0x06,0xd4,0x49, //1986
  114. 0x6A,0xdA,0x3d, //1987
  115. 0x0A,0xB6,0x51, //1988
  116. 0x09,0x37,0x46, //1989
  117. 0x54,0x97,0xBB, //1990
  118. 0x04,0x97,0x4f, //1991
  119. 0x06,0x4B,0x44, //1992
  120. 0x36,0xA5,0x37, //1993
  121. 0x0e,0xA5,0x4A, //1994
  122. 0x86,0xB2,0xBf, //1995
  123. 0x05,0xAC,0x53, //1996
  124. 0x0A,0xB6,0x47, //1997
  125. 0x59,0x36,0xBC, //1998
  126. 0x09,0x2e,0x50, //1999         
  127. 0x0C,0x96,0x45, //2000
  128. 0x4d,0x4A,0xB8, //2001
  129. 0x0d,0x4A,0x4C, //2002
  130. 0x0d,0xA5,0x41, //2003
  131. 0x25,0xAA,0xB6, //2004
  132. 0x05,0x6A,0x49, //2005
  133. 0x7A,0xAd,0xBd, //2006
  134. 0x02,0x5d,0x52, //2007
  135. 0x09,0x2d,0x47, //2008
  136. 0x5C,0x95,0xBA, //2009
  137. 0x0A,0x95,0x4e, //2010
  138. 0x0B,0x4A,0x43, //2011
  139. 0x4B,0x55,0x37, //2012
  140. 0x0A,0xd5,0x4A, //2013
  141. 0x95,0x5A,0xBf, //2014
  142. 0x04,0xBA,0x53, //2015
  143. 0x0A,0x5B,0x48, //2016
  144. 0x65,0x2B,0xBC, //2017
  145. 0x05,0x2B,0x50, //2018
  146. 0x0A,0x93,0x45, //2019
  147. 0x47,0x4A,0xB9, //2020
  148. 0x06,0xAA,0x4C, //2021
  149. 0x0A,0xd5,0x41, //2022
  150. 0x24,0xdA,0xB6, //2023
  151. 0x04,0xB6,0x4A, //2024
  152. 0x69,0x57,0x3d, //2025
  153. 0x0A,0x4e,0x51, //2026
  154. 0x0d,0x26,0x46, //2027
  155. 0x5e,0x93,0x3A, //2028
  156. 0x0d,0x53,0x4d, //2029
  157. 0x05,0xAA,0x43, //2030
  158. 0x36,0xB5,0x37, //2031
  159. 0x09,0x6d,0x4B, //2032
  160. 0xB4,0xAe,0xBf, //2033
  161. 0x04,0xAd,0x53, //2034
  162. 0x0A,0x4d,0x48, //2035
  163. 0x6d,0x25,0xBC, //2036
  164. 0x0d,0x25,0x4f, //2037
  165. 0x0d,0x52,0x44, //2038
  166. 0x5d,0xAA,0x38, //2039
  167. 0x0B,0x5A,0x4C, //2040
  168. 0x05,0x6d,0x41, //2041
  169. 0x24,0xAd,0xB6, //2042
  170. 0x04,0x9B,0x4A, //2043
  171. 0x7A,0x4B,0xBe, //2044
  172. 0x0A,0x4B,0x51, //2045
  173. 0x0A,0xA5,0x46, //2046
  174. 0x5B,0x52,0xBA, //2047
  175. 0x06,0xd2,0x4e, //2048
  176. 0x0A,0xdA,0x42, //2049
  177. 0x35,0x5B,0x37, //2050
  178. 0x09,0x37,0x4B, //2051
  179. 0x84,0x97,0xC1, //2052
  180. 0x04,0x97,0x53, //2053
  181. 0x06,0x4B,0x48, //2054
  182. 0x66,0xA5,0x3C, //2055
  183. 0x0e,0xA5,0x4f, //2056
  184. 0x06,0xB2,0x44, //2057
  185. 0x4A,0xB6,0x38, //2058
  186. 0x0A,0xAe,0x4C, //2059
  187. 0x09,0x2e,0x42, //2060
  188. 0x3C,0x97,0x35, //2061
  189. 0x0C,0x96,0x49, //2062
  190. 0x7d,0x4A,0xBd, //2063
  191. 0x0d,0x4A,0x51, //2064
  192. 0x0d,0xA5,0x45, //2065
  193. 0x55,0xAA,0xBA, //2066
  194. 0x05,0x6A,0x4e, //2067
  195. 0x0A,0x6d,0x43, //2068
  196. 0x45,0x2e,0xB7, //2069
  197. 0x05,0x2d,0x4B, //2070
  198. 0x8A,0x95,0xBf, //2071
  199. 0x0A,0x95,0x53, //2072
  200. 0x0B,0x4A,0x47, //2073
  201. 0x6B,0x55,0x3B, //2074
  202. 0x0A,0xd5,0x4f, //2075
  203. 0x05,0x5A,0x45, //2076
  204. 0x4A,0x5d,0x38, //2077
  205. 0x0A,0x5B,0x4C, //2078
  206. 0x05,0x2B,0x42, //2079
  207. 0x3A,0x93,0xB6, //2080
  208. 0x06,0x93,0x49, //2081
  209. 0x77,0x29,0xBd, //2082
  210. 0x06,0xAA,0x51, //2083
  211. 0x0A,0xd5,0x46, //2084
  212. 0x54,0xdA,0xBA, //2085
  213. 0x04,0xB6,0x4e, //2086
  214. 0x0A,0x57,0x43, //2087
  215. 0x45,0x27,0x38, //2088
  216. 0x0d,0x26,0x4A, //2089
  217. 0x8e,0x93,0x3e, //2090
  218. 0x0d,0x52,0x52, //2091
  219. 0x0d,0xAA,0x47, //2092
  220. 0x66,0xB5,0x3B, //2093
  221. 0x05,0x6d,0x4f, //2094
  222. 0x04,0xAe,0x45, //2095
  223. 0x4A,0x4e,0xB9, //2096
  224. 0x0A,0x4d,0x4C, //2097
  225. 0x0d,0x15,0x41, //2098
  226. 0x2d,0x92,0xB5, //2099
  227. 0x0d,0x53,0x49, //2100
  228. };

  230. uchar code Mon1[2][13]={0,31,28,31,30,31,30,31,31,30,31,30,31,
  231.                                   0,31,29,31,30,31,30,31,31,30,31,30,31};

  233. SPDATE Spdate;
  234. //獲得當年春節的公曆日期
  235. SPDATE GetSpringDay(uchar GreYear,uchar GreMon,uchar GreDay)
  236. {
  237.         //0x09,0x2d,0x47, //2008  0x47 01000111
  238.         int day;
  239.     uchar i,Flag,F;
  240.         uint Offset1;//出现问题在这里，原本定义为uchar类型，下面计算时超出范围导致错误，进行修改为uint类型后，验证正常
  241.         unsigned char L=0x01,Flag1=1;
  242.         unsigned int  Temp16,L1=0x0800;
  243.         //第三字节BIT6-5 表示春节的公历月份,BIT4-0 表示春节的公历日期
  244.         Spdate.cYear=GreYear ;
  245.         Spdate.cMon=(Data[(200-(100-GreYear)-1)*3+2]&0x60)>>5; //计算春节公历月份
  246.         Spdate.cDay=(Data[(200-(100-GreYear)-1)*3+2])&0x1f;    //计算春节公历日期

  248.         //判断平年，闰年
  249.         if( (!(GreYear%4) && (GreYear%100)) || !(GreYear%400) ) Flag=1;
  250.         else Flag=0;
  251.         
  252.         if(Spdate.cMon>GreMon)                                                                //春节离公历日期的天数
  253.         {
  254.            day=Mon1[Flag][GreMon]-GreDay;
  255.            for(i=GreMon+1;i<=Spdate.cMon-1;i++)
  256.                         day+=Mon1[Flag][i];
  257.            day+=Spdate.cDay;
  258.            F=1;
  259.         }
  260.         else if(Spdate.cMon<GreMon) //春節的月份小於目標的月份
  261.         {
  262.                 day=Mon1[Flag][Spdate.cMon]-Spdate.cDay;  
  263.                 for(i=Spdate.cMon+1;i<=GreMon-1;i++)
  264.                         day+=Mon1[Flag][i];
  265.                 day+=GreDay;                                //          000000000000000000000000000000000000000000000000000000000000000000
  266.                 F=0;
  267.         }
  268.         else
  269.         {
  270.                 if(Spdate.cDay>GreDay)
  271.                 {
  272.                         day=Spdate.cDay-GreDay;
  273.                         F=1;
  274.                 }
  275.                 else if(Spdate.cDay<GreDay)
  276.                 {
  277.                         day=GreDay-Spdate.cDay;
  278.                         F=0;
  279.                 }
  280.                 else day=0;
  281.         }                 

  283.         Spdate.cYear=Spdate.cYear;
  284.         Spdate.cMon=1;
  285.         Spdate.cDay=1;

  287.         if(!day) return Spdate ;

  289.         if(F)    //春节在公历日期后
  290.         {
  291.                 Spdate.cYear--;
  292.                 Spdate.cMon=12;
  293.                 //这边Offset1计算会出现超范围，因此把uchar类型改为uint后正常
  294.                 Offset1=(200-(100-Spdate.cYear)-1)*3;
  295.                 while(TRUE)
  296.                 {
  297.                         //格式第一字节BIT7-4 位表示闰月月份,值为0 为无闰月,BIT3-0 对应农历第1-4 月的大小
  298.                         //第二字节BIT7-0 对应农历第5-12 月大小,第三字节BIT7 表示农历第13 个月大小
  299.                         //0x4d,0x4A,0xB8, //2001
  300.                         if(Data[Offset1+1]&L)
  301.                                 day-=30;
  302.                         else
  303.                                 day-=29;
  304.                         L<<=1;
  305.                         if(((Data[Offset1+0]&0xf0)>>4)==Spdate.cMon && Flag1)//(Data[Offset1+0]&0xf0)>>4判断是否是闰月1平月0
  306.                         {
  307.                                 Flag1=0;
  308.                                 if(Data[Offset1+2]&0x80) day-=30; else day-=29;
  309.                                 continue;
  310.                         }
  311.                         if(day>0) Spdate.cMon--;
  312.                         else break;
  313.                         
  314.                         
  315.                 }
  316.                 Spdate.cDay=-day+1;
  317.         }
  318.         
  319.         if(!F)
  320.         {
  321.                 Spdate.cMon=1;
  322.                 //这边Offset1计算会出现超范围，因此把uchar类型改为uint后正常
  323.                 Offset1=(200-(100-Spdate.cYear)-1)*3;
  324.                 Temp16=(Data[Offset1+0]<<8)+Data[Offset1+1];
  325.                 while(TRUE)
  326.                 {
  327.                         if(Temp16 & L1) day-=30; else day-=29;
  328.                         if(day>=0)
  329.                                 Spdate.cMon++;
  330.                         else if(day<0)
  331.                         {
  332.                                 if(Temp16 & L1) day+=30; else day+=29;
  333.                                 break;
  334.                         }
  335.                         L1>>=1;
  336.                         //格式第一字节BIT7-4 位表示闰月月份,值为0 为无闰月,BIT3-0 对应农历第1-4 月的大小
  337.                         //第二字节BIT7-0 对应农历第5-12 月大小,第三字节BIT7 表示农历第13 个月大小
  338.                         if(((Data[Offset1+0]&0xf0)>>4)==(Spdate.cMon-1) && Flag1) //闰月
  339.                         {
  340.                                 Flag1=0;
  341.                                 Spdate.cMon--;
  342.                                 if(Temp16 & L1) day-=30; else day-=29;
  343.                                 if(day>=0)
  344.                                         Spdate.cMon++;
  345.                                 else if(day<0)
  346.                                 {
  347.                                         if(Temp16 & L1) day+=30; else day+=29;
  348.                                         break;
  349.                                 }
  350.                                 L1>>=1;
  351.                         }
  352.                 }
  353.                 Spdate.cDay=day+1;
  354.         }
  355.     return Spdate;
  356. }

  358. bit YearFlag(uchar cYear) //判断平年，闰年
  359. {
  360.    if( (!(cYear%4) && (cYear%100)) || !(cYear%400) ) return 1; else return 0;
  361. }

  363. //目標日期是星期幾
  364. uchar GetWeekDay(uchar cYear,uchar cMon,uchar cDay)
  365. {
  366.         char i;
  367.         int  Sum=0,tmpyear=2000+cYear;
  368.         for(i=1;i<=cMon-1;i++)
  369.                 Sum+=Mon1[YearFlag(cYear)][i];
  370.         Sum+=cDay-1;
  371.         
  372.         return (((tmpyear-1)+(tmpyear-1)/4-(tmpyear-1)/100+(tmpyear-1)/400+Sum)%7)+1;
  373. }

  375. void main()
  376. {
  377.         for(;;)
  378.         {
  379.         GetSpringDay(18,12,30);        //输入数据为十进制，不是BCD码格式，这个请注意

  381.         }
  382. }

  384. /*****************************************************************************

  386. 首先要能记住十大天干和十二地支，
  387. 十天干：  甲、乙、丙、丁、戊、己、庚、辛、壬、癸；
  388. 十二地支：子、丑、寅、卯、辰、巳、午、未、申、酉、戌、亥；

  390. 天干地支纪年法首先是天干在前，地支在后，比如今年2005就为－乙酉年，先来算算天干，
  391. 有个公式：
  392. 4、 5、 6、 7、 8、 9、 0、 1、 2、 3 对应的十天干就是
  393. 甲、乙、丙、丁、戊、己、庚、辛、壬、癸，
  394. 数字为年代的最后的一位数字，比如今年是2005，最后一位是5，对应的天干就是乙；

  396. 地支的算法：用年代数除以12，后面的余数就代表某个地支，
  397. 余数分别为：4、 5、 6、 7、 8、 9、 10、 11、 0（能整除）、1、 2、3.
  398. 代表地支为：子、丑、寅、卯、辰、巳、午、 未、 申、酉、戌、亥.
  399. 比如2005年为例：年代末尾数为5，对应的天干为乙，2005除以12，余数为1，对应的地支为酉，所以2005年为乙酉年。

  401. ******************************************************************************/
复制代码

全部资料51hei下载地址：
4545456.rar (10.77 KB, 下载次数: 108)


作者: omer    时间: 2019-4-13 08:49
感谢代码开源分享，尝试一下。
作者: ac9979    时间: 2019-10-29 23:57
本帖最后由 ac9979 于 2019-11-5 22:09 编辑

前段时间用STC15L104W改了一个时钟，增加了农历显示功能，参照了你的程序，但是文件大小超出了范围，只好想办法精简程序，发现如果农历年和阳历不是同一年，可以递归调用本函数 GetSpringDay(GreYear+1, GreMon+12, GreDay)，代码会少30%，这个判断就不需要了:  if(F)    //春节在公历日期后{ ……} 。
具体代码如下：





typedef unsigned int u16;  //16位无符号整型数
typedef unsigned char u8;  //8位无符号整型数


u8 dn(u8 yy,u8 mm,u8 dd);                                   //公历转农历函数
u8 temp;
u8 NonY=0;                                                     //农历年
u8 NonM=0;                                                     //农历月
u8 NonD=0;                                                     //农历日


u16 nday[]={0,31,59,90,120,151,181,212,243,273,304,334,365,396};     //第n-1月有多少天

       
//公历年对应的农历数据,每年三字节,
//格式第一字节BIT7-4 位表示闰月月份,值为0 为无闰月,BIT3-0 对应农历第1-4 月的大小
//第二字节BIT7-0 对应农历第5-12 月大小,第三字节BIT7 表示农历第13 个月大小
//月份对应的位为1 表示本农历月大(30 天),为0 表示小(29 天).
//第三字节BIT6-5 表示春节的公历月份,BIT4-0 表示春节的公历日期       


u8 code Data[]={   
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
};


u8 dn(u8 yy,u8 mm,u8 dd)
{
        u16        nyear=2000+yy;              //仅计算2000~2099年
        bit RunY=0;                     //公历闰年标志
        bit Flag1=1;                    //农历闰月标志
        u8 SpM;                         //春节公历月份
        u8 SpD;                         //春节公历日期
        u8 SpN;                                                                                                  //春节是本公历年第几天
       
        u8 RunM=0;                                                                            //农历闰月月份       
       
        int Diff;
        int day;
       
        u16 CuN;                                                            //当前日期是本公历年第几天
        u16 Offset1;
        u16 Temp16;
        u16 L1=0x8000;
       
       

       
       
       
        SpM=(Data[yy*3+2]&0x60)>>5; //计算春节公历月份       
        SpD=(Data[yy*3+2])&0x1f;    //计算春节公历日期       
        SpN=nday[SpM-1]+SpD;                                //计算春节是本年第几天，因为春节永远在公历3月前，所以不用考虑2月是28天还是29天
       
        //判断本公历年是否闰年
        if ( nyear %4 ==0   &&         nyear % 100 !=0 )
                RunY=1;
        if ( nyear % 400 ==0   )
                RunY=1;
       
        //计算当前日期本公历年第几天
        if ( RunY==1 && mm > 2 )
                CuN=nday[mm-1]+dd+1;         
        else
                CuN=nday[mm-1]+dd;
       
               
        Diff=CuN-SpN;                                                                   //计算当前日期与春节相差多少天
       
       
        if( Diff >=0 )       
        {       
                        NonY=yy;
                        day=Diff;
                        NonM=1;
                        Offset1=(yy)*3;       
               
                        //格式第一字节BIT3-0 对应农历第1-4 月的大小
                        //第二字节BIT7-0 对应农历第5-12 月大小,第三字节BIT7 表示农历第13 个月大小
                        Temp16=((Data[Offset1+0]&0x0f)<<12)+(Data[Offset1+1]<<4)+((Data[Offset1+2]&0xf0)>>4);                                                                


                        while ( 1 )
                        {
                                                        if(Temp16 & L1) day-=30; else day-=29;
                               
                                                        if(day>=0)
                                                                        NonM++;
                                                        else if(day<0)
                                                        {
                                                                        if(Temp16 & L1) day+=30; else day+=29;
                                                                        break;
                                                        }
                                                        L1>>=1;
                                                       
                                                        //格式第一字节BIT7-4 位表示闰月月份,值为0 为无闰月
                                                        if(((Data[Offset1+0]&0xf0)>>4)==(NonM-1) && Flag1) // 闰月，幸好从来不闰正月
                                                        {
                                                                                        Flag1=0;
                                                                                        NonM--;
                                                                                        RunM=NonM;                                                                                       
                                                        }
                        }
                        NonD=day+1;       
                       
        }
        else   //如果当前日期还在春节前，则农历还是上一年，公历月份增加12个月，然后递归调用
        {
                        RunM = dn( yy-1,mm+12,dd );               
               
        }



        return(RunM);       
}

       
       

void main()
{

        temp=dn( 18 ,10 ,12 );   //调用公历转农历函数，返回值为闰月月份，如果日期在闰月之前，则返回值为0;
               
        if( temp == NonM )
                                        ;                //表示此月是闰月
        else
                                        ;
       
       
}
  

Clock.rar

2.07 KB, 下载次数: 41, 下载积分: 黑币 -5

作者: a25575703    时间: 2019-11-2 00:35
感謝兩位版主的分享。
作者: man1234567    时间: 2020-2-16 20:05
星期也可以通过日期来计算的，而且算法简单（蔡勒Zeller公式）。
作者: 甫生啊啊啊    时间: 2021-6-6 17:57
基姆拉尔森 星期计算公式& 蔡勒 星期计算公式， 其实都是大同小异的

  2. /*        @funciton: Calculate weekday in KimLarsen formula
  3.         @parameters: year, month, day
  4.         @return: weekday
  5. */
  6. int calculateWeekByKimLarsen(int year, int month, int day)
  7. {
  8.         int iY = year, iM = month, iD = day, iWeekDay;

  10.         if (1 == iM || 2 == iM){   
  11.         iM += 12;
  12.         iY--;
  13.     }
  14.     iWeekDay = (iD + 1 + iM*2 + 3*(iM+1)/5 + iY + iY/4 - iY/100 + iY/400) % 7;

  16.     return iWeekDay;
  17. }

  19. /*        @funciton: Calculate weekday in Zella formula
  20.         @parameters: year, month, day
  21.         @return: weekday
  22. */
  23. int calculateWeekByZella( int year , int month, int day )
  24. {
  25.         int c,y,week;

  27.         if (month == 1 || month == 2){
  28.                 year--;
  29.                 month += 12;
  30.         }
  31.         c = year / 100;
  32.         y = year - c * 100;
  33.         week = y + y/4 + c/4 - 2*c + 26*(month+1)/10 + day - 1;
  34.         while (week<0){
  35.                 week += 7;
  36.         }
  37.         week %= 7;

  39.         return (week);
  40. }
复制代码




欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1