高分求阳历转阴历的函数(想要多少分可在商量,另开贴给分)

<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<style type="text/css">
</style>
<title></title>
</head>
<body topmargin="0" leftmargin="0">
<script language="javascript">

</script>
<div align="center"><center><table border="1" cellpadding="0" cellspacing="0" width="0%" bordercolorlight="#000000"
bordercolor="#FFFFFF" height="0%" bgcolor="#C0C0C0">
  <tr>
    <td width="100%"><script language="javascript">CAL();</script></td>
  </tr>
</table>
</center></div>
</body>
</html>

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

http://dotnet.aspx.cc/ShowDetail.aspx?id=AD2E10B2-0020-4C73-82D7-873164688E2D
http://www.csdn.net/Develop/article/25/25263.shtm
http://www.aspx8.cn/show.aspx?id=21&cid=5
http://www.chinaaspx.com/article/go.asp?id=296&typeid=3
dotnet.aspx.cc
上提供的代码运行后有异常
//====================================== 传回农历 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 )
}//====================================== 算出农历, 传入日期物件, 传回农历日期物件
//                                       该物件属性有 .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
}
感谢 zhpsam109(孤寂无边)提供的论坛dotnet.aspx.cc不过那段代码还有个小问题，现已调通。真是好论坛