陽曆到農曆轉換的一個PHP類

//PHP陽曆到農曆轉換的一個類別
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=>array(0,30,29,30,29,30,29,30,30,29,30,29,30,0,8,2),
 62=>array(0,29,30,29,29,30,29,30,30,29,30,30,29,0,9,3),
 63=>array(4,30, 29,30,29,29,30,29,30,29,30,30,30,29,10,4),
 64=>array(0,30,29,30,29,29,30 ,29,30,29,30,30,30,0,1,5),
 65=>array(0,29,30,29,30,29,29,30,29,29,30, 30,29,0,2,6),
 66=>array(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)
 {
 $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 =31;
 case 5:
:
 $total =30;
 case 4:
 $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 and $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;
$Year=$test-> Cal(2004,2,20);

複製程式碼

PHP