登录模块加载中...
会员投稿 投稿指南 今天是:
打印本页 | 关闭窗口 | 双击滚屏 您的位置首页>>网页制作学习园地>>HTML教程>>Jav基础>>实用:公历转农历 代码
实用:公历转农历 代码
来源:建站学 ‖ 作者: ‖ 点击: ‖ 时间:11-01-07 11:17:20 ‖ 【 】‖ 我要投稿
用查表法实现公历到农历日期的转换,这里给出了实用的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 2 3 > >> >>|
加入收藏:  加入收藏夹  | 发送给好友:  发送给好友
责任编辑:admin
相关文章列表
请文明参与讨论,禁止漫骂攻击。  
网友评论