亚洲av色香蕉一区二区三区,十四以下岁毛片带血a级,亚洲 校园 欧美 国产 另类,亚洲av日韩av一区谷露,色欲av无码一区二区三区

  • 相關軟件
    >用JScript實現(xiàn)公歷到農歷的日期轉換　創(chuàng)建者：webmaster　更新時間：2005-05-16 22:54

    本文介紹了用查表法實現(xiàn)的公歷到農歷日期轉換的方法，給出了實用的JScript腳本?？山邮艿墓珰v日期范圍是2001-1-1至2050-12-31。

    // 數(shù)組LunarDaysOfMonth存入農歷2001年到2050年每年中的月天數(shù)信息
    // 農歷每月只能是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
    );

    // 數(shù)組LunarLeapYear存放農歷2001年到2050年閏月的月份，如沒有則為0，從高到低，每字節(jié)存兩年
    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月的天數(shù)，結果是一個長整數(shù)
    // 如果iLunarMonth不是閏月， 高字為0，低字為該月的天數(shù)
    // 如果iLunarMonth是閏月， 高字為后一個月的天數(shù)，低字為前一個月的天數(shù)
    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年的總天數(shù)
    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;

      if (iLunarMonth <= 10)
      {
        strMonth = szText.substr(iLunarMonth - 1, 1);
      }
      else if (iLunarMonth == 11) strMonth = "十一";
      else strMonth = "十二";

      return strMonth + "月";
    }

    // 將農歷iLunarDay日格式化成農歷表示的字符串
    function FormatLunarDay(iLunarDay)
    {
      var szText1 = new String("初十廿三");
      var szText2 = new String("一二三四五六七八九十");
      var strDay;
      if ((iLunarDay != 20) && (iLunarDay != 30))
      {
        strDay = szText1.substr((iLunarDay - 1) / 10, 1) + szText2.substr((iLunarDay - 1) % 10, 1);
      }
      else if (iLunarDay != 20)
      {
        strDay = szText1.substr(iLunarDay / 10, 1) + "十";
      }
      else
      {
        strDay = "二十";
      }

      return strDay;
    }

    // 將公歷日期轉換為農歷日期，返回農歷表示的字符串
    function GetLunarDateString(SolarDate)
    {
      var tmp;
      var iLunarYear;
      var iLunarMonth;
      var iLunarDay;
      var Leap = false;
      var MinMilli = 1000 * 60;
      var HrMilli = MinMilli * 60;
      var DyMilli = HrMilli * 24;

      // 從2001年1月1日算起，給定的公歷日期已經過去的天數(shù)
      // 11323是1970年1月1日到2001年1月1日之間的天數(shù)，因為Date是從1970年1月1日作為起點的
      var iSpanDays = Math.round(SolarDate.getTime() / DyMilli) - 11323;

      // 公歷2001年1月24日為農歷2001年正月初一，差23天
      if (iSpanDays < 23)
      {
        iYear = 2000;
        iLunarMonth = 12;
        iLunarDay = iSpanDays + 7;
      }
      else
      {
        // 從農歷2001年正月初一算起
        iSpanDays = iSpanDays - 23;
        iLunarYear = 2001;
        iLunarMonth = 1;
        iLunarDay = 1;

        // 計算農歷年
        tmp = LunarYearDays(iLunarYear);
        while (iSpanDays >= tmp)
        {
            iSpanDays -= tmp;
            iLunarYear++;
            tmp = LunarYearDays(iLunarYear);
        }

        // 計算農歷月
        tmp = LunarMonthDays(iLunarYear, iLunarMonth) & 0xffff; //取低字
        while (iSpanDays >= tmp)
        {
            iSpanDays -= tmp;
            if (iLunarMonth == GetLeapMonth(iLunarYear)) // 該年該月閏月
            {
              tmp = LunarMonthDays(iLunarYear, iLunarMonth) >> 16; //取高字
              if (iSpanDays < tmp)
              {
                Leap = (tmp > 0) ? true : false; // 閏月的后個月？
                break;
              }
              iSpanDays = iSpanDays - tmp;
            }

            iLunarMonth++;
            tmp = LunarMonthDays(iLunarYear,iLunarMonth) & 0xffff; //取低字
        }

        // 計算農歷日
        iLunarDay += iSpanDays;
      }

      return FormatLunarYear(iLunarYear) + (Leap ? "閏" : "") + FormatLunarMonth(iLunarMonth) + FormatLunarDay(iLunarDay);
    }

    調用方法舉例如下：

    var today= new Date();   // 今天是2004-3-5
    var str = GetLunarDateString(today);

    結果是 “甲申年二月十五”。

    再舉兩個例子：

    var date1 = new Date(2008, 9, 1);   // 2008-10-1
    var date2 = new Date(2050, 4, 18);   // 2050-5-18
    var str1 = GetLunarDateString(date1);
    var str2 = GetLunarDateString(date2);

    結果分別是 “戊子年九月初三” 和 “庚午年閏三月廿八”。

    注意在Date中，月的范圍是0-11。    相關文章
    本頁查看次數(shù):