Who has the C language program code to convert the solar calendar into the lunar calendar?

I happen to have resources. This is my original program. Data compression mode, conversion, reference point, etc. I designed them all myself. It can accurately convert the Gregorian calendar into the lunar calendar and the lunar calendar into the Gregorian calendar. At the same time, a self-designed moon database is provided, with routines and tools for extracting moon information, and the year interval can be customized (1600-7000).

Header file generated by lunar calendar information extractor (limited to the space here, the span is only 10 year)

/*****************************************************

*? Lunar calendar information (look-up table) *

*? Generation time: 20 14/ 12/25? *

*****************************************************/

#ifndef？ _LUNARDATA_H

# Definition? _LUNARDATA_H

# Definition? Start year? 1600? //Define the data start year (Gregorian calendar)

# Definition? The end of the year? 16 10? //Define the year when the data ends (excluding this year)

Short? iPreLeapIndex =- 1； //The lunar leap month index before the start year corresponds to the serial number in iPreMonth. If it is-1, there is no leap month.

//Starting from October of the lunar calendar one year before the start year, the first day of each month corresponds to the ordinal number of the year in the start year.

//Ordinal numbers less than zero mean before the start year.

Short? ipremont[3]= {-44，- 15， 15 }；

//The ordinal number of the first day of the first lunar month in the Gregorian calendar year (the ordinal number of the year specifies New Year's Day as 0).

Not signed? Charles? uLunarNewYearOrdinal[ 10]= {

44,33,22,4 1,30,48,37,27,46,34? // 1600- 1609

};

//Month size array, from the first month of "START_YEAR" to (leap)1February of the year before "END_YEAR".

//Twelve or thirteen months of each year are represented by two bytes, with the highest two digits set to 10, followed by leap months, from 1 month to1February. The youngest month comes first,

// 1? 00 or 1? x？ x？ x？ x？ x？ x？ x？ x？ x？ x？ x？ x？ x

// 1? 0 1 February is 0,1March is1. From 1 month to 1 February, the number of days in a month is 0, and the number of days in a month is1.

//Note that if there is no leap month, the month position is 12 and the total length is 15. If there is a leap month, the month position is 13, and the total length is 16.

Not signed? Short? LunarMonthDX[ 10]={

0x4A5D，0x492D，0xB92B，0x4A95，0xB695，0x46AA，0x4AD5，0xAAB5，0x44BA，0x4A5B？ // 1600- 1609

};

//leap month array, with 4 bits representing leap month information of a lunar year, and 1 byte representing two adjacent years.

//? x？ x？ x？ xx？ x？ x？ x

//? The first year, the second year.

Not signed? Charles? LeapMonth[5]={

0x00，0x20，0x90，0x06，0x00？ // 1600- 1609

};

//24 solar terms array, represented by one year 12 bytes, that is, one byte per month (note: this compression algorithm is suitable for data after 1600).

//For example, the solar terms of 190 1 year are:

// 1 month? February, March, April, May, June? July August September 65438+ October? 1 1 month? 65438+ February

//? 6,? 2 1,? 4,? 19,6,? 2 1,5,? 2 1,6,? 22,6,? 22,8,? 23,8,? 24,8,? 24,8,? 24,8,? 23,8,? 22

//? 9,? 6, 1 1,? 4,9,6, 10,? 6,9,? 7,9,? 7,7,? 8,7,? 9,7,? 9,7,? 9,7,? 8,7,? 15

//slight cold? Great cold? The beginning of spring? Rain? Scared? Equinox? Qingming? Grain Rain? Long summer? Little man? Mangzhong? Summer Solstice? A little hot? Summer heat? Beginning of autumn? Summer? White deer? Autumn equinox? Cold dew? First frost? Beginning of winter? Xiaoxue? Heavy snow? Winter solstice

//In this way, the data corresponding to two solar terms per month is less than 16. The following table can be obtained by storing the data of the first solar term in the high position and the data of the second solar term in the low position with one byte:

Not signed? Charles? SolarTerms[ 120]={

0x96，0x96，0x87，0x97，0x87，0x97，0x87，0x96，0x96，0x96，0x96，0x96，// 1600

0xA6，0xA5，0x87，0x87，0x87，0x87，0x87，0x97，0x96，0x97，0x96，0x96，？ // 160 1

0x96，0xA5，0x88，0x87，0x88，0x87，0x87，0x87，0x96，0x87，0x96，0x97，？ // 1602

0x96，0xA6，0x78，0x87，0x78，0x87，0x88，0x87，0x97，0x87，0x96，0x87，？ // 1603

0x96，0x96，0x87，0x97，0x87，0x97，0x87，0x96，0x96，0x96，0xA6，0x96，？ // 1604

0xA6，0xA5，0x87，0x87，0x87，0x87，0x87，0x97，0x96，0x96，0x96，0x96，？ // 1605

0x96，0xA5，0x88，0x87，0x88，0x87，0x87，0x87，0x96，0x87，0x96，0x97，？ // 1606

0x96，0xA5，0x78，0x87，0x78，0x87，0x88，0x87，0x97，0x87，0x96，0x87，？ // 1607

0x96，0x96，0x87，0x97，0x87，0x96，0x87，0x96，0x96，0x96，0xA6，0x96，？ // 1608

0xA6，0xA5，0x87，0x87，0x87，0x87，0x87，0x97，0x96，0x96，0x96，0x96？ // 1609

};

//Count nine, plum blossom, plum blossom and dog days every year (based on New Year's Day of that year).

//The first calendar year is 39 years (applicable after 1600).

//In the array, each row represents one year, with four years, nine years, five years, nine years ... omitted, and the difference between every nine is 9 days. Similarly, two or nine are omitted, and the medium amount is 10 days after the initial stage. Correspondence is as follows (omitted in parentheses):

//Sanjiu? (49? Five or nine? Sixty-nine Seven or nine? Eight or nine? 99)? Become a plum? No plums? First squat? (alto)? Last autumn? Nineteen? (29) Note: September 19 is the winter solstice.

Not signed? Short? extreme season[60]= {

8, 165, 190, 199,2 19,355,7, 159, 196, 193,223,355,? // 1600- 160 1

7, 164, 19 1, 198,2 18,355,8, 159, 198, 193,223,355,? // 1602- 1603

8, 164, 193, 198,2 18,355,7, 158, 199,202,222,355,? // 1604- 1605

7, 163, 194, 197,227,355,8, 158, 189,202,222,355,? // 1606- 1607

8, 163, 196, 197,227,355,7, 167, 190,20 1,22 1,354? // 1608- 1609

};

#endif？ //_LUNARDATA_H