公历日期与农历日期的相互转换程序

公历日期与农历日期的相互转换程序

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

// 公历日期与农历日期的相互转换程序

// 公元1800年1月25日～2101年1月28日

// 请在VC++6.0平台运行

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

#include;

#include;

#include;

#include;

#include;

#include;

struct date{ short year,month,day; }

d1={ 1800,1,25 },//农历1800正月初一(星期六)

d2={ 2101,1,28 };//农历2100腊月廿九(未使用) struct lunarYear //农历年

{ char run;

//闰月月份(0表示无闰月)

char ZL[13];

//农历i月初一对应公历i月ZL[i]日(广义)

} Year[2101

//但是ZL[i]的最高位1表示大月0表示小月

-1800]={4};//农历1800年闰四月

#define leap(y) !(y%(y%100?4:400)) //公元闰年宏定义

unsigned char

days[]={ 0,31,28,31,30,31,30,31,31,30,31,30,31 }, b[]= //农历1800-2100年大月(30天)小月(29天)闰月数据(hex string)

{

"adca5aa92bb525bba25bb493b64a5ba9add496ea8a6 ed14eea4a6da5b6"

"545baa4bba45bba82b75a5b654abaa55d526eda4aed 495da526daa5655"

"abb295ba5257aa4b75a95655abaa56ea4a5da92ed96 5d594adaa56692b"

"75a5ba64977493b6ca5a69add496da925dd24dda495 da9add45a6a4b75"

"4937692775a5b6545baa2dd526dda49dd495ba525ba a5555ab6a937652"

"57ea4a75a95655abaa55da4a5da92bd925db54abaa5 6592b75a5ae6497"

"ec92aed25659abb495da925dd24bba495ba9add4566 a4b75492fe9266d"

"a5aed4566a2db525bba49bb493ba525baa55d5aa6a9 36ed24eea4a6da9"

"36d5aaaa55b64a5ba92b75a5ba54abaa55d52a6da5a ed495ec926daa56"

"55abb495ba525bb24b76495769abb455da4a6dc92ee 925dda4add4566a"

"4bb5a5baa4977493b652576a4db5a6da926dd24dda4 a5da92dd5aa6a55"

"b54937692775a5b654abaa55d52a5da5add495ba925 daa55d5aa6c95b6"

"5257724b76c95659abac55da4a5da92dd925bda4abb 4555a4b6da5b6649"

"7f492aed2566a4bb5a5da925dd24bba495ba92bb5aa 6a53754937e9266d"

"a5aed4966a55b52a5ba5abb495ba525baa55d5aa6a9 5aed256ea4a6ec94"

"ed9aa6a55b64a5ba92bb945bb64abb455d64a6da5ae e416eda26ed25502"

};

short rs[22]={ //农历1800-2100年111个闰月所形成的110个间距的数据

32198,25072,32079,29168,31350,3554,29118,28494,25 464,28215,7608,

27766,3975,30902,28494,21489,28214,7132,27766,397 5,25078,28039};

char f(short m,short x)//1月x日相当于m月f日

{

for(short i=1;i;>;=3;

Year[(ir-r)/12].run=(ir-r)%12;

}

lunarYear*p=&Year[0];r=p->;run;

for(t=0,i=0;b[i]!='\0';i+=2,t++)

//hex string

#define VAL(h)

(h;12+!!r){ M=1;hao-=365+leap(y);y++;r=(++p)->;ru n; }

t=b[i/8];t>;>;=i%8; days[2]=28+leap(y);

if(r==0||M;ZL[M]=f(M,hao);if(t%2)p->;ZL[M]|=0x80;}

else

if(M>;1+r){p->;ZL[M-1]=f(M-1,hao);if(t%2)p->;ZL[M

-1]|=0x80;}

else

{p->;ZL[0]=f(r,hao);if(t%2)p->;ZL[0]|=0x80;}

hao+=29+t%2;

}

}

date getSolar(date D)//农历→公历

{

short im,m;im=m=D.month;

if(im;ZL[im])-1+D.day;

days[2]=28+leap(d.year);

while(d.day>;days[m])

{ d.day-=days[m];m=m%12+1;if(m==1)d.year++; }

d.month=m;return d;

}

date getLunar(date d)//公历→农历{

lunarYear*p=&Year[d.year-1800];

days[2]=28+leap(d.year);

short m=d.month;

d.day-=(p->;ZL[m]&0x7f)-1;

while(d.day;run;

else if(m==1){ m=12;d.year--;p--; }

else if(p->;run==m-1)m=0;

else m--;

d.day+=29+(p->;ZL[m];run;

d.month=m;return d;

}

long total(date a)//公元以来的天数

{

days[2]=28+leap(a.year);long C,m,x=a.year-1; for(C=a.day,m=1;m;2100)ok=-1;

else if(m;12)ok=0;

else{days[2]=28+leap(y);

if(t;days[m])ok=0;}

if(total(d);2100)return -1;

if(T;30)return 0;//排除明显的非法"日

"号

if(M==0||M>;12)return 0;//排除明显的非法"月"号

lunarYear* p=&Year[Y-1800];

if((M;run?29+(p->;ZL[0];ZL[M];ZL[i];'4');

if(cho=='4')

{

gotoxy(10,23);

cout;'9')break;

Y=Y*10+(tmp-'0');

}

}

if(Y;2100)Y=2008;

}

system("cls");

if(cho;>;dt.year>;>;c>;>;dt.month>;>;c>;>;dt.day; //c为分隔符

o=ok(dt);if(o==-1)goto

Menu; }while(o;>;DT.year>;>;c>;>;DT.month>;>;c>;>

;DT.day;//c为分隔符

o=OK(DT);if(o==-1)goto

Menu; }while(o;1?xq[m]:"正

");run!=m)continue;

cout<<"闰"<

<<(BIG(0)?"大":"小

")<<"

";

if(++counter%4==0)cout<<"\n\n

";

}

getch();goto Menu;

}

else if(cho=='0')system("cls"); return 0;

}