资源描述：
《C语言阴阳历算法》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、C语言阴阳历算法2008-10-2523:22:11作者：来源：中国论文下载中心浏览次数：188文字大小：【大】【中】【小】 C语言阴阳历算法程序为：/*prototype:intcalconv(structconvdate*);structconvdate{intsource;==0则输入日期为西历,!=0则输入为农历intsolaryear;输出或输入之西历年份intsolarmonth;西历月intsolardate;西历日intlunaryear;输出或输入之农历年份intlunarmonth;农历月intlunardate;农历日intweekday;该日为星期几
2、(0==星期日,1==星期一,...)intkan;该日天干(0==甲,1==乙,...,9==癸)intchih;该日地支(0==子,1==丑,...,11==亥)};呼叫时须设定souce的值,若为0则为西历转农历,否则为农历转西历.然後视输入为西历或农历来设定西历或农历的年月日.转换後的年月日会填入结构中(农历或西历),以及该日为星期几,天干地支.若函式的返回值为0表示没有错误,1为输入之年份错误,2为输入之月份错误,3为输入之日期错误.输入之西历年须在1937-2031间输入之农历年须在1936-2030间若须扩充,则增加lunarcal[]*/#definefirs
3、tyear1936/*thefirstyearinlunarcal[]*/structconvdate{intsource;intsolaryear;intsolarmonth;intsolardate;intlunaryear;intlunarmonth;intlunardate;intweekday;intkan;intchih;};structtaglunarcal{intbasedays;/*到西历1月1日到农历正月初一的累积日数*/intintercalation;/*闰月月份.0==此年没有闰月*/intbaseweekday;/*此年西历1月1日为星期几再减1*
4、/intbasekanchih;/*此年西历1月1日之干支序号减1*/intmonthdays[13];/*此农历年每月之大小,0==小月(29日),1==大月(30日)*/};structtaglunarcallunarcal[]={{23,3,2,17,1,0,0,1,0,0,1,1,0,1,1,1,0},/*1936*/{41,0,4,23,1,0,0,1,0,0,1,0,1,1,1,0,1},{30,7,5,28,1,1,0,0,1,0,0,1,0,1,1,0,1},{49,0,6,33,1,1,0,0,1,0,0,1,0,1,0,1,1},{38,0,0,38,1,
5、1,0,1,0,1,0,0,1,0,1,0,1},/*1940*/{26,6,2,44,1,1,0,1,1,0,1,0,0,1,0,1,0},{45,0,3,49,1,0,1,1,0,1,0,1,0,1,0,1,0},{35,0,4,54,0,1,0,1,0,1,1,0,1,0,1,0,1},{24,4,5,59,1,0,1,0,1,0,1,0,1,1,0,1,1},/*1944*/{43,0,0,5,0,0,1,0,0,1,0,1,1,1,0,1,1},{32,0,1,10,1,0,0,1,0,0,1,0,1,1,0,1,1},{21,2,2,15,1,1,0,0,1,0,
6、0,1,0,1,0,1,1},{40,0,3,20,1,0,1,0,1,0,0,1,0,1,0,1,1},/*1948*/{28,7,5,26,1,0,1,1,0,1,0,0,1,0,1,0,1},{47,0,6,31,0,1,1,0,1,1,0,0,1,0,1,0,1},{36,0,0,36,1,0,1,1,0,1,0,1,0,1,0,1,0},{26,5,1,41,0,1,0,1,0,1,0,1,1,0,1,0,1},/*1952*/{44,0,3,47,0,1,0,0,1,1,0,1,1,0,1,0,1},{33,0,4,52,1,0,1,0,0,1,0,1,1,0,1
7、,1,0},{23,3,5,57,0,1,0,1,0,0,1,0,1,0,1,1,1},{42,0,6,2,0,1,0,1,0,0,1,0,1,0,1,1,1},/*1956*/{30,8,1,8,1,0,1,0,1,0,0,1,0,1,0,1,0},{48,0,2,13,1,1,1,0,1,0,0,1,0,1,0,1,0},{38,0,3,18,0,1,1,0,1,0,1,0,1,0,1,0,1},{27,6,4,23,1,0,1,0,1,1,0,1,0,1,0,1,0},/*1960*/{45,0,
