抱雪
你到过我的主页吗？在我的主页上有这样一个地方：
    你注意到了吗，在显示时间的地方除了显示公历之外，还显示了农历：农历辛已（蛇）年二月廿三日未时，比一般的网站上只显示公历就酷多了（怎么像自吹自擂？别的网站千万别去告我违反了广告法）。这是怎么做的呢？其实很简单，只要一个小小的PHP或者JavaScript程序就可以了。

       你不要着急地问我要PHP或JS的程序，最关键的是要了解算法，如果你明白了转换的道理，就可以达到圣人所说的：举一而三反焉，到时不管是用PHP、DELPHI、JS还是JSP、VB，你都可以很快地写公历农历相互转换的程序来出来。我记得有高人曾经说过，编程语言只是工具，数据结构才是最重要的，此言诚不虚也。

       闲话少说，下面我就来介绍一下具体的算法。

首先是要保存公农历之间的转换信息：以任意一年作为起点，把从这一年起若干年（若干是多少？就看你的需要了）的农历信息保存起来（在我的VCL中，是以1921年作为起点）。回想一下，我们平常是怎样来转换公历农历的呢？是查万年历，万年历有每一天的公历农历，直接一查就可以了。那么我们可不可以也这样做呢？当然可以，但是，这样做就要收录每一天的信息，工作量就会很大，所以我们要简化这些信息。怎么简化呢？要保存一年的信息其实只要两个信息就可以了：1、农历每个月的大小；2、今年是否有闰月，闰几月以及闰月的大小。用一个整数来保存这些信息就足够了。具体的方法是：用一位来表示一个月的大小，大月记为1，小月记为0，这样就用掉12位（无闰月）或13位（有闰月），再用高4位来表示闰月的月份，没有闰月记为0。比如说，2000年的信息数据是是0xC96，化成二进制就是110010010110B，表示的含义是指1、2、5、8、10、11月大，其余月小；2001年的农历信息数据是0x41A95，其中4表示今年闰四月，月份大小信息就是0x1A95（因为闰月，所以有13位），具体的就是1、2、4、5、8、10、12月大，其余月份小（0x1A95=1101010010101B），要注意在四月的后面那一个0表示的是闰四月小，接着的那个1表示5月大。这样就可以用一个数组来保存这些信息。在我的VCL程序中是用ChineseCalendarData[]这个数组来保存这些信息。

为了方便对算法的理解，首先来看看我的VCL组件hsDivineCalendar的头文件

//---------------------------------------------------------------------------

  

#ifndef hsDivineCalendarH

#define hsDivineCalendarH

#define ALLYEARS 100        //定义转换的年数：100年

//---------------------------------------------------------------------------

#include <SysUtils.hpp>

#include <Controls.hpp>

#include <Classes.hpp>

#include <Forms.hpp>

//---------------------------------------------------------------------------

class PACKAGE ThsDivineCalendar : public TComponent

{

private:

   int ChineseCalendarData[ALLYEARS];       //农历数据

   AnsiString str2,num;         //要用的字符串

   void __fastcall c2e();              //农历到公历

   void __fastcall e2c();              //公历到农历

   TDateTime TheDate;                  //日期

   int FYear,FMonth,FDay,FTime;          //公历年月日时

   int FcYear,FcMonth,FcDay,FcTime;      //农历年月日时

   AnsiString __fastcall GetDateString();     //获取日期字符串

   AnsiString __fastcall GetcDateString();    //获取农历日期字符串

   int __fastcall GetBit(int m,int n);    //获取1bit

   void __fastcall GetYMD();              //获取年月日

   void __fastcall SetDate(TDateTime);             //用一个TDateTime类型的变量转换

   //-----------分别修改公历的年月日时-------------------------------------

   void __fastcall SetYear(int AYear){SetBy(AYear,FMonth,FDay,FTime);};

   void __fastcall SetMonth(int AMonth){SetBy(FYear,AMonth,FDay,FTime);};

   void __fastcall SetDay(int ADay){SetBy(FYear,FMonth,ADay,FTime);};  

   void __fastcall SetTime(int ATime){SetBy(FYear,FMonth,FDay,ATime);};

   //-----------分别修改农历的年月日时---------------------------------------

   void __fastcall SetcYear(int AcYear){SetByc(AcYear,FcMonth,FcDay,FcTime);};

   void __fastcall SetcMonth(int AcMonth){SetByc(FcYear,AcMonth,FcDay,FcTime);};

   void __fastcall SetcDay(int AcDay){SetByc(FcYear,FcMonth,AcDay,FcTime);};

   void __fastcall SetcTime(int AcTime){SetByc(FcYear,FcMonth,FcDay,AcTime);};

   TDateTime __fastcall GetLastJie(); //取得上一个节

   TDateTime __fastcall GetNextJie();       //取得下一个节

   TDateTime __fastcall GetLastQi();  //取得上一个中气

   TDateTime __fastcall GetNextQi(); //取得下一个中气

   int __fastcall GetDayOfWeek();      //取得一周的第几天

   AnsiString __fastcall GetWeekString();   //返回星期几的字符串

protected:

public:

   void __fastcall SetBy(int,int,int,int);    //用公历设置

   void __fastcall SetByc(int,int,int,int);   //用农历设置

   __fastcall ThsDivineCalendar(TComponent* Owner);

   //属性：年月日时

   __property int Year={read=FYear,write=SetYear};

   __property int Month={read=FMonth,write=SetMonth};

   __property int Day={read=FDay,write=SetDay};

   __property int Time={read=FTime,write=SetTime};

   //属性：农历年月日时

   __property int cYear={read=FcYear,write=SetcYear};

   __property int cMonth={read=FcMonth,write=SetcMonth};

   __property int cDay={read=FcDay,write=SetcDay};

   __property int cTime={read=FcTime,write=SetcTime};

   //公历农历日期字符串

   __property AnsiString DateString={read=GetDateString};

   __property AnsiString cDateString={read=GetcDateString};

   //其他属性

   __property TDateTime DateTime={read=TheDate,write=SetDate};

   __property TDateTime LastJie  = { read=GetLastJie };

   __property TDateTime NextJie  = { read=GetNextJie };

   __property TDateTime LastQi  = { read=GetLastQi };

   __property TDateTime NextQi  = { read=GetNextQi };

   __property int DayOfWeek  = { read=GetDayOfWeek };

   __property AnsiString WeekString  = { read=GetWeekString };

__published:

};

//---------------------------------------------------------------------------

#endif

下面介绍转换的具体算法。

一、公历转换成农历

1、计算出所求时间到起始年正月初一的天数。

2、从起始年份开始，减去每一月的天数，一直到剩余天数没有下一个月多为止

此时，ChineseCalendarData[]的下标到了多少，就是减去了多少年，用起始年份加上这个下标就可以得到农历年份；然后看减去了几个月，如果本年不闰月或者闰月还在后面，就可以直接得到农历月份，如果在闰月月份数后面一个月，则这个月就是闰月，如果在闰月的后面，则要减去1才能得到月份数；剩余的天数就是农历日；农历时用（公历时+1）/2就可以简单地得到了。具体的代码如下：

//---------------------------------------------------------------------------

void __fastcall ThsDivineCalendar::e2c()

{

        int total,m,n,k;

        bool isEnd=false;    //用以判断是否不够减了

        total=(int)TheDate-7709;     //到1921-2-8（正月初一）的天数

        for(m=0;;m++)

        {

/*判断本年是否闰月，用以确定月份信息的起点

  有闰月有13位（0~12），无12位（0~11）*/

k=(ChineseCalendarData[m]<0xfff)?11:12; for(n=k;n>=0;n--)

                {

                                          //如果不够减

                        if(total<=29+GetBit(ChineseCalendarData[m],n))

{

isEnd=true; //设置标志

break; //退出内层循环

}

/*够减，减去一个月的天数

先减去29天如果月大，则对应的信息位为1，

又减去一天*/

total=total-29-GetBit(ChineseCalendarData[m],n);

}

if(isEnd)break; //如果不够减，退出外层循环

}

FcYear=1921 + m; //农历年=起始年份+下标

FcMonth=k-n+1; //农历月=本年的月份数（k+1）减去已经减去的月份数（n）

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--;

        }

}

//----------------------------------------------------------------------------

二、农历到公历的转换

这个算法比较简单，只要计算所求时候到起始年正月初一的总天数就可以了，要计算总天数，只要统计出本月以前的大月小月书就可以了，然后把这个值赋予TdateTime类型的TheDate就可以用TdateTime的成员函数DecodeDate得到公历的年月日了。具体代码如下：

//----------------------------------------------------------------------------

void __fastcall ThsDivineCalendar::c2e()

{

    int i,k,m,p,y[]={0,0};

       //y[0]：小月、y[1]：大月

    //本年以前的大月小月数

    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)]++;

}

//7709就是1920年腊月三十

TheDate=7709+y[0]*29+y[1]*30+FcDay+FcTime*2.0/24;

}

//----------------------------------------------------------------------------

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;

}

//----------------------------------------------------------------------------

以上就是公历农历相互转换的算法和VCL代码，只要理解了这些算法，你就不难写出其他的程序，我就写了JavaScript和PHP的代码，其实PHP、JS的代码简单得多，只需要有公历到农历的转换就可以了。如果你想要这些代码和完整的VCL源代码，你就说嘛，你不说我怎么知道你想要呢？虽然你很有诚意地看着我……，哈哈，我又中《大话西游》的毒了:=)。其实，这些代码你可以在《电脑爱好者》网站或者我的主页（http：//bcbtop.126.com）的主页下载。
http://hugsnow.myetang.com/source/hugsnow1.zip