1 /*
  2  * 农历 节气 节日
  3  * edit: www.jbxue.com
  4  */
  5 header("Content-Type:text/html;charset=utf-8");
  6 class Lunar
  7 {
  8     var $MIN_YEAR = 1891;
  9     var $MAX_YEAR = 2100;
 10     var $lunarInfo = array(
 11     array(0,2,9,21936),array(6,1,30,9656),array(0,2,17,9584),array(0,2,6,21168),array(5,1,26,43344),array(0,2,13,59728),
 12     array(0,2,2,27296),array(3,1,22,44368),array(0,2,10,43856),array(8,1,30,19304),array(0,2,19,19168),array(0,2,8,42352),
 13     array(5,1,29,21096),array(0,2,16,53856),array(0,2,4,55632),array(4,1,25,27304),array(0,2,13,22176),array(0,2,2,39632),
 14     array(2,1,22,19176),array(0,2,10,19168),array(6,1,30,42200),array(0,2,18,42192),array(0,2,6,53840),array(5,1,26,54568),
 15     array(0,2,14,46400),array(0,2,3,54944),array(2,1,23,38608),array(0,2,11,38320),array(7,2,1,18872),array(0,2,20,18800),
 16     array(0,2,8,42160),array(5,1,28,45656),array(0,2,16,27216),array(0,2,5,27968),array(4,1,24,44456),array(0,2,13,11104),
 17     array(0,2,2,38256),array(2,1,23,18808),array(0,2,10,18800),array(6,1,30,25776),array(0,2,17,54432),array(0,2,6,59984),
 18     array(5,1,26,27976),array(0,2,14,23248),array(0,2,4,11104),array(3,1,24,37744),array(0,2,11,37600),array(7,1,31,51560),
 19     array(0,2,19,51536),array(0,2,8,54432),array(6,1,27,55888),array(0,2,15,46416),array(0,2,5,22176),array(4,1,25,43736),
 20     array(0,2,13,9680),array(0,2,2,37584),array(2,1,22,51544),array(0,2,10,43344),array(7,1,29,46248),array(0,2,17,27808),
 21     array(0,2,6,46416),array(5,1,27,21928),array(0,2,14,19872),array(0,2,3,42416),array(3,1,24,21176),array(0,2,12,21168),
 22     array(8,1,31,43344),array(0,2,18,59728),array(0,2,8,27296),array(6,1,28,44368),array(0,2,15,43856),array(0,2,5,19296),
 23     array(4,1,25,42352),array(0,2,13,42352),array(0,2,2,21088),array(3,1,21,59696),array(0,2,9,55632),array(7,1,30,23208),
 24     array(0,2,17,22176),array(0,2,6,38608),array(5,1,27,19176),array(0,2,15,19152),array(0,2,3,42192),array(4,1,23,53864),
 25     array(0,2,11,53840),array(8,1,31,54568),array(0,2,18,46400),array(0,2,7,46752),array(6,1,28,38608),array(0,2,16,38320),
 26     array(0,2,5,18864),array(4,1,25,42168),array(0,2,13,42160),array(10,2,2,45656),array(0,2,20,27216),array(0,2,9,27968),
 27     array(6,1,29,44448),array(0,2,17,43872),array(0,2,6,38256),array(5,1,27,18808),array(0,2,15,18800),array(0,2,4,25776),
 28     array(3,1,23,27216),array(0,2,10,59984),array(8,1,31,27432),array(0,2,19,23232),array(0,2,7,43872),array(5,1,28,37736),
 29     array(0,2,16,37600),array(0,2,5,51552),array(4,1,24,54440),array(0,2,12,54432),array(0,2,1,55888),array(2,1,22,23208),
 30     array(0,2,9,22176),array(7,1,29,43736),array(0,2,18,9680),array(0,2,7,37584),array(5,1,26,51544),array(0,2,14,43344),
 31     array(0,2,3,46240),array(4,1,23,46416),array(0,2,10,44368),array(9,1,31,21928),array(0,2,19,19360),array(0,2,8,42416),
 32     array(6,1,28,21176),array(0,2,16,21168),array(0,2,5,43312),array(4,1,25,29864),array(0,2,12,27296),array(0,2,1,44368),
 33     array(2,1,22,19880),array(0,2,10,19296),array(6,1,29,42352),array(0,2,17,42208),array(0,2,6,53856),array(5,1,26,59696),
 34     array(0,2,13,54576),array(0,2,3,23200),array(3,1,23,27472),array(0,2,11,38608),array(11,1,31,19176),array(0,2,19,19152),
 35     array(0,2,8,42192),array(6,1,28,53848),array(0,2,15,53840),array(0,2,4,54560),array(5,1,24,55968),array(0,2,12,46496),
 36     array(0,2,1,22224),array(2,1,22,19160),array(0,2,10,18864),array(7,1,30,42168),array(0,2,17,42160),array(0,2,6,43600),
 37     array(5,1,26,46376),array(0,2,14,27936),array(0,2,2,44448),array(3,1,23,21936),array(0,2,11,37744),array(8,2,1,18808),
 38     array(0,2,19,18800),array(0,2,8,25776),array(6,1,28,27216),array(0,2,15,59984),array(0,2,4,27424),array(4,1,24,43872),
 39     array(0,2,12,43744),array(0,2,2,37600),array(3,1,21,51568),array(0,2,9,51552),array(7,1,29,54440),array(0,2,17,54432),
 40     array(0,2,5,55888),array(5,1,26,23208),array(0,2,14,22176),array(0,2,3,42704),array(4,1,23,21224),array(0,2,11,21200),
 41     array(8,1,31,43352),array(0,2,19,43344),array(0,2,7,46240),array(6,1,27,46416),array(0,2,15,44368),array(0,2,5,21920),
 42     array(4,1,24,42448),array(0,2,12,42416),array(0,2,2,21168),array(3,1,22,43320),array(0,2,9,26928),array(7,1,29,29336),
 43     array(0,2,17,27296),array(0,2,6,44368),array(5,1,26,19880),array(0,2,14,19296),array(0,2,3,42352),array(4,1,24,21104),
 44     array(0,2,10,53856),array(8,1,30,59696),array(0,2,18,54560),array(0,2,7,55968),array(6,1,27,27472),array(0,2,15,22224),
 45     array(0,2,5,19168),array(4,1,25,42216),array(0,2,12,42192),array(0,2,1,53584),array(2,1,21,55592),array(0,2,9,54560)
 46     );
 47
 48     /**
 49     * 将阳历转换为阴历
 50     * @param year 公历-年
 51     * @param month 公历-月
 52     * @param date 公历-日
 53     */
 54     function convertSolarToLunar($year,$month,$date)
 55     {
 56         //debugger;
 57         $yearData = $this->lunarInfo[$year-$this->MIN_YEAR];
 58         if($year==$this->MIN_YEAR&&$month<=2&&$date<=9) return array(1891,'正月','初一','辛卯',1,1,'兔');
 59         return $this->getLunarByBetween($year,$this->getDaysBetweenSolar($year,$month,$date,$yearData[1],$yearData[2]));
 60     }
 61
 62     function convertSolarMonthToLunar($year,$month)
 63     {
 64         $yearData = $this->lunarInfo[$year-$this->MIN_YEAR];
 65         if($year==$this->MIN_YEAR&&$month<=2&&$date<=9) return array(1891,'正月','初一','辛卯',1,1,'兔');
 66         $month_days_ary = array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
 67         $dd = $month_days_ary[$month];
 68         if($this->isLeapYear($year) && $month == 2) $dd++;
 69         $lunar_ary = array();
 70         for ($i = 1; $i < $dd; $i++)
 71         {
 72             $array = $this->getLunarByBetween($year,$this->getDaysBetweenSolar($year, $month, $i, $yearData[1], $yearData[2]));
 73             $array[] = $year . '-' . $month . '-' . $i;
 74             $lunar_ary[$i] = $array;
 75         }
 76         return $lunar_ary;
 77     }
 78
 79     /**
 80     * 将阴历转换为阳历
 81     * @param year 阴历-年
 82     * @param month 阴历-月，闰月处理：例如如果当年闰五月，那么第二个五月就传六月，相当于阴历有13个月，只是有的时候第13个月的天数为0
 83     * @param date 阴历-日
 84     */
 85     function convertLunarToSolar($year,$month,$date)
 86     {
 87         $yearData = $this->lunarInfo[$year-$this->MIN_YEAR];
 88         $between = $this->getDaysBetweenLunar($year,$month,$date);
 89         $res = mktime(0,0,0,$yearData[1],$yearData[2],$year);
 90         $res = date('Y-m-d', $res+$between*24*60*60);
 91         $day = explode('-', $res);
 92         $year = $day[0];
 93         $month= $day[1];
 94         $day = $day[2];
 95         return array($year, $month, $day);
 96     }
 97
 98     /**
 99     * 判断是否是闰年
100     * @param year
101     */
102     function isLeapYear($year)
103     {
104         return (($year%4==0 && $year%100 !=0) || ($year%400==0));
105     }
106
107     /**
108     * 获取干支纪年
109     * @param year
110     */
111     function getLunarYearName($year)
112     {
113         $sky = array('庚','辛','壬','癸','甲','乙','丙','丁','戊','己');
114         $earth = array('申','酉','戌','亥','子','丑','寅','卯','辰','巳','午','未');
115         $year = $year.'';
116         return $sky[$year{3}].$earth[$year%12];
117     }
118
119     /**
120     * 根据阴历年获取生肖
121     * @param year 阴历年
122     */
123     function getYearZodiac($year)
124     {
125         $zodiac = array('猴','鸡','狗','猪','鼠','牛','虎','兔','龙','蛇','马','羊');
126         return $zodiac[$year%12];
127     }
128
129     /**
130     * 获取阳历月份的天数
131     * @param year 阳历-年
132     * @param month 阳历-月
133     */
134     function getSolarMonthDays($year,$month)
135     {
136         $monthHash = array('1'=>31,'2'=>$this->isLeapYear($year)?29:28,'3'=>31,'4'=>30,'5'=>31,'6'=>30,'7'=>31,'8'=>31,'9'=>30,'10'=>31,'11'=>30,'12'=>31);
137         return $monthHash["$month"];
138     }
139
140     /**
141     * 获取阴历月份的天数
142     * @param year 阴历-年
143     * @param month 阴历-月，从一月开始
144     */
145     function getLunarMonthDays($year,$month)
146     {
147         $monthData = $this->getLunarMonths($year);
148         return $monthData[$month-1];
149     }
150
151     /**
152     * 获取阴历每月的天数的数组
153     * @param year
154     */
155     function getLunarMonths($year)
156     {
157         $yearData = $this->lunarInfo[$year - $this->MIN_YEAR];
158         $leapMonth = $yearData[0];
159         $bit = decbin($yearData[3]);
160         for ($i = 0; $i < strlen($bit);$i ++) $bitArray[$i] = substr($bit, $i, 1);
161         for($k=0,$klen=16-count($bitArray);$k<$klen;$k++) array_unshift($bitArray, '0');
162         $bitArray = array_slice($bitArray,0,($leapMonth==0?12:13));
163         for($i=0; $i<count($bitArray); $i++) $bitArray[$i] = $bitArray[$i] + 29;
164         return $bitArray;
165     }
166
167     /**
168     * 获取农历每年的天数
169     * @param year 农历年份
170     */
171     function getLunarYearDays($year)
172     {
173         $yearData = $this->lunarInfo[$year-$this->MIN_YEAR];
174         $monthArray = $this->getLunarYearMonths($year);
175         $len = count($monthArray);
176         return ($monthArray[$len-1]==0?$monthArray[$len-2]:$monthArray[$len-1]);
177     }
178
179     function getLunarYearMonths($year)
180     {
181         //debugger;
182         $monthData = $this->getLunarMonths($year);
183         $res=array();
184         $temp=0;
185         $yearData = $this->lunarInfo[$year-$this->MIN_YEAR];
186         $len = ($yearData[0]==0?12:13);
187         for($i=0;$i<$len;$i++)
188         {
189             $temp=0;
190             for($j=0;$j<=$i;$j++) $temp+=$monthData[$j];
191             array_push($res, $temp);
192         }
193         return $res;
194     }
195
196     /**
197     * 获取闰月
198     * @param year 阴历年份
199     */
200     function getLeapMonth($year)
201     {
202         $yearData = $this->lunarInfo[$year-$this->MIN_YEAR];
203         return $yearData[0];
204     }
205
206     /**
207     * 计算阴历日期与正月初一相隔的天数
208     * @param year
209     * @param month
210     * @param date
211     */
212     function getDaysBetweenLunar($year,$month,$date)
213     {
214         $yearMonth = $this->getLunarMonths($year);
215         $res=0;
216         for($i=1;$i<$month;$i++) $res +=$yearMonth[$i-1];
217         $res+=$date-1;
218         return $res;
219     }
220
221     /**
222     * 计算2个阳历日期之间的天数
223     * @param year 阳历年
224     * @param cmonth
225     * @param cdate
226     * @param dmonth 阴历正月对应的阳历月份
227     * @param ddate 阴历初一对应的阳历天数
228     */
229     function getDaysBetweenSolar($year,$cmonth,$cdate,$dmonth,$ddate)
230     {
231         $a = mktime(0,0,0,$cmonth,$cdate,$year);
232         $b = mktime(0,0,0,$dmonth,$ddate,$year);
233         return ceil(($a-$b)/24/3600);
234     }
235
236     /**
237     * 根据距离正月初一的天数计算阴历日期
238     * @param year 阳历年
239     * @param between 天数
240     */
241     function getLunarByBetween($year,$between)
242     {
243         //debugger;
244         $lunarArray = array();
245         $yearMonth=array();
246         $t=0;
247         $e=0;
248         $leapMonth=0;
249         $m='';
250         if($between==0)
251         {
252             array_push($lunarArray, $year,'正月','初一');
253             $t = 1;
254             $e = 1;
255         }
256         else
257         {
258             $year = $between>0? $year : ($year-1);
259             $yearMonth = $this->getLunarYearMonths($year);
260             $leapMonth = $this->getLeapMonth($year);
261             $between = $between>0?$between : ($this->getLunarYearDays($year)+$between);
262             for($i=0;$i<13;$i++)
263             {
264                 if($between==$yearMonth[$i])
265                 {
266                     $t=$i+2;
267                     $e=1;
268                     break;
269                 }else if($between<$yearMonth[$i])
270                 {
271                     $t=$i+1;
272                     $e=$between-(empty($yearMonth[$i-1])?0:$yearMonth[$i-1])+1;
273                     break;
274                 }
275             }
276             $m = ($leapMonth!=0&&$t==$leapMonth+1)?('闰'.$this->getCapitalNum($t- 1,true)):$this->getCapitalNum(($leapMonth!=0&&$leapMonth+1<$t?($t-1):$t),true);
277             array_push($lunarArray,$year,$m,$this->getCapitalNum($e,false));
278         }
279         array_push($lunarArray,$this->getLunarYearName($year));// 天干地支
280         array_push($lunarArray,$t,$e);
281         array_push($lunarArray,$this->getYearZodiac($year));// 12生肖
282         array_push($lunarArray,$leapMonth);// 闰几月
283         return $lunarArray;
284     }
285
286     /**
287     * 获取数字的阴历叫法
288     * @param num 数字
289     * @param isMonth 是否是月份的数字
290     */
291     function getCapitalNum($num,$isMonth)
292     {
293         $isMonth = $isMonth || false;
294         $dateHash=array('0'=>'','1'=>'一','2'=>'二','3'=>'三','4'=>'四','5'=>'五','6'=>'六','7'=>'七','8'=>'八','9'=>'九','10'=>'十 ');
295         $monthHash=array('0'=>'','1'=>'正月','2'=>'二月','3'=>'三月','4'=>'四月','5'=>'五月','6'=>'六月','7'=>'七月','8'=>'八月','9'=>'九月','10'=>'十月','11'=>'冬月','12'=>'腊月');
296         $res='';
297         if($isMonth) $res = $monthHash[$num];
298         else
299         {
300             if($num<=10) $res = '初'.$dateHash[$num];
301             else if($num>10&&$num<20) $res = '十'.$dateHash[$num-10];
302             else if($num==20) $res = "二十";
303             else if($num>20&&$num<30) $res = "廿".$dateHash[$num-20];
304             else if($num==30) $res = "三十";
305         }
306         return $res;
307     }
308
309     /*
310      * 节气通用算法
311      */
312     function getJieQi($_year,$month,$day)
313     {
314         $year = substr($_year,-2)+0;
315         $coefficient = array(
316             array(5.4055,2019,-1),//小寒
317             array(20.12,2082,1),//大寒
318             array(3.87),//立春
319             array(18.74,2026,-1),//雨水
320             array(5.63),//惊蛰
321             array(20.646,2084,1),//春分
322             array(4.81),//清明
323             array(20.1),//谷雨
324             array(5.52,1911,1),//立夏
325             array(21.04,2008,1),//小满
326             array(5.678,1902,1),//芒种
327             array(21.37,1928,1),//夏至
328             array(7.108,2016,1),//小暑
329             array(22.83,1922,1),//大暑
330             array(7.5,2002,1),//立秋
331             array(23.13),//处暑
332             array(7.646,1927,1),//白露
333             array(23.042,1942,1),//秋分
334             array(8.318),//寒露
335             array(23.438,2089,1),//霜降
336             array(7.438,2089,1),//立冬
337             array(22.36,1978,1),//小雪
338             array(7.18,1954,1),//大雪
339             array(21.94,2021,-1)//冬至
340         );
341         $term_name = array(
342         "小寒","大寒","立春","雨水","惊蛰","春分","清明","谷雨",
343         "立夏","小满","芒种","夏至","小暑","大暑","立秋","处暑",
344         "白露","秋分","寒露","霜降","立冬","小雪","大雪","冬至");
345
346         $idx1 = ($month-1)*2;
347         $_leap_value = floor(($year-1)/4);
348         $day1 = floor($year*0.2422+$coefficient[$idx1][0])-$_leap_value;
349         if(isset($coefficient[$idx1][1])&&$coefficient[$idx1][1]==$_year) $day1 += $coefficient[$idx1][2];
350         $day2 = floor($year*0.2422+$coefficient[$idx1+1][0])-$_leap_value;
351         if(isset($coefficient[$idx1+1][1])&&$coefficient[$idx1+1][1]==$_year) $day1 += $coefficient[$idx1+1][2];
352
353         //echo __FILE__.'->'.__LINE__.' $day1='.$day1,',$day2='.$day2.'<br/>'.chr(10);
354         $data=array();
355         if($day<$day1){
356             $data['name1']=$term_name[$idx1-1];
357             $data['name2']=$term_name[$idx1-1].'后';
358         }else if($day==$day1){
359             $data['name1']=$term_name[$idx1];
360             $data['name2']=$term_name[$idx1];
361         }else if($day>$day1 && $day<$day2){
362             $data['name1']=$term_name[$idx1];
363             $data['name2']=$term_name[$idx1].'后';
364         }else if($day==$day2){
365             $data['name1']=$term_name[$idx1+1];
366             $data['name2']=$term_name[$idx1+1];
367         }else if($day>$day2){
368             $data['name1']=$term_name[$idx1+1];
369             $data['name2']=$term_name[$idx1+1].'后';
370         }
371         return $data;
372     }
373
374     /*
375      * 获取节日：特殊的节日只能修改此函数来计算
376      */
377     function getFestival($today, $nl_info = false,$config = 1)
378     {
379         if($config == 1)
380         {
381             $arr_lunar=array('01-01'=>'春节','01-15'=>'元宵节','02-02'=>'二月二','05-05'=>'端午节','07-07'=>'七夕节','08-15'=>'中秋节','09-09'=>'重阳节','12-08'=>'腊八节','12-23'=>'小年');
382             $arr_solar=array('01-01'=>'元旦','02-14'=>'情人节','03-12'=>'植树节','04-01'=>'愚人节','05-01'=>'劳动节','06-01'=>'儿童节','10-01'=>'国庆节','10-31'=>'万圣节','12-24'=>'平安夜','12-25'=>'圣诞节');
383         }//需要不同节日的，用不同的$config,然后配置$arr_lunar和$arr_solar
384
385         $festivals = array();
386
387         list($y,$m,$d) = explode('-',$today);
388         if(!$nl_info) $nl_info = $this->convertSolarToLunar($y,intval($m),intval($d));
389
390         if($nl_info[7]>0&&$nl_info[7]<$nl_info[4]) $nl_info[4]-=1;
391         $md_lunar = substr('0'.$nl_info[4],-2).'-'.substr('0'.$nl_info[5],-2);
392         $md_solar=substr_replace($today,'',0,5);
393
394         isset($arr_lunar[$md_lunar])?array_push($festivals, $arr_lunar[$md_lunar]):'';
395         isset($arr_solar[$md_solar])?array_push($festivals, $arr_solar[$md_solar]):'';
396
397         $glweek  = date("w",strtotime($today));    //0-6
398
399         if($m==5&&($d>7)&&($d<15)&&($glweek==0))array_push($festivals, "母亲节");
400         if($m==6&&($d>14)&&($d<22)&&($glweek==0))array_push($festivals,"父亲节");
401
402         $jieqi = $this->getJieQi($y,$m,$d);
403         if($jieqi)array_push($festivals,$jieqi);
404         return implode('/',$festivals);
405     }
406
407      /*
408      * 获取当前时间属于哪个时辰
409      @param int $time  时间戳
410      */
411     function getTheHour($h){
412         $d=$h;
413         if($d==23 || $d==0){
414             return '子时';
415         }else if($d==1 || $d==2){
416             return '丑时';
417         }else if($d==3 || $d==4){
418             return '寅时';
419         }else if($d==5 || $d==6){
420             return '卯时';
421         }else if($d==7 || $d==8){
422             return '辰时';
423         }else if($d==9 || $d==10){
424             return '巳时';
425         }else if($d==11 || $d==12){
426             return '午时';
427         }else if($d==13 || $d==14){
428             return '未时';
429         }else if($d==15 || $d==16){
430             return '申时';
431         }else if($d==17 || $d==18){
432             return '酉时';
433         }else if($d==19 || $d==20){
434             return '戌时';
435         }else if($d==21 || $d==22){
436             return '亥时';
437         }
438     }
439 }
440 /*$lunar=new Lunar();//
441 $month=$lunar->getJieQi(2017,05,13);//将阳历转换为阴历
442 echo '<pre>';
443 print_r($month);*/