//**********************************// 公历日期与农历日期的相互转换程序 // 公元1800年1月25日～2101年1月28日// 请在VC++6.0平台运行 //**********************************#include<stdio.h>#include<conio.h>#include<math.h>#include<stdlib.h>#include<windows.h>#include<iostream.h>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){ "adca5aa92bb525bba25bb493b64a5ba9add496ea8a6ed14eea4a6da5b6" "545baa4bba45bba82b75a5b654abaa55d526eda4aed495da526daa5655" "abb295ba5257aa4b75a95655abaa56ea4a5da92ed965d594adaa56692b" "75a5ba64977493b6ca5a69add496da925dd24dda495da9add45a6a4b75" "4937692775a5b6545baa2dd526dda49dd495ba525baa5555ab6a937652" "57ea4a75a95655abaa55da4a5da92bd925db54abaa56592b75a5ae6497" "ec92aed25659abb495da925dd24bba495ba9add4566a4b75492fe9266d" "a5aed4566a2db525bba49bb493ba525baa55d5aa6a936ed24eea4a6da9" "36d5aaaa55b64a5ba92b75a5ba54abaa55d52a6da5aed495ec926daa56" "55abb495ba525bb24b76495769abb455da4a6dc92ee925dda4add4566a" "4bb5a5baa4977493b652576a4db5a6da926dd24dda4a5da92dd5aa6a55" "b54937692775a5b654abaa55d52a5da5add495ba925daa55d5aa6c95b6" "5257724b76c95659abac55da4a5da92dd925bda4abb4555a4b6da5b6649" "7f492aed2566a4bb5a5da925dd24bba495ba92bb5aa6a53754937e9266d" "a5aed4966a55b52a5ba5abb495ba525baa55d5aa6a95aed256ea4a6ec94" "ed9aa6a55b64a5ba92bb945bb64abb455d64a6da5aee416eda26ed25502"};short rs[22]={ //农历1800-2100年111个闰月所形成的110个间距的数据32198,25072,32079,29168,31350,3554,29118,28494,25464,28215,7608,27766,3975,30902,28494,21489,28214,7132,27766,3975,25078,28039};char f(short m,short x)//1月x日相当于m月f日{ for(short i=1;i<m;i++)x-=days[i]; return char(x); }void initial(void)//初始化Year结构数组{ short i,t,ir=Year[0].run; for(short r=1;r<=110;r++) { if(r%5==1)t=rs[r/5]; ir+=29+t%8;t>>=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<'a'?(h-'0'):(h-'a'+10)) //hex string b[t]=16*VAL(b[i])+VAL(b[i+1]); //hex string short M,y=1800,hao=25;//1800年1月25日为正月初一 for(M=1,i=0;i<3723;i++,M++) { if(M>12+!!r){ M=1;hao-=365+leap(y);y++;r=(++p)->run; } t=b[i/8];t>>=i%8; days[2]=28+leap(y); if(r==0||M<=r){p->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<0){m=-im;im=0;} lunarYear*p=&Year[D.year-1800]; date d;d.year=D.year; d.day=(0x7f&p->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<1){ if(m==0)m=p->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]<0); } if(m==0)m=-p->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<a.month;m++)C+=days[m]; return 365*x+x/4-x/100+x/400+C;}short ok(date d){ short y=d.year,m=d.month,t=d.day,ok=1; if(y<1800||y>2100)ok=-1; else if(m<1||m>12)ok=0; else{days[2]=28+leap(y); if(t<1||t>days[m])ok=0;} if(total(d)<total(d1))ok=-1; return ok;}short OK(date D)//若D.month取负值则表示农历闰月{ short Y=D.year,M=D.month,T=D.day; if(Y<1800||Y>2100)return -1; if(T<=0||T>30)return 0;//排除明显的非法"日"号 if(M==0||M>12)return 0;//排除明显的非法"月"号
