PHP陽曆轉農曆的類

複製代碼

/**
* 類別：陽曆轉農曆的類別
* 編輯：bbs.it-home.org
* /
class Calendar{
 var $everyCMonth=array(
 0=>array(8,0,0,0,0,0,0,0,0,0,0,0, 29,30,7,1),
 1=>array(0,29,30,29,29,30,29,30,29,30,30,30,29,0,8,2),
 2=>array(0,30,29,30,29,29,30,29,30,29,30,30,30,0,9,3),
 3=>array(5 ,29,30,29,30,29,29,30,29,29,30,30,29,30,10,4),
 4=>array(0,30,30,29,30, 29,29,30,29,29,30,30,29,0,1,5),
 5=>array(0,30,30,29,30,30,29,29,30,29 ,30,29,30,0,2,6),
 6=>array(4,29,30,30,29,30,29,30,29,30,29,30,29,30, 3,7),
 7=>array(0,29,30,29,30,29,30,30,29,30,29,30,29,0,4,8),
 8 =>array(0,30,29,29,30,30,29,30,29,30,30,29,30,0,5,9),
 9=>array(2,29,30 ,29,29,30,29,30,29,30,30,30,29,30,6,10),
 10=>array(0,29,30,29,29,30,29, 30,29,30,30,30,29,0,7,11),
 11=>array(6,30,29,30,29,29,30,29,29,30,30,29 ,30,30,8,12),
 12=>array(0,30,29,30,29,29,30,29,29,30,30,29,30,0,9,1) ,
 13=>array(0,30,30,29,30,29,29,30,29,29,30,29,30,0,10,2),
 14=>array( 5,30,30,29,30,29,30,29,30,29,30,29,29,30,1,3),
 15=>array(0,30,29,30,30 ,29,30,29,30,29,30,29,30,0,2,4),
 16=>array(0,29,30,29,30,29,30,30,29, 30,29,30,29,0,3,5),
 17=>array(2,30,29,29,30,29,30,30,29,30,30,29,30,29 ,4,6),
 18=>array(0,30,29,29,30,29,30,29,30,30,29,30,30,0,5,7),
 19=>array(7,29,30,29,29,30,29,29,30,30,29,30,30,30,6,8),
 20=>array(0,29, 30,29,29,30,29,29,30,30,29,30,30,0,7,9),
 21=>array(0,30,29,30,29,29,30 ,29,29,30,29,30,30,0,8,10),
 22=>array(5,30,29,30,30,29,29,30,29,29,30, 29,30,30,9,11),
 23=>array(0,29,30,30,29,30,29,30,29,29,30,29,30,0,10,12 ),
 24=>array(0,29,30,30,29,30,30,29,30,29,30,29,29,0,1,1),
 25=>array (4,30,29,30,29,30,30,29,30,30,29,30,29,30,2,2),
 26=>array(0,29,29,30, 29,30,29,30,30,29,30,30,29,0,3,3),
 27=>array(0,30,29,29,30,29,30,29,30 ,29,30,30,30,0,4,4),
 28=>array(2,29,30,29,29,30,29,29,30,29,30,30,30, 30,5,5),
 29=>array(0,29,30,29,29,30,29,29,30,29,30,30,30,0,6,6),
 30=>array(6,29,30,30,29,29,30,29,29,30,29,30,30,29,7,7),
 31=>array(0,30 ,30,29,30,29,30,29,29,30,29,30,29,0,8,8),
 32=>array(0,30,30,30,29,30, 29,30,29,29,30,29,30,0,9,9),
 33=>array(5,29,30,30,29,30,30,29,30,29,30 ,29,29,30,10,10),
 34=>array(0,29,30,29,30,30,29,30,29,30,30,29,30,0,1, 11),
 35=>array(0,29,29,30,29,30,29,30,30,29,30,30,29,0,2,12),
 36=> array(3,30,29,29,30,29,29,30,30,29,30,30,30,29,3,1),
 37=>array(0,30,29,29 ,30,29,29,30,29,30,30,30,29,0,4,2),
 38=>array(7,30,30,29,29,30,29,29, 30,29,30,30,29,30,5,3),
 39=>array(0,30,30,29,29,30,29,29,30,29,30,29,30 ,0,6,4),
 40=>array(0,30,30,29,30,29,30,29,29,30,29,30,29,0,7,5),
 41=>array(6,30,30,29,30,30,29,30,29,29,30,29,30,29,8,6),
 42=>array(0, 30,29,30,30,29,30,29,30,29,30,29,30,0,9,7),
 43=>array(0,29,30,29,30,29 ,30,30,29,30,29,30,29,0,10,8),
 44=>array(4,30,29,30,29,30,29,30,29,30, 30,29,30,30,1,9),
 45=>array(0,29,29,30,29,29,30,29,30,30,30,29,30,0,2 ,10),
 46=>array(0,30,29,29,30,29,29,30,29,30,30,29,30,0,3,11),
 47= >array(2,30,30,29,29,30,29,29,30,29,30,29,30,30,4,12),
 48=>array(0,30,29, 30,29,30,29,29,30,29,30,29,30,0,5,1),
 49=>array(7,30,29,30,30,29,30,29 ,29,30,29,30,29,30,6,2),
 50=>array(0,29,30,30,29,30,30,29,29,30,29,30, 29,0,7,3),
 51=>array(0,30,29,30,30,29,30,29,30,29,30,29,30,0,8,4),
 52=>array(5,29,30,29,30,29,30,29,30,30,29,30,29,30,9,5),
 53=>array(0 ,29,30,29,29,30,30,29,30,30,29,30,29,0,10,6),
 54=>array(0,30,29,30,29, 29,30,29,30,30,29,30,30,0,1,7),
 55=>array(3,29,30,29,30,29,29,30,29,30 ,29,30,30,30,2,8),
 56=>array(0,29,30,29,30,29,29,30,29,30,29,30,30,0, 3,9),
 57=>array(8,30,29,30,29,30,29,29,30,29,30,29,30,29,4,10),
 58 =>array(0,30,30,30,29,30,29,29,30,29,30,29,30,0,5,11),
 59=>array(0,29,30 ,30,29,30,29,30,29,30,29,30,29,0,6,12),
 60=>array(6,30,29,30,29,30,30, 29,30,29,30,29,30,29,7,1),
61=>數組(0,30,29,30,29,30,29,30,30,29,30,29,30,0,8,2),
 62=>數組(0, 29, 30,29,29,30,29,30,30,29,30,30,29,0,9,3),
 63=>陣列(4,30,29,30,29, 29,30 ,29,30,29,30,30,30,29,10,4),
 64=>陣列(0,30,29,30,29,29,30,29,30, 29,30, 30,30,0,1,5),
 65=>陣列(0,29,30,29,30,29,29,30,29,29,30,30,29, 0,2,6 ),
 66=>數組(3,30,30,30,29,30,29,29,30,29,29,30,30,29,3,7),
 67=>數組(0,30,30,29,30,30,29,29,30,29,30,29,30,0,4,8),
 68=>陣列( 7,29,30,29, 30,30,29,30,29,30,29,30,29,30,5,9),
 69=>陣列(0,29,30,29, 30,29,30,30,29 ,30,29,30,29,0,6,10),
 70=>陣列(0,30,29,29,30,29,30,30, 29,30,30,29,30, 0,7,11),
 71=>陣列(5,29,30,29,29,30,29,30,29,30,30,30, 29,30,8,12),
 72=>陣列(0,29,30,29,29,30,29,30,29,30,30,29,30,0,9,1) ,
 73=>陣列(0,30 ,29,30,29,29,30,29,29,30,30,29,30,0,10,2),
 74=>陣列(4,30,30,29,30,29, 29,30,29,29,30,30,29,30,1,3),
 75=>陣列(0,30,30, 29,30,29,29,30,29,29,30 ,29,30,0,2,4),
 76=>陣列(8,30,30,29,30,29,30, 29,30,29,29,30,29,30,3, 5),
 77=>陣列(0,30,29,30,30,29,30,29,30,29,30, 29,29,0,4,6),
 78=>數組(0,30,29,30,30,29,30,30,29,30,29,30,29,0,5, 7),
 79=>數組(6,30,29,29 ,30,29,30,30,29,30,30,29,30,29,6,8),
 80= >陣列(0,30,29,29,30,29,30,29, 30,30,29,30,30,0,7,9),
 81=>陣列(0,29, 30,29,29,30,29,29,30,30,29,30,30 ,0,8,10),
 82=>陣列(4,30,29,30,29,29, 30,29,29,30,29,30,30,30,9,11),
 83=>陣列(0,30,29,30,29,29,30,29,29,30, 29,30,30,0,10,12),
 84=>陣列(10, 30,29,30,30,29,29,30,29,29,30,29,30,30, 1,1),
 85=>陣列(0,29,30,30,29,30 ,29,30,29,29,30,29,30,0,2,2),
 86=>陣列(0,29,30,30,29,30,30,29,30,29, 30,29,29,0,3,3),
 87=>陣列(6, 30,29,30,29,30,30,29,30,30,29,30,29,29,4 ,4),
 88=>陣列(0,30,29,30,29, 30,29,30,30,29,30,30,29,0,5,5),
 89= >陣列(0,30,29,29,30,29,29,30,30, 29,30,30,30,0,6,6),
 90=>陣列(5,29,30, 29,29,30,29,29,30,29,30,30,30, 30,7,7),
 91=>陣列(0,29,30,29,29,30,29,29 ,30,29,30,30,30,0,8,8),
 92=>陣列(0,29,30,30,29,29,30,29,29,30,29,30, 30,0,9,9),
 93=>陣列( 3,29,30,30,29,30,29,30,29,29,30,29,30,29,10,10),
 94=>陣列(0,30,30,30, 29,30,29,30,29,29,30,29,30,0,1,11),
 95=>陣列(8 ,29,30,30,29,30,29,30, 30,29,29,30,29,30,2,12),
 96=>陣列(0,29,30,29,30, 30,29,30,29,30,30,29, 29,0,3,1),
 97=>陣列(0,30,29,30,29,30,29,30,30,29 ,30,30,29,0,4,2) ,
 98=>陣列(5,30,29,29,30,29,29,30,30,29,30,30,29,30, 5,3),
 99=>陣列(0,30,29,29,30,29,29,30,29,30,30,30,29,0,6,4),
 100 =>陣列(0,30,30, 29,29,30,29,29,30,29,30,30,29,0,7,5),
 101=>陣列(4,30,30 ,29,30,29,30, 29,29,30,29,30,29,30,8,6),
 102=>陣列(0,30,30,29,30,29,30, 29,29,30,29, 30,29,0,9,7),
 103=>陣列(0,30,30,29,30,30,29,30,29,29,30,29 ,30,0,10, 8),
 104=>陣列(2,29,30,29,30,30,29,30,29,30,29,30,29,30,1,9) ,
 105= >數組(0,29,30,29,30,29,30,30,29,30,29,30,29,0,2,10),
 106=>數組( 7,30, 29,30,29,30,29,30,29,30,30,29,30,30,3,11),
 107=>陣列(0,29,29,30,29 ,29, 30,29,30,30,30,29,30,0,4,12),
 108=>陣列(0,30,29,29,30,29,29,30,29, 30, 30,29,30,0,5,1),
 109=>陣列(5,30,30,29,29,30,29,29,30,29,30,29,30,30 , 6,2),
 110=>陣列(0,30,29,30,29,30,29,29,30,29,30,29,30,0,7,3),
 111=>數組(0,30,29,30,30,29,30,29,29,30,29,30,29,0,8,4),
 112=>數組(4, 30, 29,30,30,29,30,29,30,29,30,29,30,29,9,5),
 113=>陣列(0,30,29,30,29, 30,30 ,29,30,29,30,29,30,0,10,6),
 114=>陣列(9,29,30,29,30,29,30,29,30, 30,29, 30,29,30,1,7),
 115=>陣列(0,29,30,29,29,30,29,30,30,30,29,30,29, 0,2,8 ),
 116=>數組(0,30,29,30,29,29,30,29,30,30,29,30,30,0,3,9),
 117=>數組(6,29,30,29,30,29,29,30,29,30,29,30,30,30,4,10),
 118=>陣列( 0,29,30,29, 30,29,29,30,29,30,29,30,30,0,5,11),
 119=>陣列(0,30,29,30, 29,30,29,29,30 ,29,29,30,30,0,6,12),
 120=>陣列(4,29,30,30,30,29,30,29, 29,30,29,30,29, 30,7,1)
 );
##----------
 #農曆天乾
 var $mten=array("null","甲","乙","丙","丁", “戊”、“己”、“庚”、“辛”、“壬”、“癸”）； #農歷地支
var $mtwelve=array("null","子(鼠)","醜(牛)","寅(虎)","卯(兔)","辰(龍)","巳(蛇) ","午(馬)","未(羊)","申(猴)","酉(雞)","戌(狗)","亥(豬)"); #農曆月份
 var $mmonth=array("閏","正","二","三","四","五","六","七","八","九","十" ,"十一","十二","月");
 var $mday=array("null","初一","初二","初三","初四","初五","初六","初七","初八","初九","初十","十一","十二","十三","十四","十五","十六","十七","十八","十九","二十","廿一","廿二","廿三","廿四","廿五","廿六","廿七","廿八","廿九","三十");#農曆日
##-----------
 #賦給初值
 #天干地支
 var $ten = 0;
 var $twelve = 0;
 function MyPub($cYear, $cMonth, $cDay){
 function MyPub($cYear, $cMonth, $cDay){
 $total = 11; #陽曆總天數至1900年12月21日
 $mtotal = 0; #陰曆總天數
 for ($y = 1901; $y  $total += 365;
 if ($y % 4 == 0){
 $total++;
 }
 }
 #再加當年的幾個月
 switch ($cMonth){
 case 12:
 $total += 30;
 case 11:
 $total += 31;
 case 10:
 $total += 30;
 case 9:
 $total += 31;
 case 8:
 $total += 31;
 case 7:
 $total += 30;
 case 6 :
 $total += 31;
 case 5:
 $total += 30;
 case 4:
 $total += 31;
 case 3:
 $total += 31;
 case 3:
 $ total += 28;
 case 2:
 $total += 31;
 }
 #如果當年是閏年還要加一天
 if ($cYear % 4 == 0 and $ cMonth > 2){
 $total++;
 }
 $total += $cDay - 1;
 ##------------
 #用農曆的天數累加來判斷是否超過陽曆的天數
 for ($j = 0; $j  $i = 1;
 for ($i = 1; $i  $mtotal += $this->everyCMonth[$j][$i];
 if ($mtotal >= $total){
 $flag = 1;
 break;
 }
 }
 if ($flag == 1){
 break;
 }
 }
 return array("m" => $ j, "d" => $i, "t" => $total, "n" => $mtotal);
 }
 function Cal($Year, $Month, $Day){
 $Par = $this->MyPub($Year, $Month, $Day);
 $md = $this->everyCMonth[$Par["m"]][$Par["d"]] - ( $Par["n"] - $Par["t"]);
 $week = ($Par["t"] + 5) % 7;
 if ($this->everyCMonth[$Par ["m"]][0]  0 與 $this->everyCMonth[$Par["m"]][0]  $mm = $Par[" d"] - 1;
 }else{
 $mm = $Par["d"];
 }
 if ($Par["d"] == $this->everyCMonth[ $Par["d"]][0] + 1 and $this->everyCMonth[$Par["d"]][0]  0){
 $cMonth = $this->mmonth[0] .$this->mmonth[$mm]; #閏月
 }
 else{
 $cMonth = $this->mmonth[$mm].$this->mmonth[13];
 }
 return array("year" => $this->mten[$this->everyCMonth[$Par["m"]][14]].$this->mtwelve[$this->everyCMonth[$ Par["m"]][15]], "month" => $cMonth, "day" => $this->mday[$md], "week" => $week);
 }
}

//呼叫範例
$test = new Calendar;