“易语言.飞扬”公历转农历源码，作者ganjun3000

ganjun3000：网上找的c++源码,转换为EF。

完整源码请到论坛下载：http://bbs.dywt.com.cn/dispbbs.asp?boardID=148&ID=147498&page=1

以下是部分核心代码：

公开 类 万年历
{
//====================================================================
公开 静态 整数 取农历年天数(整数 农历年份)//取某农历年份的总天数
{
整数 i, sum = 348;
for(i=0x8000; i>0x8; i>>=1)
{
sum += 选择(农历信息[农历年份-1900] & i, 1, 0);
}
返回(sum+取农历闰月天数(农历年份));
}
//====================================================================
公开 静态 整数 取农历闰月天数(整数 农历年份)//取某农历年份闰月的天数
{
if(取农历闰月(农历年份)!=0)
返回 选择(农历信息[农历年份-1900] & 0x10000, 30, 29);
else
返回 0;
}
//====================================================================
公开 静态 整数 取农历闰月(整数 农历年份)// 取某农历年份闰哪个月 1-12 , 没闰传回 0
{
返回 农历信息[农历年份-1900] & 0xf;
}
//====================================================================
公开 静态 整数 取农历月天数(整数 农历年份,整数 农历月份)//取某农历年份的某月的总天数
{
返回 选择( 农历信息[农历年份-1900] & (0x10000>>农历月份), 30, 29);
}
//====================================================================
公开 静态 日期 取农历日期(日期 公历日期)// 把公历日期转换为农历日期
{
整数 offset;
整数 i, leap=0, temp=0;
日期 返回日期 = new 日期();

offset=取相差天数(公历日期)-30;

for(i=1900; i<2050 && offset>0; i++)
{
temp = 取农历年天数(i);
offset -= temp;
}

if(offset<0)
{
offset += temp;
i--;
}

返回日期.年 = i;

leap = 取农历闰月(i);
bool isLeap = 假;

for(i=1; i<13 && offset>0; i++)
{
if(leap>0 && i==(leap+1) && isLeap==假)
{
i--;
isLeap = 真;
temp = 取农历闰月天数(返回日期.年);
}
else
{
temp = 取农历月天数(返回日期.年, i);
}
if(isLeap==真 && i==(leap+1))
{
isLeap = 假;
}
offset -= temp;
}
if(offset==0 && leap>0 && i==leap+1)
{
if(isLeap)
{
isLeap = 假;
}
else
{
isLeap = 真;
i--;
}
}
if(offset<=0)
{
offset += temp;
i--;
}
返回日期.月 = i;
返回日期.日 = offset ;
返回日期.是否闰月=isLeap;
返回 返回日期;

}
//====================================================================
公开 静态 文本 取农历文本(日期 农历日期 )// 取某农历日期的表示文本
{
文本 农历文本, 农历日文本,属象文本;
常量 文本[] 天干 = {"甲","乙","丙","丁","戊","己","庚","辛","壬","癸"}; /*天干名称*/
常量 文本[] 地支 = {"子","丑","寅","卯","辰","巳","午", "未","申","酉","戌","亥"}; /*地支名称*/
常量 文本[] 属象 = {"鼠","牛","虎","兔","龙","蛇","马","羊","猴","鸡","狗","猪"}; /*属相名称*/
常量 文本[] 农历日名 = { "*","初一","初二","初三","初四","初五", /*农历日期名*/
"初六","初七","初八","初九","初十",
"十一","十二","十三","十四","十五",
"十六","十七","十八","十九","二十",
"廿一","廿二","廿三","廿四","廿五",
"廿六","廿七","廿八","廿九","三十"};
常量 文本[] 农历月名 = {"*","正","二","三","四","五","六", "七","八","九","十","十一","腊"};

/*--生成农历天干、地支、属相 ==> wNongli--*/
int 属象索引 = ((农历日期.年 - 4) % 60) % 12;
if ( 属象索引 < 0 || 属象索引 >= 属象.长度 )
{
返回 "";
}
属象文本 = 属象[属象索引];

int 天干索引 = ((农历日期.年 - 4) % 60) % 10;
if ( 天干索引 < 0 || 天干索引 >= 天干.长度 )
{
返回 "";
}
int 地支索引 = ((农历日期.年 - 4) % 60) % 12;
if ( 地支索引 < 0 || 地支索引 >= 地支.长度 )
{
返回 "";
}
农历文本 = 属象文本 + "(" + 天干[天干索引] + 地支[地支索引] + ")年";

/*--生成农历月、日 ==> wNongliDay--*/
if ( 农历日期.月 < 0 || 农历日期.月 >= 农历月名.长度 )
{
返回 "";
}

if (农历日期.是否闰月)
{
农历日文本 = "闰" + 农历月名[农历日期.月];
}
else
{
农历日文本 = 农历月名[农历日期.月];
}
农历日文本 += "月";

if ( 农历日期.日 < 0 || 农历日期.日 >= 农历日名.长度 )
{
返回 "";
}

农历日文本 += 农历日名[农历日期.日];

农历文本 += 农历日文本;

返回 农历文本;

}

//====================================================================
公开 静态 文本 取星期(日期 公历日期)//取某公历日期是星期几
{
常量 文本[] 星期名 = {"星期日","星期一","星期二","星期三","星期四","星期五","星期六"};

整数 年 = 公历日期.年;
整数 月 = 公历日期.月;
整数 日 = 公历日期.日;

if(月==1||月==2)
{
月+=12;
年--;
}
返回 星期名[(日+1+2*月+3*(月+1)/5+年+年/4-年/100+年/400)%7];
}
//====================================================================
公开 静态 整数 取月天数(整数 公历年份,整数 公历月份)//取某公历年份的某月的天数
{
if(公历月份==2)//2月
{
返回 选择((公历年份%4 == 0) && (公历年份%100 != 0) || (公历年份%400 == 0), 29, 28);
}
else
{
返回(公历月天数[公历月份-1]);
}
}

//====================================================================
静态 整数 取相差天数(日期 公历日期)//取某日与1900年相差的天数
{
整数 天数;

天数=365*公历日期.年+(公历日期.年-1)/4-(公历日期.年-1)/100+(公历日期.年-1)/400-
(365*1900+(1900-1)/4-(1900-1)/100+(1900-1)/400);

for(int i=0;i<公历日期.月-1;i++)
{
天数+=公历月天数[i];
}
天数+=公历日期.日;
if((公历日期.年%4==0&&公历日期.年%100!=0)||公历日期.年%400==0)
{
if(公历日期.月>2)
{
天数++;
}
}
返回 天数;
}
//====================================================================
静态 整数 选择(逻辑 n,整数 n1, 整数 n2)
{
if(n)
返回(n1);
else
返回(n2);
}
静态 整数 选择(整数 n,整数 n1, 整数 n2)
{
返回 选择( n!=0, n1, n2 );
}

//====================================================================

静态 整数[] 农历信息 = { 0x04bd8,0x04ae0,0x0a570,0x054d5,0x0d260,0x0d950,0x16554,0x056a0,0x09ad0,0x055d2,
0x04ae0,0x0a5b6,0x0a4d0,0x0d250,0x1d255,0x0b540,0x0d6a0,0x0ada2,0x095b0,0x14977,
0x04970,0x0a4b0,0x0b4b5,0x06a50,0x06d40,0x1ab54,0x02b60,0x09570,0x052f2,0x04970,
0x06566,0x0d4a0,0x0ea50,0x06e95,0x05ad0,0x02b60,0x186e3,0x092e0,0x1c8d7,0x0c950,
0x0d4a0,0x1d8a6,0x0b550,0x056a0,0x1a5b4,0x025d0,0x092d0,0x0d2b2,0x0a950,0x0b557,
0x06ca0,0x0b550,0x15355,0x04da0,0x0a5d0,0x14573,0x052d0,0x0a9a8,0x0e950,0x06aa0,
0x0aea6,0x0ab50,0x04b60,0x0aae4,0x0a570,0x05260,0x0f263,0x0d950,0x05b57,0x056a0,
0x096d0,0x04dd5,0x04ad0,0x0a4d0,0x0d4d4,0x0d250,0x0d558,0x0b540,0x0b5a0,0x195a6,
0x095b0,0x049b0,0x0a974,0x0a4b0,0x0b27a,0x06a50,0x06d40,0x0af46,0x0ab60,0x09570,
0x04af5,0x04970,0x064b0,0x074a3,0x0ea50,0x06b58,0x055c0,0x0ab60,0x096d5,0x092e0,
0x0c960,0x0d954,0x0d4a0,0x0da50,0x07552,0x056a0,0x0abb7,0x025d0,0x092d0,0x0cab5,
0x0a950,0x0b4a0,0x0baa4,0x0ad50,0x055d9,0x04ba0,0x0a5b0,0x15176,0x052b0,0x0a930,
0x07954,0x06aa0,0x0ad50,0x05b52,0x04b60,0x0a6e6,0x0a4e0,0x0d260,0x0ea65,0x0d530,
0x05aa0,0x076a3,0x096d0,0x04bd7,0x04ad0,0x0a4d0,0x1d0b6,0x0d250,0x0d520,0x0dd45,
0x0b5a0,0x056d0,0x055b2,0x049b0,0x0a577,0x0a4b0,0x0aa50,0x1b255,0x06d20,0x0ada0 };
静态 整数[] 公历月天数 = {31,28,31,30,31,30,31,31,30,31,30,31};

}