分享
 
 
 

用JScript实现公历到农历的日期转换

王朝html/css/js·作者佚名  2008-05-31
窄屏简体版  字體: |||超大  

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;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有