公历转农历（A 版本）
Tags：版本wCurMo nth wCur Year if 农历nTheDate n Bit con st 公历转农历（C 版本）PHP开发环境的选择、建立及使用[8]编写自定义任务，轻松扩展An t （2）代联接的自定义右键菜单面试中如何体现身价希特勒生日（4月20日）突破生命中那条线怎么用ado打开带密码的access数据库算法复杂度攻击激烈讨论在
Visual 中使用自定义插公历转农历（C版本）版本wCurMonth wCurYear if 农历nTheDate nBit const
前段时间做软件写了个公历转农历的函数,目前公开给大家参考,有兴趣的朋
友可以在此基础上进一步完善其功能
/* ----------- 农历转换函数------ */
char *GetDayOf（PSYSTEMTIME pSt）
{
/* 天干名称*/
const char *cTianGan[] = {"甲","乙","丙","丁","戊","己","庚","辛","壬","癸"};
/* 地支名称*/
const char *cDiZhi[] = {"子","丑","寅","卯","辰","巳","午",
I! 未","申","酉","戌","亥"};
/* 属相名称*/
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,13 18,204070,3477,461653,1386,2413 ,330077,1197,2637,268877,3365,531109,29 00,2922,398042,2395 ,1179,267415,2635,661067,1701,1748,398772,2742,2391 ,330031 ,1175,1611,200010,3749,527717,1452,2742,332397,2350,3222 ,26894 9,3402,3493,133973,1386,464219,605,2349,334123,2709 ,2890,267946,2773,5 92565,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]); wspri ntf(szNo ngli,"%s(%s%s年",szShuXia ng,cTia nGan [((wCurYear 10],cDiZhi[((wCurYear - 4) % 60) % 12]);
/*-- 生成农历月、日==> wNongliDay--*/
if (wCurMonth < 1)
wspri ntf(szNo ngliDay,"闰%s",cMo nN ame[-1 * wCurMo nth]);
else
strcpy(szNongliDay,cMonName[wCurMonth]);
strcat(szNongliDay,月");
strcat(szNongliDay,cDayName[wCurDay]);
return strcat(szNongli,szNongliDay);
}-4)%60)%。