首页 / 网页编程 / PHP / php阳历转农历优化版

<?php function nongli（$riqi）{//优化修改 20160807 FXL $nian=date（"Y",strtotime（$riqi））;$yue=date（"m",strtotime（$riqi））;$ri=date（"d",strtotime（$riqi））;#源码部分原作者：沈潋（S&S Lab）#农历每月的天数$everymonth=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=>array（0,30,30,29,30,30,29,29,30,29,30,29,30,0,4,8）, 68=>array（7,29,30,29,30,30,29,30,29,30,29,30,29,30,5,9）, 69=>array（0,29,30,29,30,29,30,30,29,30,29,30,29,0,6,10）, 70=>array（0,30,29,29,30,29,30,30,29,30,30,29,30,0,7,11）, 71=>array（5,29,30,29,29,30,29,30,29,30,30,30,29,30,8,12）, 72=>array（0,29,30,29,29,30,29,30,29,30,30,29,30,0,9,1）, 73=>array（0,30,29,30,29,29,30,29,29,30,30,29,30,0,10,2）, 74=>array（4,30,30,29,30,29,29,30,29,29,30,30,29,30,1,3）, 75=>array（0,30,30,29,30,29,29,30,29,29,30,29,30,0,2,4）, 76=>array（8,30,30,29,30,29,30,29,30,29,29,30,29,30,3,5）, 77=>array（0,30,29,30,30,29,30,29,30,29,30,29,29,0,4,6）, 78=>array（0,30,29,30,30,29,30,30,29,30,29,30,29,0,5,7）, 79=>array（6,30,29,29,30,29,30,30,29,30,30,29,30,29,6,8）, 80=>array（0,30,29,29,30,29,30,29,30,30,29,30,30,0,7,9）, 81=>array（0,29,30,29,29,30,29,29,30,30,29,30,30,0,8,10）, 82=>array（4,30,29,30,29,29,30,29,29,30,29,30,30,30,9,11）, 83=>array（0,30,29,30,29,29,30,29,29,30,29,30,30,0,10,12）, 84=>array（10,30,29,30,30,29,29,30,29,29,30,29,30,30,1,1）, 85=>array（0,29,30,30,29,30,29,30,29,29,30,29,30,0,2,2）, 86=>array（0,29,30,30,29,30,30,29,30,29,30,29,29,0,3,3）, 87=>array（6,30,29,30,29,30,30,29,30,30,29,30,29,29,4,4）, 88=>array（0,30,29,30,29,30,29,30,30,29,30,30,29,0,5,5）, 89=>array（0,30,29,29,30,29,29,30,30,29,30,30,30,0,6,6）, 90=>array（5,29,30,29,29,30,29,29,30,29,30,30,30,30,7,7）, 91=>array（0,29,30,29,29,30,29,29,30,29,30,30,30,0,8,8）, 92=>array（0,29,30,30,29,29,30,29,29,30,29,30,30,0,9,9）, 93=>array（3,29,30,30,29,30,29,30,29,29,30,29,30,29,10,10）, 94=>array（0,30,30,30,29,30,29,30,29,29,30,29,30,0,1,11）, 95=>array（8,29,30,30,29,30,29,30,30,29,29,30,29,30,2,12）, 96=>array（0,29,30,29,30,30,29,30,29,30,30,29,29,0,3,1）, 97=>array（0,30,29,30,29,30,29,30,30,29,30,30,29,0,4,2）, 98=>array（5,30,29,29,30,29,29,30,30,29,30,30,29,30,5,3）, 99=>array（0,30,29,29,30,29,29,30,29,30,30,30,29,0,6,4）, 100=>array（0,30,30,29,29,30,29,29,30,29,30,30,29,0,7,5）, 101=>array（4,30,30,29,30,29,30,29,29,30,29,30,29,30,8,6）, 102=>array（0,30,30,29,30,29,30,29,29,30,29,30,29,0,9,7）, 103=>array（0,30,30,29,30,30,29,30,29,29,30,29,30,0,10,8）, 104=>array（2,29,30,29,30,30,29,30,29,30,29,30,29,30,1,9）, 105=>array（0,29,30,29,30,29,30,30,29,30,29,30,29,0,2,10）, 106=>array（7,30,29,30,29,30,29,30,29,30,30,29,30,30,3,11）, 107=>array（0,29,29,30,29,29,30,29,30,30,30,29,30,0,4,12）, 108=>array（0,30,29,29,30,29,29,30,29,30,30,29,30,0,5,1）, 109=>array（5,30,30,29,29,30,29,29,30,29,30,29,30,30,6,2）, 110=>array（0,30,29,30,29,30,29,29,30,29,30,29,30,0,7,3）, 111=>array（0,30,29,30,30,29,30,29,29,30,29,30,29,0,8,4）, 112=>array（4,30,29,30,30,29,30,29,30,29,30,29,30,29,9,5）, 113=>array（0,30,29,30,29,30,30,29,30,29,30,29,30,0,10,6）, 114=>array（9,29,30,29,30,29,30,29,30,30,29,30,29,30,1,7）, 115=>array（0,29,30,29,29,30,29,30,30,30,29,30,29,0,2,8）, 116=>array（0,30,29,30,29,29,30,29,30,30,29,30,30,0,3,9）, 117=>array（6,29,30,29,30,29,29,30,29,30,29,30,30,30,4,10）, 118=>array（0,29,30,29,30,29,29,30,29,30,29,30,30,0,5,11）, 119=>array（0,30,29,30,29,30,29,29,30,29,29,30,30,0,6,12）, 120=>array（4,29,30,30,30,29,30,29,29,30,29,30,29,30,7,1） ）; ###############################农历天干$mten=array（"null","甲","乙","丙","丁","戊","己","庚","辛","壬","癸"）;#农历地支$mtwelve=array（"null","子（鼠）","丑（牛）","寅（虎）","卯（兔）","辰（龙）","巳（蛇）","午（马）","未（羊）","申（猴）","酉（鸡）","戌（狗）","亥（猪）"）;#农历月份$mmonth=array（"闰","正","二","三","四","五","六", "七","八","九","十","十一","十二","月"）;#农历日$mday=array（"null","初一","初二","初三","初四","初五","初六","初七","初八","初九","初十","十一","十二","十三","十四","十五","十六","十七","十八","十九","二十","廿一","廿二","廿三","廿四","廿五","廿六","廿七","廿八","廿九","三十"）; ###############################星期$weekday = array（"星期日","星期一","星期二","星期三","星期四","星期五","星期六"）;#阳历总天数 至1900年12月21日$total=11;#阴历总天数$mtotal=0; ###############################获得当日日期//$today=getdate（）; //获取今天的日期 if（$nian<1901 || $nian>2020） die（"年份出错！"）;//$cur_wday=$today["wday"]; //星期中第几天的数字表示 for（$y=1901;$y<$nian;$y++） { //计算到所求日期阳历的总天数-自1900年12月21日始,先算年的和 $total+=365; if （$y%4==0） $total++;}switch（$yue） { //再加当年的几个月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+=28;case 2:$total+=31;}if（$nian%4 == 0 && $yue>2） $total++; //如果当年是闰年还要加一天$total=$total+$ri-1; //加当月的天数$flag1=0; //判断跳出循环的条件$j=0;while （$j<=120）{ //用农历的天数累加来判断是否超过阳历的天数$i=1;while （$i<=13）{ $mtotal+=$everymonth[$j][$i]; if （$mtotal>=$total）{$flag1=1;break; } $i++;}if （$flag1==1） break;$j++;}if（$everymonth[$j][0]<>0 and $everymonth[$j][0]<$i）{ //原来错在这里，对闰月没有修补$mm=$i-1;}else{$mm=$i;}if（$i==$everymonth[$j][0]+1 and $everymonth[$j][0]<>0） {$nlmon=$mmonth[0].$mmonth[$mm];#闰月}else {$nlmon=$mmonth[$mm].$mmonth[13];}#计算所求月份1号的农历日期$md=$everymonth[$j][$i]-（$mtotal-$total）;if（$md > $everymonth[$j][$i]）$md-=$everymonth[$j][$i];$nlday=$mday[$md];//$nowday=date（"Y年n月j日 "）."w".$weekday[$cur_wday]." ".$mten[$everymonth[$j][14]].$mtwelve[$everymonth[$j][15]]."年".$nlmon.$nlday;$nowday=$mten[$everymonth[$j][14]].$mtwelve[$everymonth[$j][15]]."年 ".$nlmon.$nlday;return $nowday;}echo nongli（"20160807"）; //标准8位