中易网

在asp中怎么把阳历转换成阴历

答案:1  悬赏:40  
解决时间 2021-02-18 23:55
在asp中要判断一个用户的生日是不是今天
而生日大多数都是阴历生日
怎么才能用asp把今天的日期转换成阴历
注意:(是用asp,不是js)
最佳答案
<html>
<body>

<SCRIPT language=JScript Runat=Server>


var lunarInfo=new Array(
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);

var solarMonth=new Array(31,28,31,30,31,30,31,31,30,31,30,31);
var Gan=new Array("甲","乙","丙","丁","戊","己","庚","辛","壬","癸");
var Zhi=new Array("子","丑","寅","卯","辰","巳","午","未","申","酉","戌","亥");
var Animals=new Array("鼠","牛","虎","兔","龙","蛇","马","羊","猴","鸡","狗","猪");
var solarTerm = new Array("小寒","大寒","立春","雨水","惊蛰","春分","清明","谷雨","立夏","小满","芒种","夏至","小暑","大暑","立秋","处暑","白露","秋分","寒露","霜降","立冬","小雪","大雪","冬至");
var sTermInfo = new Array(0,21208,42467,63836,85337,107014,128867,150921,173149,195551,218072,240693,263343,285989,308563,331033,353350,375494,397447,419210,440795,462224,483532,504758);
var nStr1 = new Array('日','一','二','三','四','五','六','七','八','九','十');
var nStr2 = new Array('初','十','廿','卅',' ');
var monthName = new Array("JAN","FEB","MAR","APR","MAY","JUN","JUL","AUG","SEP","OCT","NOV","DEC");

//国历节日 *表示放假日
var sFtv = new Array(
"0101*元旦",
"0214 情人节",
"0303 我生日",
"0308 妇女节",
"0312 植树节",
"0315 消费者权益日",
"0317 St. Patrick's",
"0401 愚人节",
"0501 劳动节",
"0504 青年节",
"0512 护士节",
"0512 茵生日",
"0601 儿童节",
"0614 Flag Day",
"0701 建党节 香港回归纪念",
"0703 炎黄在线诞辰",
"0718 托普诞辰",
"0801 建军节",
"0808 父亲节",
"0909 毛泽东逝世纪念",
"0910 教师节",
"0928 孔子诞辰",
"1001*国庆节",
"1006 老人节",
"1024 联合国日",
"1111 Veteran's / Remembrance Day",
"1112 孙中山诞辰纪念",
"1220 澳门回归纪念",
"1225 Christmas Day",
"1226 毛泽东诞辰纪念");

//农历节日 *表示放假日
var lFtv = new Array(
"0101*春节",
"0115 元宵节",
"0505 端午节",
"0707 七夕情人节",
"0715 中元节",
"0815 中秋节",
"0909 重阳节",
"1208 腊八节",
"1224 小年",
"0100*除夕");

//某月的第几个星期几
var wFtv = new Array(
"0131 Martin Luther King Day",
"0231 President's Day",
"0520 母亲节",
"0530 Armed Forces Day",
"0531 Victoria Day",
"0716 合作节",
"0730 被奴役国家周",
"0811 Civic Holiday",
"0911 Labor Holiday",
"1021 Columbus Day",
"1144 Thanksgiving");



//====================================== 传回农历 y年的总天数
function lYearDays(y) {
var i, sum = 348 ;
for(i=0x8000; i>0x8; i>>=1) sum += (lunarInfo[y-1900] & i)? 1: 0 ;
return(sum+leapDays(y)) ;
}

//====================================== 传回农历 y年闰月的天数
function leapDays(y) {
if(leapMonth(y)) return((lunarInfo[y-1900] & 0x10000)? 30: 29)
else return(0)
}

//====================================== 传回农历 y年闰哪个月 1-12 , 没闰传回 0
function leapMonth(y) {
return(lunarInfo[y-1900] & 0xf)
}

//====================================== 传回农历 y年m月的总天数
function monthDays(y,m) {
return( (lunarInfo[y-1900] & (0x10000>>m))? 30: 29 )
}

//==============================传回阳历 y年某m+1月的天数
function solarDays(y,m) {
if(m==1){
return(((y%4 == 0) && (y%100 != 0) || (y%400 == 0))? 29: 28);
}else{
return(solarMonth[m]);
}
}
//============================== 传入 offset 传回干支, 0=甲子
function cyclical(num) {
return(Gan[num%10]+Zhi[num%12]);
}
//====================================== 算出农历, 传入日期物件, 传回农历日期物件
// 该物件属性有 .year .month .day .isLeap .yearCyl .dayCyl .monCyl
function Lunar(objDate) {
var i, leap=0, temp=0;
var baseDate = new Date(1900,0,31);
var offset = (objDate - baseDate)/86400000;

this.dayCyl = offset + 40;
this.monCyl = 14;

for(i=1900; i<2050 && offset>0; i++) {
temp = lYearDays(i);
offset -= temp;
this.monCyl += 12;
}

if(offset<0) {
offset += temp;
i--;
this.monCyl -= 12;
}

this.year = i;
this.yearCyl = i-1864;

leap = leapMonth(i); //闰哪个月
this.isLeap = false;

for(i=1; i<13 && offset>0; i++) {
//闰月
if(leap>0 && i==(leap+1) && this.isLeap==false){
--i;
this.isLeap = true;
temp = leapDays(this.year);
}else{
temp = monthDays(this.year, i);
}

//解除闰月
if(this.isLeap==true && i==(leap+1)) this.isLeap = false;

offset -= temp;
if(this.isLeap == false) this.monCyl ++;
}

if(offset==0 && leap>0 && i==leap+1){
if(this.isLeap){
this.isLeap = false;
}else{
this.isLeap = true;
--i;
--this.monCyl;
}
}

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

this.month = i;
this.day = offset + 1;
}

</SCRIPT>
<SCRIPT language=JScript Runat=Server>
//测试用代码
var ttDate = new Date();
var tt1 = new Lunar(ttDate);
Response.Write('阳历日期:' + ttDate + '<br>转为农历:<hr>');
Response.Write('年:' + tt1.year + '<br>');
Response.Write('月:' + tt1.month + '<br>');
Response.Write('日:' + tt1.day + '<br>');
Response.Write('干支位移:' + tt1.yearCyl + '<br>');
Response.Write('干支位移' + tt1.yearCyl + '的干支:' + cyclical(tt1.yearCyl) + ' ' + Animals[(tt1.year - 4)%12] + '<br>');
Response.Write('农历' + tt1.year + '年的总天数:' + lYearDays(tt1.year) + '<br>');
Response.Write('农历' + tt1.year + '闰月的天数:' + leapDays(tt1.year) + '<br>');
Response.Write('农历' + tt1.year + '年闰哪个月数:' + leapMonth(tt1.year) + '<br>');
</SCRIPT>

</body>
</html>
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
发动机换了六配套之后还烧机油咋办
空心的繁体字怎么写
上洲地址有知道的么?有点事想过去
无委会关于wifi信号的规定
直挂云帆济沧海是李白那首诗里的诗句?
渭州府火锅怎么去啊,有知道地址的么
急!网站移交问题
硬说的近义词是什么
八年级物理
小学五年级奥林匹克数学题解答
写出下面算式的意义 84×3/10( ) 84÷0
胡哥副食批发地址有知道的么?有点事想过去
哈飞民意能改氙气大灯吗?怎么改得多少钱??
厨房和卫生间挨着但水不是一根管下来的,是分
谁有百度贴吧账号
推荐资讯
威海大荣精工电子有限公司怎么去啊,有知道地
商铺出租税率是多少? 四川
我每天在家洗衣做饭打扫卫生,带孩子家里的活
长沙车辆异地违章处理一般怎么处理
常熟市新亚矿山机械厂怎么去啊,有知道地址的
找书 高干言情 女主和男二是床伴关系 男主是
我去,难道就没有一个不坑钱的驾校吗?
大理州民族干部学校我想知道这个在什么地方
迎江苑南门地址在什么地方,想过去办事
中华骏捷fsv发电机皮带型号多少
二项电表箱里亮着灯有危险吗以前不亮,就今天
黄永胜好色的真实情况
手机登qq时,显示手机磁盘不足,清理后重新登
刺客的套装怎么选啊?