<!--

function LoadMap( parm ) { 
    return window.open( '/maps/index.asp' + parm, 'MapWindows', 'toolbar=0,location=0,directories=0,status=1,menuBar=1,scrollBars=1,resizable=1' ); 
} 

function CalConv()
 {
 FIRSTYEAR = 1998;
 LASTYEAR = 2031;

 today = new Date();
 SolarYear = today.getFullYear();
 SolarMonth = today.getMonth() + 1;
 SolarDate = today.getDate();
 Weekday = today.getDay();

 LunarCal = [
  new tagLunarCal( 27,  5, 3, 43, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1 ),
  new tagLunarCal( 46,  0, 4, 48, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1 ), /* 1999 */
  new tagLunarCal( 35,  0, 5, 53, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1 ), /* 2000 */
  new tagLunarCal( 23,  4, 0, 59, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1 ),
  new tagLunarCal( 42,  0, 1,  4, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1 ),
  new tagLunarCal( 31,  0, 2,  9, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0 ),
  new tagLunarCal( 21,  2, 3, 14, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1 ), /* 2004 */
  new tagLunarCal( 39,  0, 5, 20, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1 ),
  new tagLunarCal( 28,  7, 6, 25, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 1 ),
  new tagLunarCal( 48,  0, 0, 30, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 1 ),
  new tagLunarCal( 37,  0, 1, 35, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1 ), /* 2008 */
  new tagLunarCal( 25,  5, 3, 41, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1 ),
  new tagLunarCal( 44,  0, 4, 46, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1 ),
  new tagLunarCal( 33,  0, 5, 51, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1 ),
  new tagLunarCal( 22,  4, 6, 56, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0 ), /* 2012 */
  new tagLunarCal( 40,  0, 1,  2, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0 ),
  new tagLunarCal( 30,  9, 2,  7, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1 ),
  new tagLunarCal( 49,  0, 3, 12, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1 ),
  new tagLunarCal( 38,  0, 4, 17, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0 ), /* 2016 */
  new tagLunarCal( 27,  6, 6, 23, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 1 ),
  new tagLunarCal( 46,  0, 0, 28, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0 ),
  new tagLunarCal( 35,  0, 1, 33, 0, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0 ),
  new tagLunarCal( 24,  4, 2, 38, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1 ), /* 2020 */
  new tagLunarCal( 42,  0, 4, 44, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1 ),
  new tagLunarCal( 31,  0, 5, 49, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0 ),
  new tagLunarCal( 21,  2, 6, 54, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1 ),
  new tagLunarCal( 40,  0, 0, 59, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1 ), /* 2024 */
  new tagLunarCal( 28,  6, 2,  5, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0 ),
  new tagLunarCal( 47,  0, 3, 10, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 1 ),
  new tagLunarCal( 36,  0, 4, 15, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1 ),
  new tagLunarCal( 25,  5, 5, 20, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0 ), /* 2028 */
  new tagLunarCal( 43,  0, 0, 26, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1 ),
  new tagLunarCal( 32,  0, 1, 31, 1, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0 ),
  new tagLunarCal( 22,  3, 2, 36, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0 ) ];


 /* 西曆年每月之日數 */
 SolarCal = [ 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 ];

 /* 西曆年每月之累積日數, 平年與閏年 */
 SolarDays = [
  0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365, 396,
  0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335, 366, 397 ];

 AnimalIdx = ["馬", "羊", "猴", "雞", "狗", "豬", "鼠", "牛", "虎", "兔", "龍", "蛇" ];
 LocationIdx = [ "南", "東", "北", "西" ];

 if ( SolarYear <= FIRSTYEAR || SolarYear > LASTYEAR ) return 1;

 sm = SolarMonth - 1;
 
 if ( sm < 0 || sm > 11 ) return 2;
 
 leap = GetLeap( SolarYear );

 if ( sm == 1 )
  d = leap + 28;
 else
  d = SolarCal[sm];

 if ( SolarDate < 1 || SolarDate > d ) return 3;

 y = SolarYear - FIRSTYEAR;
 acc = SolarDays[ leap*14 + sm ] + SolarDate;
 kc = acc + LunarCal[y].BaseKanChih;
 Kan = kc % 10;
 Chih = kc % 12;
 Location = LocationIdx[kc % 4];
 Age = kc % 60;
 if ( Age < 22 )
  Age = 22 - Age;
 else
  Age = 82 - Age;

 Animal = AnimalIdx[ Chih ];

 if ( acc <= LunarCal[y].BaseDays ) {
  y--;
  LunarYear = SolarYear - 1;
  leap = GetLeap( LunarYear );
  sm += 12;
  acc = SolarDays[leap*14 + sm] + SolarDate;
  }
 else
  LunarYear = SolarYear;
  
 l1 = LunarCal[y].BaseDays;
 for ( i=0; i<13; i++ ) {
  l2 = l1 + LunarCal[y].MonthDays[i] + 29;
  if ( acc <= l2 ) break;
  l1 = l2;
  }

 LunarMonth = i + 1;
 LunarDate = acc - l1;
 im = LunarCal[y].Intercalation;

 if ( im != 0 && LunarMonth > im ) {
  LunarMonth--;
  if ( LunarMonth == im ) LunarMonth = -im;
  }

 if ( LunarMonth > 12 ) LunarMonth -= 12;
     tips = new Array(21)
			/*tips[0] = "<img src=/xwimg/img/A>"//代天巡狩
			tips[1] = "<img src=/xwimg/img/B>"//九龍三公
			tips[2] = "<img src=/xwimg/img/c>"//尹府千歲
			tips[3] = "<img src=/xwimg/img/2008D>"//吳府三王
			tips[4] = "<img src=/xwimg/img/E>"//游天王
			tips[5] = "<img src=/xwimg/img/F>"//白元帥
			tips[6] = "<img src=/xwimg/img/G>"//三太子
			tips[7] = "<img src=/xwimg/img/H>"//虎爺
			tips[8] = "<img src=/xwimg/img/I>"//將軍府
			tips[9] = "<img src=/xwimg/img/J>"//呼喝爺
			tips[10] = "<img src=/xwimg/img/K>"//劉府千歲
			tips[11] = "<img src=/xwimg/img/L>"//
			tips[12] = "<img src=/xwimg/img/M>"//肥王
			tips[13] = "<img src=/xwimg/img/N>"//鳳王爺
			tips[14] = "<img src=/xwimg/img/O>"//彌勒佛
			tips[15] = "<img src=/xwimg/img/P>"//南海金觀音
			tips[16] = "<img src=/xwimg/img/Q>"//十八羅漢
			tips[17] = "<img src=/xwimg/img/R>"//福德正神
			tips[18] = "<img src=/xwimg/img/S>"//註生娘娘
			tips[19] = "<img src=/xwimg/img/20080423011>"//衝水路迎客王
			tips[20] = "<img src=/xwimg/img/DSC000151>"//牌樓*/

			tips[0] = "<img src=/ximages/A>"//代天巡狩
			tips[1] = "<img src=/ximages/B>"//九龍三公
			tips[2] = "<img src=/ximages/2008C>"//尹府千歲
			tips[3] = "<img src=/ximages/2008D>"//吳府三王
			tips[4] = "<img src=/ximages/E>"//游天王
			tips[5] = "<img src=/ximages/F>"//白元帥
			tips[6] = "<img src=/ximages/G>"//三太子
			tips[7] = "<img src=/ximages/H>"//虎爺
			tips[8] = "<img src=/ximages/I>"//將軍府
			tips[9] = "<img src=/ximages/J>"//呼喝爺
			tips[10] = "<img src=/ximages/K>"//劉府千歲
			tips[11] = "<img src=/ximages/L>"//
			tips[12] = "<img src=/ximages/M>"//肥王
			tips[13] = "<img src=/ximages/N>"//鳳王爺
			tips[14] = "<img src=/ximages/O>"//彌勒佛
			tips[15] = "<img src=/ximages/P>"//南海金觀音
			tips[16] = "<img src=/ximages/Q>"//十八羅漢
			tips[17] = "<img src=/ximages/R>"//福德正神
			tips[18] = "<img src=/ximages/S>"//註生娘娘
			tips[19] = "<img src=/ximages/111>"//衝水路迎客王
			tips[20] = "<img src=/ximages/151>"//牌樓
			tips[21] = "<img src=/ximages/DSCN666>"//LOG
			tips[22] = "<img src=/ximages/2008T>"//三太子
			tips[23] = "<img src=/ximages/2007D>"//吳府三王
			tips[24] = "<img src=/ximages/20110109>"//
			tips[25] = "<img src=/ximages/F>"//
			tips[26] = "<img src=/ximages/G>"//
			tips[27] = "<img src=/ximages/H>"//
			tips[28] = "<img src=/ximages/I>"//
			tips[29] = "<img src=/ximages/J>"//
			tips[30] = "<img src=/ximages/A>"//
			tips[31] = "<img src=/ximages/B>"//
			tips[32] = "<img src=/ximages/c>"//
			tips[33] = "<img src=/ximages/2008D>"//
			tips[34] = "<img src=/ximages/E>"//
			tips[35] = "<img src=/ximages/F>"//
			tips[36] = "<img src=/ximages/G>"//
			tips[37] = "<img src=/ximages/H>"//
			tips[38] = "<img src=/ximages/I>"//
			tips[39] = "<img src=/ximages/J>"//
			tips[40] = "<img src=/ximages/A>"//
			tips[41] = "<img src=/ximages/B>"//
			tips[42] = "<img src=/ximages/c>"//
			tips[43] = "<img src=/ximages/2008D>"//
			tips[44] = "<img src=/ximages/E>"//
			tips[45] = "<img src=/ximages/F>"//
			tips[46] = "<img src=/ximages/G>"//
			tips[47] = "<img src=/ximages/H>"//
			tips[48] = "<img src=/ximages/I>"//
			tips[49] = "<img src=/ximages/J>"//
			tips[50] = "<img src=/ximages/A>"//
			tips[51] = "<img src=/ximages/B>"//
			tips[52] = "<img src=/ximages/c>"//
			tips[53] = "<img src=/ximages/2008D>"//
			tips[54] = "<img src=/ximages/E>"//
			tips[55] = "<img src=/ximages/F>"//
			tips[56] = "<img src=/ximages/G>"//
			tips[57] = "<img src=/ximages/H>"//
			tips[58] = "<img src=/ximages/151>"//牌樓
			tips[59] = "<img src=/ximages/111>"//衝水路迎客王
			
			// if ( LunarDate >=24||LunarDate <=30){
			//document.all('block').filters[0].Strength = 20;
			//index = Math.floor(Math.random() * tips.length)
			switch(LunarMonth){
	case 12:
			switch(LunarDate){
			case 24:
			document.write( "<span class=h1><center>12.24 送神","<br>");
			//document.write("<span class=h1><center>因本廟委員因素 造成本網必須關閉一些交章及圖片 本網感到失望 遺憾 感謝您來到本網 ","<br>");
      //document.write("<center>" + tips[58] +  "</center><br>" );
			//document.write("<center>" + tips[21] +  "</center><br>" );
     // break;
			default:
      //document.write("<span class=h1><center>因本廟委員因素 造成本網必須關閉一些交章及圖片 本網感到失望 遺憾 感謝您來到本網 ","<br>");
      			//document.write("<center>" + tips[58] +  "</center><br>" );
			document.write("<center>" + tips[58] +  "</center><br>" );
			};break;
	case 11:
			switch(LunarDate){
			case 9:
			case 8:
			case 7:
			case 6:
			case 5:
			document.write( "<span class=h1><center>11.9 新塭應公廟","<br>");
			document.write("<span class=h1><center>","<br>");
			document.write("<center>" + tips[21] +  "</center><br>" );
      break;
			default:
      //document.write("<span class=h1><center>因本廟委員因素 造成本網必須關閉一些交章及圖片 本網感到失望 遺憾 感謝您來到本網 ","<br>");
      document.write("<center>" + tips[59] +  "</center><br>" );
			};break;
	case 10:
			switch(LunarDate){
			//case 27:
			//document.write( "<span class=h1><center>恭祝九龍三公聖誕","<br>");
			//document.write("<center>" + tips[17] +  "</center><br>" );
      //break;
			//case 26:
			//document.write("<span class=h1><center>恭祝尹府千歲聖誕","<br>");
			//document.write("<center>" + tips[5] +  "</center><br>" );
      //break;
      default:
			document.write("<span class=h1><center>","<br>");
      document.write("<center>" + tips[58] +  "</center><br>" );
			};break;
	case  9:
			switch(LunarDate){
			case 19:
			case 18:
			case 17:
			case 16:
			document.write("<span class=h1><center>","<br>");
			document.write("<span class=h1><center>9.19 恭祝佛祖聖誕","<br>");
			document.write("<span class=h1><center>","<br>");
			//document.write("<center>" + tips[14] +  "</center><br>" );
			//document.write("<center>" + tips[15] +  "</center><br>" );
	break;
			case 15:
			case 14:
			case 13:
			case 12:
			document.write("<span class=h1><center>","<br>");
			document.write("<span class=h1><center>9.15 恭祝吳府千歲聖誕","<br>");
			document.write("<span class=h1><center>","<br>");
			document.write("<center>" + tips[3] +  "</center><br>" );
			document.write("<center>" + tips[23] +  "</center><br>" );
	break;
			case  9:
			case  8:
			case  7:
			case  6:
			document.write("<span class=h1><center>","<br>");
			document.write("<span class=h1><center>9.9 恭祝三太子(太子爺)聖誕","<br>");
			document.write("<span class=h1><center>","<br>");
			document.write("<center>" + tips[22] +  "</center><br>" );
      break;
      default:
      document.write("<span class=h1><center> ","<br>");
      document.write("<center>" + tips[59] +  "</center><br>" );
			};break;
	case  8:
			switch(LunarDate){
			case 15:
			case 14:
			case 13:
			case 12:
			document.write("<span class=h1><center>8.15 恭祝福德正神聖誕","<br>");
			//document.write("<span class=h1><center>因本廟委員因素 造成本網必須關閉一些交章及圖片 本網感到失望 遺憾 感謝您來到本網 ","<br>");
			//document.write("<center>" + tips[17] +  "</center><br>" );
      break;
			case 11:
			case 10:
			case  9:
			case  8:
			document.write("<span class=h1><center>8.11 恭祝劉府千歲聖誕","<br><br><br>");
			//document.write("<span class=h1><center>因本廟委員因素 造成本網必須關閉一些交章及圖片 本網感到失望 遺憾 感謝您來到本網 ","<br>");
			//document.write("<center>" + tips[10] +  "</center><br>" );
      break;
      document.
      document.write("<span class=h1><center>","<br>");
      write("<span class=h1><center>","<br>");
			default:document.write("<center>" + tips[59] +  "</center><br>" );
			};break;
	case  7:
			switch(LunarDate){
			case 27:
			document.write("<span class=h1><center>恭祝九龍三公聖誕","<br>");
			document.write("<center>" + tips[17] +  "</center><br>" );
      break;
			case 26:
			document.write("<span class=h1><center>恭祝尹府千歲聖誕","<br>");
			document.write("<center>" + tips[5] +  "</center><br>" );
      break;  
			default:document.write("<center>" + tips[58] +  "</center><br>" );
			};break;
	case  6:
			switch(LunarDate){
			case  6:
			case  5:
			case  4:
			case  3:
			document.write("<span class=h1><center>6.6 恭祝虎爺聖誕","<br>");
			document.write("<center>" + tips[7] +  "</center><br>" );
      break;
			default:document.write("<center>" + tips[59] +  "</center><br>" );
			};break;
	case  5:
			switch(LunarDate){
			case  5:
			document.write("<span class=h1><center>5.5 端午節","<br>");
			document.write("<center>" + tips[58] +  "</center><br>" );
      break;	
			case  4:
			case  3:
			case  2:
			case  1:
			document.write("<span class=h1><center>5.4 恭祝九龍三公聖誕","<br>");
			document.write("<center>" + tips[1] +  "</center><br>" );
      break;
			default:document.write("<center>" + tips[59] +  "</center><br>" );
			};break;
	case  4:
			switch(LunarDate){
			case 27:
			case 26:
			case 25:
			case 24:
			case 23:
			document.write("<span class=h1><center>4.27 恭祝游天王聖誕","<br>");
			document.write("<center>" + tips[4] +  "</center><br>" );
      break;
			default:document.write("<center>" + tips[59] +  "</center><br>" );
			};break;
	case  3:
			switch(LunarDate){
			case 28:
			document.write("<span class=h1><center>3.28 恭祝尹府千歲聖誕","<br>");
			document.write("<center>" + tips[2] +  "</center><br>" );
      break;
			case 27:
			document.write("<span class=h1><center>3.27 恭祝代天巡狩聖駕","<br>");
			document.write("<center>" + tips[0] +  "</center><br>" );
			document.write("<span class=h1><center>3.28 恭祝尹府千歲聖誕","<br>");
			document.write("<center>" + tips[2] +  "</center><br>" );
	break;
			case 26:
			case 25:
			case 24:
			document.write("<span class=h1><center>3.26 繞境活動","<br>");
			document.write("<center>" +tips[0] +  "</center>" );
			document.write("<span class=h1><center>代天巡狩","<br>");
			document.write("<center>" +tips[1] +  "</center>" );
			document.write("<span class=h1><center>主神九龍正公","<br>");
			document.write("<center>" +tips[2] +  "</center>" );
			document.write("<span class=h1><center>尹府千歲","<br>");			
			document.write("<center>" +tips[4] +  "</center>" );
			document.write("<span class=h1><center>遊天王","<br>");			
	break;
			default:document.write("<center>" + tips[59] +  "</center><br>" );
			};break;
	case  2:
			switch(LunarDate){
			//case 27:
			//document.write( "<span class=h1><center>恭祝九龍三公聖誕","<br>");
			//document.write("<center>" + tips[17] +  "</center><br>" );break;
			//case 26:
			//document.write( "<span class=h1><center>恭祝尹府千歲聖誕","<br>");
			//document.write("<center>" + tips[5] +  "</center><br>" );break;
			default:document.write("<center>" + tips[59] +  "</center><br>" );
			};break;
	case  1:
			switch(LunarDate){
			case 15:
			document.write("<span class=h1><center>1.15 玉皇上帝","<br>");
			document.write("<center>" + tips[20] +  "</center><br>" );break;
			case 14:
			document.write("<span class=h1><center>1.14 九龍三公","<br>");
			document.write("<center>" + tips[1] +  "</center><br>" );break;
			case  4:
			case  3:
			case  2:
			case  1:
			document.write("<span class=h1><center>1.4 迎神","<br>");
			document.write("<center>" + tips[20] +  "</center><br>" );break;
			default:document.write("<center>" + tips[58] +  "</center><br>" );
			};break;
	default:document.write("<center>" + tips[59] +  "</center><br>" );
		}

 return 0;
 }

 /* 求此西曆年是否為閏年, 返回 0 為平年, 1 為閏年 */
function GetLeap( year )
 {
   if ( year % 400 == 0 )
     return 1;
   else if ( year % 100 == 0 )
     return 0;
   else if ( year % 4 == 0 )
     return 1;
   else
     return 0;
 }

function tagLunarCal( d, i, w, k, m1, m2, m3, m4, m5, m6, m7, m8, m9, m10, m11, m12, m13) {
 this.BaseDays = d;         /* 到西曆 1 月 1 日到農曆正月初一的累積日數 */
 this.Intercalation = i;    /* 閏月月份. 0==此年沒有閏月 */
 this.BaseWeekday = w;      /* 此年西曆 1 月 1 日為星期幾再減 1 */
 this.BaseKanChih = k;      /* 此年西曆 1 月 1 日之干支序號減 1 */
 this.MonthDays = [ m1, m2, m3, m4, m5, m6, m7, m8, m9, m10, m11, m12, m13 ]; /* 此農曆年每月之大小, 0==小月(29日), 1==大月(30日) */
}

//-->

CalConv();

<!--
function OpenWin( url ) { 
 return window.open( url, 'coop', 'width=320,height=350,toolbar=0,location=0,directories=0,status=0,menuBar=0,scrollBars=0,resizable=1' ); 
} 
//-->
