bhw98（原作）

本文介绍了用查表法实现的公历到农历日期转换的方法，给出了实用的jscript脚本。可接受的公历日期范围是2001-1-1至2050-12-31。

// 数组lunardaysofmonth存入农历2001年到2050年每年中的月天数信息
// 农历每月只能是29或30天，一年用12(或13)个二进制位表示，从高到低，对应位为1表示30天，否则29天
var lunardaysofmonth = new array
(
??0xd4a8, 0xd4a0, 0xda50, 0x5aa8, 0x56a0, 0xaad8, 0x25d0, 0x92d0, 0xc958, 0xa950, // 2001-2010
??0xb4a0, 0xb550, 0xb550, 0x55a8, 0x4ba0, 0xa5b0, 0x52b8, 0x52b0, 0xa930, 0x74a8, // 2011-2020
??0x6aa0, 0xad50, 0x4da8, 0x4b60, 0x9570, 0xa4e0, 0xd260, 0xe930, 0xd530, 0x5aa0, // 2021-2030
??0x6b50, 0x96d0, 0x4ae8, 0x4ad0, 0xa4d0, 0xd258, 0xd250, 0xd520, 0xdaa0, 0xb5a0, // 2031-2040
??0x56d0, 0x4ad8, 0x49b0, 0xa4b8, 0xa4b0, 0xaa50, 0xb528, 0x6d20, 0xada0, 0x55b0?// 2041-2050
);

// 数组lunarleapyear存放农历2001年到2050年闰月的月份，如没有则为0，从高到低，每字节存两年
var lunarleapyear = new array
(
??0x40, 0x02, 0x07, 0x00, 0x50, // 2001-2010
??0x04, 0x09, 0x00, 0x60, 0x04, // 2011-2020
??0x00, 0x20, 0x60, 0x05, 0x00, // 2021-2030
??0x30, 0xb0, 0x06, 0x00, 0x50, // 2031-2040
??0x02, 0x07, 0x00, 0x50, 0x03?// 2041-2050
);

// 返回农历ilunaryear年的闰月月份，如没有则返回0
function getleapmonth(ilunaryear)
{
??var leap = lunarleapyear[(ilunaryear - 2001) >> 1];
??return (((ilunaryear - 2001) & 1) == 0) ? (leap >> 4) : (leap & 0x0f);
}

// 返回农历ilunaryer年ilunarmonth月的天数，结果是一个长整数
// 如果ilunarmonth不是闰月， 高字为0，低字为该月的天数
// 如果ilunarmonth是闰月， 高字为后一个月的天数，低字为前一个月的天数
function lunarmonthdays(ilunaryear, ilunarmonth)
{
??var high;
??var low;
??var bit;

??high = 0;
??low = 29;
??bit = 16 - ilunarmonth;
??if ((ilunarmonth > getleapmonth(ilunaryear)) && (getleapmonth(ilunaryear) > 0))?bit--;
??if ((lunardaysofmonth[ilunaryear - 2001] & (1 << bit)) > 0)?low++;
??if (ilunarmonth == getleapmonth(ilunaryear))
??{
????high = ((lunardaysofmonth[ilunaryear - 2001] & (1 << (bit-1))) > 0) ??30 : 29;
??}

??return low + (high << 16);
}

// 返回农历ilunaryear年的总天数
function lunaryeardays(ilunaryear)
{
??var days;
??var tmp;

??days = 0;
??for (var i=1; i <= 12; i++)
??{
????tmp = lunarmonthdays(ilunaryear, i);
????days = days + ((tmp >> 16) & 0xffff); //取高位
????days = days + (tmp & 0xffff); //取低位
??}

??return days;
}

// 将农历ilunaryear年格式化成天干地支记年法表示的字符串
function formatlunaryear(ilunaryear)
{
??var sztext1 = new string("甲乙丙丁戊己庚辛壬癸");
??var sztext2 = new string("子丑寅卯辰巳午未申酉戌亥");
??var stryear;
?
??stryear = sztext1.substr((ilunaryear - 4) % 10, 1);
??stryear = stryear + sztext2.substr((ilunaryear - 4) % 12, 1);

??return stryear + "年";
}

// 将农历ilunarmonth月格式化成农历表示的字符串
function formatlunarmonth(ilunarmonth)
{
??var sztext = new string("正二三四五六七八九十");
??var strmonth;

??if (ilunarmonth <= 10)
??{
????strmonth = sztext.substr(ilunarmonth - 1, 1);
??}
??else if (ilunarmonth == 11) strmonth = "十一";
??else strmonth = "十二";

??return strmonth + "月";
}

// 将农历ilunarday日格式化成农历表示的字符串
function formatlunarday(ilunarday)
{
??var sztext1 = new string("初十廿三");
??var sztext2 = new string("一二三四五六七八九十");
??var strday;
??if ((ilunarday != 20) && (ilunarday != 30))
??{
????strday = sztext1.substr((ilunarday - 1) / 10, 1) + sztext2.substr((ilunarday - 1) % 10, 1);
??}
??else if (ilunarday != 20)
??{
????strday = sztext1.substr(ilunarday / 10, 1) + "十";
??}
??else
??{
????strday = "二十";
??}
?
??return strday;
}

// 将公历日期转换为农历日期，返回农历表示的字符串
function getlunardatestring(solardate)
{
??var tmp;
??var ilunaryear;
??var ilunarmonth;
??var ilunarday;
??var leap = false;
??var minmilli = 1000 * 60;
??var hrmilli = minmilli * 60;
??var dymilli = hrmilli * 24;
?
??// 从2001年1月1日算起，给定的公历日期已经过去的天数
??// 11323是1970年1月1日到2001年1月1日之间的天数，因为date是从1970年1月1日作为起点的
??var ispandays = math.round(solardate.gettime() / dymilli) - 11323;

??// 公历2001年1月24日为农历2001年正月初一，差23天
??if (ispandays < 23)
??{
????iyear = 2000;
????ilunarmonth = 12;
????ilunarday = ispandays + 7;
??}
??else
??{
????// 从农历2001年正月初一算起
????ispandays = ispandays - 23;
????ilunaryear = 2001;
????ilunarmonth = 1;
????ilunarday = 1;
?
????// 计算农历年
????tmp = lunaryeardays(ilunaryear);
????while (ispandays >= tmp)
????{
??????ispandays -= tmp;
??????ilunaryear++;
??????tmp = lunaryeardays(ilunaryear);
????}

????// 计算农历月
????tmp = lunarmonthdays(ilunaryear, ilunarmonth) & 0xffff; //取低字
????while (ispandays >= tmp)
????{
??????ispandays -= tmp;
??????if (ilunarmonth == getleapmonth(ilunaryear))?// 该年该月闰月
??????{
????????tmp = lunarmonthdays(ilunaryear, ilunarmonth) >> 16; //取高字
????????if (ispandays < tmp)
????????{
??????????leap = (tmp > 0) ? true : false;?// 闰月的后个月？
??????????break;
????????}
????????ispandays = ispandays - tmp;
??????}
?
??????ilunarmonth++;
??????tmp = lunarmonthdays(ilunaryear,ilunarmonth) & 0xffff; //取低字
????}
?
????// 计算农历日
????ilunarday += ispandays;
??}
?
??return formatlunaryear(ilunaryear) + (leap ? "闰" : "") + formatlunarmonth(ilunarmonth) + formatlunarday(ilunarday);
}

调用方法举例如下：

var today= new date();? // 今天是2004-3-5
var str = getlunardatestring(today);

结果是 “甲申年二月十五”。

再举两个例子：

var date1 = new date(2008, 9, 1);?? // 2008-10-1
var date2 = new date(2050, 4, 18);??// 2050-5-18
var str1 = getlunardatestring(date1);
var str2 = getlunardatestring(date2);

结果分别是 “戊子年九月初三” 和 “庚午年闰三月廿八”。

注意在date中，月的范围是0-11。