求公历转农历的函数

<!--#include File="clsDay.asp"-->
<%
Dim objChinaDay 
Dim sDay, sWeekDay, sChinaDay, sChinaYear,sChinaAni,sAtDay,sChinaMonth,sChinaDate
Set objChinaDay = New  ChinaDay
Call objChinaDay.Action("2005-11-24",sDay,sWeekDay,sChinaYear,sChinaDay,sChinaAni,sAtDay,sChinaMonth,sChinaDate)
Set objChinaDay = Nothing
'Response.Write sDay&"<BR>"
'Response.Write sWeekDay&"<BR>"
'Response.Write sChinaYear&"<BR>"
'Response.Write sChinaDay&"<BR>"
'Response.Write sChinaAni&"<BR>"
%>
<html>
<head>
　　<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
　　<title>农历日历</title>
　　<style>
　　　　.itm {font-family: 宋体; font-size: 14px;}
　　　　.chn {font-family: 宋体; font-size: 12px}
　　　　.chnred {font-family: 宋体; color: #FF0000; font-size: 12px}
　　　　.chnblue {font-family: 宋体; color: #0000FF; font-size: 12px}
　　</style>
</head><body bgcolor="#FFFFFF">
<!--显示站点日历-->
<table border="1" cellspacing="1" width="110" bgcolor="#EAEAEA" bordercolor="#FFFFFF"
bordercolorlight="#000000">
 <tr> <td><center><table>
  <tr>
    <td class="chnblue" align="center" valign="middle"><%=sDay%>
</td>
  </tr>
  <tr>
    <td class="chnred" align="center" valign="middle"><%=sWeekDay%>
</td>
  </tr>
  <tr>
    <td class="chnblue" align="center" valign="middle"><%=sChinaYear & "(" & sChinaAni & ")"%>
</td>
  </tr>
  <tr>
    <td class="chnred" align="center" valign="middle"><%=sChinaDay%>
</td>
  </tr>
  <tr>
    <td class="chnred" align="center" valign="middle"><%=sAtDay%>
</td>
  </tr>
  </td>
  </tr>
  </table>
</table>
</body>
</html>

解决方案 »

  1.   

    clsDay.asp这个太大了发布上来，
      

  2.   

    http://community.csdn.net/Expert/topic/4187/4187778.xml?temp=.9410211
      

  3.   

    ....谢谢你们。但我这是一个java的系统，总不能include 一个asp进来工程吧。:)
      

  4.   

    谢谢web开发四人组
    但这编http://community.csdn.net/Expert/topic/4187/4187778.xml?temp=.9410211
    文章我已经看过，无法显示农历的年份 如:1982
      

  5.   

    <SCRIPT RUNAT=SERVER LANGUAGE="JavaScript">
    /*****************************************************************************
                                       日期资料
    *****************************************************************************/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");/*****************************************************************************
                                          日期计算
    *****************************************************************************///====================================== 传回农历 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
    }//==============================传回国历 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])
    }//====================== 中文日期
    function cDay(d){
       var s;   switch (d) {
          case 10:
             s = '初十'; break;
          case 20:
             s = '二十'; break;
             break;
          case 30:
             s = '三十'; break;
             break;
          default :
             s = nStr2[Math.floor(d/10)];
             s += nStr1[d%10];
       }
       return(s);
    }
    //====================== 中文月份
    function cMonth(m){
       var s;   switch (m) {
          case 1:
             s = '正月'; break;
          case 2:
             s = '二月'; break;
          case 3:
             s = '三月'; break;
          case 4:
             s = '四月'; break;
          case 5:
             s = '五月'; break;
          case 6:
             s = '六月'; break;
          case 7:
             s = '七月'; break;
          case 8:
             s = '八月'; break;
          case 9:
             s = '九月'; break;
          case 10:
             s = '十月'; break;
          case 11:
             s = '十一月'; break;
          case 12:
             s = '十二月'; break;
          default :
             break;
       }
       return(s);
    }function GetLunarDay(YearStr,MonthStr,DayStr)
    {
     var sDObj=new Date(parseInt(YearStr),parseInt(MonthStr)-1,parseInt(DayStr))
     var lDObj=new Lunar(sDObj)     //农历
     return cMonth(lDObj.month)+cDay(lDObj.day);
    }
    </Script>