//顯示當前日期的陰陽曆  Edit By R.W. (2004年12月24日 星期五)
/*<script language="javascript">document.write(GetLunarDay(2004,12,24));</script>
========原理說明：===================
http://search.csdn.net/Expert/topic/974/974567.xml?temp=.8316614
首先，保存公歷農曆之間的轉換信息:以任意一年作為起點，把從這一年起若干年(依需要而定)的農曆信息保存起來。
要保存一年的信息，只要兩個信息就夠了:
1)農曆每個月的大小;2)今年是否有閏月，閏幾月以及閏月的大小。

用一個整數來保存這些信息就足夠了。
具體的方法是:用一位來表示一個月的大小，大月記為1，小月記為0，這樣就用掉12位(無閏月)或13位(有閏月)，再用高四位來表示閏月的月份，沒有閏月記為0。

※-----例----:
2000年的信息數據是0xc96，化成二進制就是110010010110B，表示的含義是:1、2、5、8、10、11月大，其餘月份小。
2001年的農曆信息數據是0x1a95(因為閏月，所以有13位)，具體的就是1、2、4、5、8、10、12月大，
其餘月份小(0x1a95=1101010010101B)，4月的後面那一個0表示的是閏4月小，接著的那個1表示5月大。

這樣就可以用一個數組來保存這些信息。在這裡用數組CalendarDate[]來保存這些信息。

※具體算法:
1。計算處所求時間到起始年正月初一的天數。
2。從起始年份開始，減去每一月的天數，一直到剩餘的天數沒有下一個多為止。此時，CalendarDate[]的下標到了多少，就是減去了多少年，用起始年份加上這個下標就可以得到農曆年份，然後看減去了幾個月。如果本年不閏月或者閏月還在後面，就可以直接得到農曆月份，如果在閏月份數後面一個月，則這個月就是閏月，如果在閏月的後面，則要減去1才能得到月份數。剩餘的天數就是農曆日，農曆時用(公歷時+1)/2就可以簡單的得到了。

*/
var Today = new Date();
var tY = Today.getFullYear();
var tM = Today.getMonth()+1;
var tD = Today.getDate();
var tW = Today.getDay();

var CalendarData=new Array(100);
var madd=new Array(12);
var tgString="甲乙丙丁戊己庚辛壬癸";
var dzString="子丑寅卯辰巳午未申酉戌亥";
var numString="一二三四五六七八九十";
var monString="正二三四五六七八九十冬臘";
var weekString="日一二三四五六";
var sx="鼠牛虎兔龍蛇馬羊猴雞狗豬";
var cYear,cMonth,cDay,TheDate;

function init()
{
  CalendarData = new Array(
                  0xA4B,0x5164B,0x6A5,0x6D4,0x415B5,0x2B6,0x957,0x2092F,0x497,0x60C96,    // 1921-1930
                  0xD4A,0xEA5,0x50DA9,0x5AD,0x2B6,0x3126E, 0x92E,0x7192D,0xC95,0xD4A,     // 1931-1940
                  0x61B4A,0xB55,0x56A,0x4155B, 0x25D,0x92D,0x2192B,0xA95,0x71695,0x6CA,   // 1941-1950
                  0xB55,0x50AB5,0x4DA,0xA5B,0x30A57,0x52B,0x8152A,0xE95,0x6AA,0x615AA,    // 1951-1960
                  0xAB5,0x4B6,0x414AE,0xA57,0x526,0x31D26,0xD95,0x70B55,0x56A,0x96D,      // 1961-1970
                  0x5095D,0x4AD,0xA4D,0x41A4D,0xD25,0x81AA5, 0xB54,0xB6A,0x612DA,0x95B,   // 1971-1980
                  0x49B,0x41497,0xA4B,0xA164B, 0x6A5,0x6D4,0x615B4,0xAB6,0x957,0x5092F,   // 1981-1990
                  0x497,0x64B, 0x30D4A,0xEA5,0x80D65,0x5AC,0xAB6,0x5126D,0x92E,0xC96,     // 1991-2000
                  0x41A95,0xD4A,0xDA5,0x20B55,0x56A,0x7155B,0x25D,0x92D,0x5192B,0xA95,    // 2001-2010
                  0xB4A,0x416AA,0xAD5,0x90AB5,0x4BA,0xA5B, 0x60A57,0x52B,0xA93,0x40E95);  // 2011-2020
          madd[0]=0;madd[1]=31;madd[2]=59;madd[3]=90;
          madd[4]=120;madd[5]=151;madd[6]=181;madd[7]=212;
          madd[8]=243;madd[9]=273;madd[10]=304;madd[11]=334;
 }

function GetBit(m,n) {  return (m>>n)&1; }

function e2c()
{

  TheDate= (arguments.length!=3) ? new Date() : new Date(arguments[0],arguments[1],arguments[2]);
  var total,m,n,k;
  var isEnd=false;
  var tmp=TheDate.getYear();
  if (tmp<1900)  { tmp+=1900;}
  total=(tmp-1921)*365+Math.floor((tmp-1921)/4)+madd[TheDate.getMonth()]+TheDate.getDate()-38;
  if (TheDate.getYear()%4==0&&TheDate.getMonth()>1) { total++;}

  for(m=0;;m++)
  {
    k=(CalendarData[m]<0xfff)?11:12;
    for(n=k;n>=0;n--)
    {
      if(total<=29+GetBit(CalendarData[m],n))
      {
        isEnd=true; break;
      }
      total=total-29-GetBit(CalendarData[m],n);
    }
    if(isEnd) break;
  }

  cYear=1921 + m; cMonth=k-n+1; cDay=total;
  if(k==12)
   {
    if(cMonth==Math.floor(CalendarData[m]/0x10000)+1) { cMonth=1-cMonth; }
    if(cMonth>Math.floor(CalendarData[m]/0x10000)+1)  { cMonth--; }
   }
}

function GetcDateString()
{ var tmp="";
  tmp+=tgString.charAt((cYear-4)%10);   //年干	//	Debug By Varmus,At 2009/01/06
  tmp+=dzString.charAt((cYear-4)%12);   //年支	//	Debug By Varmus,At 2009/01/06
  tmp+="(";
  tmp+=sx.charAt((cYear-4)%12);	//	Debug By Varmus,At 2009/01/06
  tmp+=")年 ";

  if(cMonth<1) { tmp+="(閏)"; tmp+=monString.charAt(-cMonth-1); } else {tmp+=monString.charAt(cMonth-1);}
  tmp+="月";
  tmp+=(cDay<11)?"初":((cDay<20)?"十":((cDay<30)?"廿":"三十")); /*卅*/
  if (cDay%10!=0||cDay==10) { tmp+=numString.charAt((cDay-1)%10); }
  return tmp+"日";
}

init();
function GetLunarDay(solarYear,solarMonth,solarDay)
{
        if (solarYear<1921 || solarYear>2020)
        {
          return ""; //年份不在1921-2020範圍，無法獲得。
        }
        else
        {
          solarMonth = (parseInt(solarMonth)>0) ? (solarMonth-1) : 11;
          e2c(solarYear,solarMonth,solarDay); return GetcDateString();
        }
}

function GetToday()
{
	return (tY-1911)+"年"+tM+"月"+tD+"日("+weekString.charAt(tW)+")";
}

function showLC()
{
	return GetToday()+" 農曆: "+GetLunarDay(tY,tM,tD);
}