吵吵   2011-03-19  阅读:3,158

从网上下载的农历算法,然后自己改了一下,终于能用了,在vc6.0中运算没出什么错。发现网上的代码一大把,真正能用的少啊,还是要自己写的比较好用的。

www.chaochaoblog.com


SYSTEMTIME GetLunarDay(PSYSTEMTIME pSt)
{
SYSTEMTIME tiBack={0};

/*公历每月前面的天数*/
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;
//
/*---取当前公历年、月、日---*/
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 wNongliData[m] / 65536 + 1)
wCurMonth = wCurMonth - 1;
}
tiBack.wDay=wCurDay;
tiBack.wMonth=wCurMonth;
tiBack.wYear=wCurYear;
return tiBack;

}

吵吵微信朋友圈,请付款实名加入:

吵吵 吵吵

一条回应:“vc 农历算法”

  1. Mahala说道:

    Boy that rellay helps me the heck out.

发表评论

电子邮件地址不会被公开。 必填项已用*标注