电子开发网

电子开发网电子设计 | 电子开发网Rss 2.0 会员中心 会员注册
搜索: 您现在的位置: 电子开发网 >> 电子开发 >> 单片机 >> 正文

C51农历转换函数

作者:佚名    文章来源:本站原创    点击数:    更新时间:2010-10-4

char *GetDayOf(PSYSTEMTIME pSt) 

/*天干名称*/ 
const char *cTianGan[] = {"甲","乙","丙","丁","戊","己","庚","辛","壬","癸"}; 
/*地支名称*/ 
const char *cDiZhi[] = {"子","丑","寅","卯","辰","巳","午", 
"未","申","酉","戌","亥"}; 
/*属相名称*/ 
const char *cShuXiang[] = {"鼠","牛","虎","兔","龙","蛇", 
"马","羊","猴","鸡","狗","猪"}; 
/*农历日期名*/ 
const char *cDayName[] = {"*","初一","初二","初三","初四","初五", 
"初六","初七","初八","初九","初十", 
"十一","十二","十三","十四","十五", 
"十六","十七","十八","十九","二十", 
"廿一","廿二","廿三","廿四","廿五", 
"廿六","廿七","廿八","廿九","三十"}; 
/*农历月份名*/ 
const char *cMonName[] = {"*","正","二","三","四","五","六", 
"七","八","九","十","十一","腊"}; 

/*公历每月前面的天数*/ 
const int wMonthAdd[12] = {0,31,59,90,120,151,181,212,243,273,304,334}; 
/*农历数据*/ 
const int wNongliData[100] = 
{2635,333387,1701,1748,267701,694,2391,133423,1175,396438 
,3402,3749,331177,1453,694,201326,2350,465197,3221,3402 
,400202,2901,1386,267611,605,2349,137515,2709,464533,1738 
,2901,330421,1242,2651,199255,1323,529706,3733,1706,398762 
,2741,1206,267438,2647,1318,204070,3477,461653,1386,2413 
,330077,1197,2637,268877,3365,531109,2900,2922,398042,2395 
,1179,267415,2635,661067,1701,1748,398772,2742,2391,330031 
,1175,1611,200010,3749,527717,1452,2742,332397,2350,3222 
,268949,3402,3493,133973,1386,464219,605,2349,334123,2709 
,2890,267946,2773,592565,1210,2651,395863,1323,2707,265877}; 
static int wCurYear,wCurMonth,wCurDay; 
static int nTheDate,nIsEnd,m,k,n,i,nBit; 
TCHAR szNongli[30], szNongliDay[10],szShuXiang[10]; 
/*---取当前公历年、月、日---*/ 
wCurYear = pSt->wYear; 
wCurMonth = pSt->wMonth; 
wCurDay = pSt->wDay; 
/*---计算到初始时间1921年2月8日的天数:1921-2-8(正月初一)---*/ 
nTheDate = (wCurYear - 1921) * 365 + (wCurYear - 1921) / 4 + wCurDay + wMonthAdd 
[wCurMonth - 1] - 38; 
if((!(wCurYear % 4)) && (wCurMonth > 2)) 
nTheDate = nTheDate + 1; 

/*--计算农历天干、地支、月、日---*/ 
nIsEnd = 0; 
m = 0; 
while(nIsEnd != 1) 

if(wNongliData[m] < 4095) 
k = 11; 
else 
k = 12; 
n = k; 
while(n>=0) 

//获取wNongliData(m)的第n个二进制位的值 
nBit = wNongliData[m]; 
for(i=1;i<n+1;i++) 
nBit = nBit/2; 

nBit = nBit % 2; 

if (nTheDate <= (29 + nBit)) 

nIsEnd = 1; 
break; 

nTheDate = nTheDate - 29 - nBit; 
n = n - 1; 

if(nIsEnd) 
break; 
m = m + 1; 

wCurYear = 1921 + m; 
wCurMonth = k - n + 1; 
wCurDay = nTheDate; 
if (k == 12) 

if (wCurMonth == wNongliData[m] / 65536 + 1) 
wCurMonth = 1 - wCurMonth; 
else if (wCurMonth > wNongliData[m] / 65536 + 1) 
wCurMonth = wCurMonth - 1; 

/*--生成农历天干、地支、属相 ==> wNongli--*/ 
wsprintf(szShuXiang,"%s",cShuXiang[((wCurYear - 4) % 60) % 12]); 
wsprintf(szNongli,"%s(%s%s)年",szShuXiang,cTianGan[((wCurYear - 4) % 60) % 
10],cDiZhi[((wCurYear - 4) % 60) % 12]); 

/*--生成农历月、日 ==> wNongliDay--*/ 
if (wCurMonth < 1) 
wsprintf(szNongliDay,"闰%s",cMonName[-1 * wCurMonth]); 
else 
strcpy(szNongliDay,cMonName[wCurMonth]); 

strcat(szNongliDay,"月"); 
strcat(szNongliDay,cDayName[wCurDay]); 
return strcat(szNongli,szNongliDay); 

Tags:单片机,农历转换函数,程序  
责任编辑:admin
请文明参与讨论,禁止漫骂攻击,不要恶意评论、违禁词语。 昵称:
1分 2分 3分 4分 5分

还可以输入 200 个字
[ 查看全部 ] 网友评论
关于我们 - 联系我们 - 广告服务 - 友情链接 - 网站地图 - 版权声明 - 在线帮助 - 文章列表
返回顶部
刷新页面
下到页底
晶体管查询