PHP公历农历转换（阴历阳历转换）阴历和阳历转换
Code1<?php
2/**
3* 公农历转换(1912 - 2012)
4*
5* Usage:
6* // 公历1983-10-5转农历
7* $lunar = new Lunar();
8* $date = $lunar->getLar('1983-10-5',0);
9* echo date("Y-m-d", $date);
10* // 农历1983-8-29转公历
11* $date = $lunar->getLar('1983-8-29',1);
12* echo date("Y-m-d", $date);
13*
14* @param string 日期
15* @param int 日期历法
16* - 0 公历
17* 1 农历
18*
19* @return timestamp
20
21
22 这是一个国历与农历互相转的Unit.
23
24 其中年份皆用民国年份, 请自行转换 (西元年-1911 = 民国年).
25 ***************************************************************************
26 *国农历对映表之说明 : *
27 ***************************************************************************
28 *前二数字 = 闰月月份, 如果为 13 则没有闰月 *
29 *第叁至第六数字 = 12 个月之大小月之2进位码->10进位 *
30 *例如: *
31 * 101010101010 = 2730 *
32 * 1 : 代表大月(30天) 0 : 代表小月(29天) ==> 1月大2月小3月大.. *
33 *第七位数字为闰月天数 *
34 * 0 : 没有闰月之天数 *
35 * 1 : 闰月为小月(29天) *
36 * 2 : 闰月为大月(30天) *
37 *最後2位数字代表阳历之1月1日与阴历之1月1日相差天数 *
38 ***************************************************************************
39 这对映表只有民国一年至民国一百年, 如不敷您的使用请按照上述之方式自行增加.
40
41 这个程式没有判断您所输入之年,月,日是否正确, 请自行判断.
42
43 如果转换出来之农历的月份是闰月则传给您的值是***负数***
44 如果农历要转换国历如果是闰月请输入***负数***
45
46 此版本为FreeWare Version : 0.1
47 您可以自行修改, 但最好可以将修改过之程式Mail一份给我.
48 如果您要用於商业用途, 请mail给我告知您的用途及原因.
49
50*/
51
52class Lunar {
53 var $LMDay = array();
54 var $InterMonth = 0;
55 var $InterMonthDays = 0;
56 var $SLRangeDay = 0;
57
58 var $SMDay = array(1 => 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
59 var $LongLife = array( 1 =>
60 '132637048', '133365036', '053365225', '132900044', '131386034', '022778122', //6
61 '132395041', '071175231', '131175050', '132635038', '052891127', '131701046', //12
62 '131748035', '042741223', '130694043', '132391032', '021327122', '131175040', //18
63 '061623129', '133402047', '133402036', '051769125', '131453044', '130694034', //24
64 '032158223', '132350041', '073213230', '133221049', '133402038', '063466226', //30
65 '132901045', '131130035', '042651224', '130605043', '132349032', '023371121', //36
66 '132709040', '072901128', '131738047', '132901036', '051333226', '131210044', //42
67 '132651033', '031111223', '131323042', '082714130', '133733048', '131706038', //48
68 '062794127', '132741045', '131206035', '042734124', '132647043', '131318032', //54
69 '033878120', '133477039', '071461129', '131386047', '132413036', '051245126', //60
70 '131197045', '132637033', '043405122', '133365041', '083413130', '132900048', //66
71 '132922037', '062394227', '132395046', '131179035', '042711124', '132635043', //72
72 '102855132', '131701050', '131748039', '062804128', '132742047', '132359036', //78
73 '051199126', '131175045', '131611034', '031866122', '133749040', '081717130', //84
74 '131452049', '132742037', '052413127', '132350046', '133222035', '043477123', //90
75 '133402042', '133493031', '021877121', '131386039', '072747128', '130605048', //96
76 '132349037', '053243125', '132709044', '132890033');
77
78 function getLar($date, $isLunar = 1){
79 list($year, $month, $day) = split("-", $date);
80 if($isLunar == 1)
81 return $this->Lunar2Solar($year, $month, $day);
82 else
83 return $this->Solar2Lunar($year, $month, $day);
84 }
85
86 function IsLeapYear($AYear){
87 return ($AYear % 4 == 0) and (($AYear % 100 <> 0) or ($AYear % 400 == 0));
88 }
89
90 function CovertLunarMonth($magicno){
91 $m = $magicno;
92 for ($i = 12; $i >= 1; $i--){
93 $size = $m % 2;
94 if ($size == 0)
95 $this->LMDay[$i] = 29;
96 else
97 $this->LMDay[$i] = 30;
98 $m = floor($m / 2);
99 }
100 }
101
102 function ProcessMagicStr($yy){
103 $yy = $yy - 1911;
104 $magicstr = $this->LongLife[$yy];
105 $this->InterMonth = substr($magicstr, 0, 2);
106 $LunarMonth = substr($magicstr, 2, 4);
107 $this->CovertLunarMonth($LunarMonth);
108 $dsize = substr($magicstr, 6, 1);
109 switch ($dsize) {
110 case 0 :
111 $this->InterMonthDays = 0;
112 break;
113 case 1 :
114 $this->InterMonthDays = 29;
115 break;
116 case 2 :
117 $this->InterMonthDays = 30;
118 break;
119 }
120 $this->SLRangeDay = substr($magicstr, 7, 2);
121 }
122
123 function DaysPerLunarMonth($LYear, $LMonth){
124 $this->;ProcessMagicStr($LYear);
125 if ($LMonth < 0)
126 return $this->InterMonthDays;
127 else
128 return $this->LMDay[$LMonth];
129 }
130
131 function Solar2Lunar($SYear, $SMonth, $SDay){
132 if( !(1912 <= $SYear && $SYear <= 2012) ){
133 return false;
134 }
135 $day = 0;
136 if ($this->isLeapYear($SYear))
137 $this->SMDay = 29;
138 $this->;ProcessMagicStr($SYear);
139 if ($SMonth == 1)
140 $day = $SDay;
141 else {
142 for($i = 1; $i <= $SMonth-1; $i++)
143 $day = $day + $this->SMDay[$i];
144 $day = $day + $SDay;
145 }
146 if ($day <= $this->SLRangeDay) {
147 $day = $day - $this->SLRangeDay;
148 $this->processmagicstr($SYear-1);
149 for ($i = 12; $i >= 1; $i--){
150 $day = $day + $this->LMDay[$i];
151 if ($day > 0)
152 break;
153 }
154 $LYear = $SYear - 1;
155 $LMonth = $i;
156 $LDay = $day;
157 } else {
158 $day = $day - $this->SLRangeDay;
159 for($i = 1; $i <= $this->InterMonth-1; $i++){
160 $day = $day - $this->LMDay[$i];
161 if ($day <= 0)
162 break;
163 }
164 if ($day <= 0) {
165 $LYear = $SYear;
166 $LMonth = $i;
167 $LDay = $day + $this->LMDay[$i];
168 } else {
169 $day = $day - $this->LMDay[$this->InterMonth];
170 if ($day <= 0) {
171 $LYear = $SYear;
172 $LMonth = $this->InterMonth;
173 $LDay = $day + $this->LMDay[$this->InterMonth];
174 } else {
175 $this->LMDay[$this->InterMonth] = $this->InterMonthDays;
176 for ($i = $this->InterMonth; $i <= 12; $i++){
177 $day = $day - $this->LMDay[$i];
178 if ($day <= 0)
179 break;
180 }
181 if ($i == $this->InterMonth)
182 $LMonth = 0 - $this->InterMonth;
183 else
184 $LMonth = $i;
185 $LYear = $SYear;
186 $LDay = $day + $this->LMDay[$i];
187 }
188 }
189 }
190 return mktime(0, 0, 0, $LMonth, $LDay, $LYear);
191 }
192
193 function Lunar2Solar($LYear, $LMonth, $LDay){
194 if( !(1912 <= $LYear && $LYear <= 2012) ){
195 return false;
196 }
197 $day = 0;
198 $SYear = $LYear;
199 if ($this->isLeapYear($SYear))
200 $this->SMDay = 29;
201 $this->processmagicstr($SYear);
202 if ($LMonth < 0)
203 $day = $this->LMDay[$this->InterMonth];
204 if ($LMonth <> 1)
205 for ($i = 1; $i <= $LMonth-1; $i++)
206 $day = $day + $this->LMDay[$i];
207 $day = $day + $LDay + $this->SLRangeDay;
208 if (($this->InterMonth <> 13) and ($this->InterMonth < $LMonth))
209 $day = $day + $this->InterMonthDays;
210 for ($i = 1; $i <= 12; $i++){
211 $day = $day - $this->SMDay[$i];
212 if ($day <= 0)
213 break;
214 }
215 if ($day > 0) {
216 $SYear = $SYear + 1;
217 if ($this->isLeapYear($SYear))
218 $this->SMDay = 29;
219 for ($i = 1; $i <= 12; $i++){
220 $day = $day - $this->SMDay[$i];
221 if ($day <= 0)
222 break;
223 }
224 }
225 $day = $day + $this->SMDay[$i];
226 $SMonth = $i;
227 $SDay = $day;
228 return mktime(0, 0, 0, $SMonth, $SDay, $SYear);
229 }
230}
231?>
232
233
234
页:
[1]