公历，阴历转换

static  inline  void  ValidCtrCheck(ThsDivineCalendar  * )
{
new ThsDivineCalendar(NULL);
}
// ---------------------------------------------------------------------------
__fastcall ThsDivineCalendar::ThsDivineCalendar(TComponent *  Owner)
: TComponent(Owner)
{
int tmpData[]={ 0xA4B,0x5164B,0x6A5,0x6D4,0x415B5,0x2B6,0x957,0x2092F,
0x497,0x60C96,0xD4A,0xEA5,0x50DA9,0x5AD,0x2B6,0x3126E,
0x92E,0x7192D,0xC95,0xD4A,0x61B4A,0xB55,0x56A,0x4155B,
0x25D,0x92D,0x2192B,0xA95,0x71695,0x6CA,0xB55,0x50AB5,
0x4DA,0xA5B,0x30A57,0x52B,0x8152A,0xE95,0x6AA,0x615AA,
0xAB5,0x4B6,0x414AE,0xA57,0x526,0x31D26,0xD95,0x70B55,
0x56A,0x96D,0x5095D,0x4AD,0xA4D,0x41A4D,0xD25,0x81AA5,
0xB54,0xB6A,0x612DA,0x95B,0x49B,0x41497,0xA4B,0xA164B,
0x6A5,0x6D4,0x615B4,0xAB6,0x957,0x5092F,0x497,0x64B,
0x30D4A,0xEA5,0x80D65,0x5AC,0xAB6,0x5126D,0x92E,0xC96,
0x41A95,0xD4A,0xDA5,0x20B55,0x56A,0x7155B,0x25D,0x92D,
0x5192B,0xA95,0xB4A,0x416AA,0xAD5,0x90AB5,0x4BA,0xA5B,
0x60A57,0x52B,0xA93,0x40E95};
int tmpAdd[] ={ 0,31,59,90,120,151,181,212,243,273,304,334};
register int i;
for(i=0;i<ALLYEARS;i++)
ChineseCalendarData[i]=tmpData[i];
for(i=0;i<12;i++)
madd[i]=tmpAdd[i];
/**//*for(i=0;i<ALLYEARS*24;i++)
JqData[i]=jqtmp[i];*/
num="一二三四五六七八九十";
str2="正二三四五六七八九十冬腊";
if(!ComponentState.Contains(csDesigning))
SetDate(Now());
}
// ---------------------------------------------------------------------------
namespace  Hsdivinecalendar
{
void __fastcall PACKAGE Register()
{
TComponentClass classes[1] = {__classid(ThsDivineCalendar)};
RegisterComponents("Divine", classes, 0);
}
}
// ---------------------------------------------------------------------------
int  __fastcall ThsDivineCalendar::GetBit( int  m, int  n)
{
if(n<0||n>8*sizeof(int)-1)
return -1;
else
return (m>>n)&1;
}
// ---------------------------------------------------------------------------
void  __fastcall ThsDivineCalendar::e2c()
{
int total,m,n,k;
bool isEnd=false;
total=(int)TheDate-7709; //到1921-2-8的天数
for(m=0;;m++)
{
k=(ChineseCalendarData[m]<0xfff)?11:12;
for(n=k;n>=0;n--)
{
if(total<=29+GetBit(ChineseCalendarData[m],n))
{
isEnd=true;
break;
}
total=total-29-GetBit(ChineseCalendarData[m],n);
}
if(isEnd)break;
}
FcYear=1921 + m;
FcMonth=k-n+1;
FcDay=total;
unsigned short int t1,t2,t3,t4;
TheDate.DecodeTime(&t1,&t2,&t3,&t4);
FcTime=(t1+1)>>1;
if(k==12)
{
if(FcMonth==ChineseCalendarData[m]/0x10000+1)
FcMonth=1-FcMonth;
if(FcMonth>ChineseCalendarData[m]/0x10000+1)
FcMonth--;
}
}
// ----------------------------------------------------------------------------
void  __fastcall ThsDivineCalendar::c2e()
{
int i,k,m,p,y[]={0,0};
//本年以前的大月小月数
for(i=0;i<FcYear-1921;i++)
{
k=(ChineseCalendarData[i]<0xfff)?11:12;
for(m=0;m<=k;m++)
y[GetBit(ChineseCalendarData[i],m)]++;
}
//本年不是闰年
if(ChineseCalendarData[i]<0xfff)
for(m=13-FcMonth;m<=11;m++)
y[GetBit(ChineseCalendarData[i],m)]++;
else
{
k=ChineseCalendarData[i]/0x10000;
p=(FcMonth>k)?13-FcMonth:14-FcMonth;
if(k+FcMonth==0)p=13+FcMonth;
for(m=p;m<=12;m++)
y[GetBit(ChineseCalendarData[i],m)]++;
}
TheDate=7709+y[0]*29+y[1]*30+FcDay+FcTime*2.0/24;
}
// ----------------------------------------------------------------------------
void  __fastcall ThsDivineCalendar::SetBy( int  y, int  m, int  d, int  t)
{
if(y<1921||y>1920+ALLYEARS)return;
TheDate=7710+(y-1921)*365+(y-1921)/4+d+madd[m-1]-39+t/24.0;
if(y%4==0&&m>2)TheDate++;
e2c();
GetYMD();
}
// ----------------------------------------------------------------------------
void  __fastcall ThsDivineCalendar::SetByc( int  y, int  m, int  d, int  t)
{
if(y<1921||y>1920+ALLYEARS)return;
FcYear=y;FcMonth=m;FcDay=d,FcTime=t;
c2e();
GetYMD();
}
// ----------------------------------------------------------------------------
void  __fastcall ThsDivineCalendar::GetYMD()
{
unsigned short y,m,d,t;
TheDate.DecodeDate(&y,&m,&d);
FYear=y;
FMonth=m;
FDay=d;
TheDate.DecodeTime(&t,&y,&m,&d);
FTime=t;
}
// ----------------------------------------------------------------------------
AnsiString __fastcall ThsDivineCalendar::GetDateString()
{
AnsiString tmp=FYear;
tmp+="年";tmp+=FMonth;
tmp+="月";tmp+=FDay;tmp+="日";
tmp+=FTime;tmp+="时";
return tmp;
}
// ----------------------------------------------------------------------------
AnsiString __fastcall ThsDivineCalendar::GetcDateString()
{
AnsiString tmp;
tmp=tg.SubString((((FcYear-4)%60)%10)*2+1,2); //年干
tmp+=dz.SubString((((FcYear-4)%60)%12)*2+1,2); //年支
tmp+="年";
if(FcMonth<1)
{
tmp+="闰";
tmp+=str2.SubString(-2*(FcMonth)-1,2);
}
else
tmp+=str2.SubString(2*(FcMonth)-1,2);
tmp+="月";
tmp+=(FcDay<11)?"初":((FcDay<20)?"十":((FcDay<30)?"廿":"卅"));
if(FcDay%10)
tmp+=num.SubString(((FcDay-1)%10)*2+1,2);
tmp+="日";
if(FcTime==12)
tmp+="夜子";
else
tmp+=dz.SubString(FcTime*2+1,2);
tmp+="时";
return tmp;
}
// ----------------------------------------------------------------------------
void  __fastcall ThsDivineCalendar::SetDate(TDateTime ADate)
{
if((int)ADate<7710||(int)ADate>7710+ALLYEARS*365+ALLYEARS/4)return;
TheDate=ADate;
e2c();
GetYMD();
}
// ----------------------------------------------------------------------------
// 上一个节
TDateTime __fastcall ThsDivineCalendar::GetLastJie()
{
int i;
for(i=ALLYEARS*24-2;;i-=2)
if((double)TheDate>=JqData[i])
return JqData[i];
}
// --------------------------------------------------------------------
// 下一个节
TDateTime __fastcall ThsDivineCalendar::GetNextJie()
{
int i;
for(i=0;;i+=2)
if((double)TheDate<=JqData[i])
return JqData[i];
}
// -----------------------------------------------------------------------
// 上一个气
TDateTime __fastcall ThsDivineCalendar::GetLastQi()
{
int i;
for(i=ALLYEARS*24-1;;i-=2)
if((double)TheDate>=JqData[i])
return JqData[i];
}
// -------------------------------------------------
// 下一个中气
TDateTime __fastcall ThsDivineCalendar::GetNextQi()
{
int i;
for(i=1;;i+=2)
if((double)TheDate<=JqData[i])
return JqData[i];
}