1
|
|
|
<?php |
2
|
|
|
|
3
|
|
|
namespace BPT\external; |
4
|
|
|
|
5
|
|
|
/** |
6
|
|
|
* Time and date class for persian calendar(Solar calendar, Shamsi calendar) |
7
|
|
|
* |
8
|
|
|
* @Author : Reza Gholampanahi & WebSite : http://jdf.scr.ir |
9
|
|
|
* @License: GNU/LGPL _ Open Source & Free : [all functions] |
10
|
|
|
* @Version: 2.76 =>[ 1399/11/28 = 1442/07/04 = 2021/02/16 ] |
11
|
|
|
*/ |
12
|
|
|
class jdf { |
13
|
|
|
public static function jdate ($format, $timestamp = '', $none = '', $time_zone = 'Asia/Tehran', $tr_num = 'fa') { |
|
|
|
|
14
|
|
|
$T_sec = 0;/* <= رفع خطاي زمان سرور ، با اعداد '+' و '-' بر حسب ثانيه */ |
15
|
|
|
if ($time_zone != 'local') date_default_timezone_set(($time_zone === '') ? 'Asia/Tehran' : $time_zone); |
16
|
|
|
$ts = $T_sec + (($timestamp === '') ? time() : self::tr_num($timestamp)); |
17
|
|
|
$date = explode('_', date('H_i_j_n_O_P_s_w_Y', $ts)); |
18
|
|
|
[$j_y, $j_m, $j_d] = self::gregorian_to_jalali($date[8], $date[3], $date[2]); |
19
|
|
|
$doy = ($j_m < 7) ? (($j_m - 1) * 31) + $j_d - 1 : (($j_m - 7) * 30) + $j_d + 185; |
20
|
|
|
$kab = (((($j_y + 12) % 33) % 4) == 1) ? 1 : 0; |
21
|
|
|
$sl = strlen($format); |
22
|
|
|
$out = ''; |
23
|
|
|
for ($i = 0; $i < $sl; $i++) { |
24
|
|
|
$sub = substr($format, $i, 1); |
25
|
|
|
if ($sub == '\\') { |
26
|
|
|
$out .= substr($format, ++$i, 1); |
27
|
|
|
continue; |
28
|
|
|
} |
29
|
|
|
switch ($sub) { |
30
|
|
|
|
31
|
|
|
case 'E': |
32
|
|
|
case 'R': |
33
|
|
|
case 'x': |
34
|
|
|
case 'X': |
35
|
|
|
$out .= 'http://jdf.scr.ir'; |
36
|
|
|
break; |
37
|
|
|
case 'B': |
38
|
|
|
case 'e': |
39
|
|
|
case 'g': |
40
|
|
|
case 'G': |
41
|
|
|
case 'h': |
42
|
|
|
case 'I': |
43
|
|
|
case 'T': |
44
|
|
|
case 'u': |
45
|
|
|
case 'Z': |
46
|
|
|
$out .= date($sub, $ts); |
47
|
|
|
break; |
48
|
|
|
case 'a': |
49
|
|
|
$out .= ($date[0] < 12) ? 'ق.ظ' : 'ب.ظ'; |
50
|
|
|
break; |
51
|
|
|
case 'A': |
52
|
|
|
$out .= ($date[0] < 12) ? 'قبل از ظهر' : 'بعد از ظهر'; |
53
|
|
|
break; |
54
|
|
|
case 'b': |
55
|
|
|
$out .= (int) ($j_m / 3.1) + 1; |
56
|
|
|
break; |
57
|
|
|
case 'c': |
58
|
|
|
$out .= $j_y . '/' . $j_m . '/' . $j_d . ' ،' . $date[0] . ':' . $date[1] . ':' . $date[6] . ' ' . $date[5]; |
59
|
|
|
break; |
60
|
|
|
case 'C': |
61
|
|
|
$out .= (int) (($j_y + 99) / 100); |
62
|
|
|
break; |
63
|
|
|
case 'd': |
64
|
|
|
$out .= ($j_d < 10) ? '0' . $j_d : $j_d; |
65
|
|
|
break; |
66
|
|
|
case 'D': |
67
|
|
|
$out .= self::jdate_words(['kh' => $date[7]], ' '); |
68
|
|
|
break; |
69
|
|
|
case 'f': |
70
|
|
|
$out .= self::jdate_words(['ff' => $j_m], ' '); |
71
|
|
|
break; |
72
|
|
|
case 'F': |
73
|
|
|
$out .= self::jdate_words(['mm' => $j_m], ' '); |
74
|
|
|
break; |
75
|
|
|
case 'H': |
76
|
|
|
$out .= $date[0]; |
77
|
|
|
break; |
78
|
|
|
case 'i': |
79
|
|
|
$out .= $date[1]; |
80
|
|
|
break; |
81
|
|
|
case 'j': |
82
|
|
|
$out .= $j_d; |
83
|
|
|
break; |
84
|
|
|
case 'J': |
85
|
|
|
$out .= self::jdate_words(['rr' => $j_d], ' '); |
86
|
|
|
break; |
87
|
|
|
case 'k'; |
88
|
|
|
$out .= self::tr_num(100 - (int) ($doy / ($kab + 365.24) * 1000) / 10, $tr_num); |
89
|
|
|
break; |
90
|
|
|
case 'K': |
91
|
|
|
$out .= self::tr_num((int) ($doy / ($kab + 365.24) * 1000) / 10, $tr_num); |
92
|
|
|
break; |
93
|
|
|
case 'l': |
94
|
|
|
$out .= self::jdate_words(['rh' => $date[7]], ' '); |
95
|
|
|
break; |
96
|
|
|
case 'L': |
97
|
|
|
$out .= $kab; |
98
|
|
|
break; |
99
|
|
|
case 'm': |
100
|
|
|
$out .= ($j_m > 9) ? $j_m : '0' . $j_m; |
101
|
|
|
break; |
102
|
|
|
case 'M': |
103
|
|
|
$out .= self::jdate_words(['km' => $j_m], ' '); |
104
|
|
|
break; |
105
|
|
|
case 'n': |
106
|
|
|
$out .= $j_m; |
107
|
|
|
break; |
108
|
|
|
case 'N': |
109
|
|
|
$out .= $date[7] + 1; |
110
|
|
|
break; |
111
|
|
|
case 'o': |
112
|
|
|
$jdw = ($date[7] == 6) ? 0 : $date[7] + 1; |
113
|
|
|
$dny = 364 + $kab - $doy; |
114
|
|
|
$out .= ($jdw > ($doy + 3) and $doy < 3) ? $j_y - 1 : (((3 - $dny) > $jdw and $dny < 3) ? $j_y + 1 : $j_y); |
115
|
|
|
break; |
116
|
|
|
case 'O': |
117
|
|
|
$out .= $date[4]; |
118
|
|
|
break; |
119
|
|
|
case 'p': |
120
|
|
|
$out .= self::jdate_words(['mb' => $j_m], ' '); |
121
|
|
|
break; |
122
|
|
|
case 'P': |
123
|
|
|
$out .= $date[5]; |
124
|
|
|
break; |
125
|
|
|
case 'q': |
126
|
|
|
$out .= self::jdate_words(['sh' => $j_y], ' '); |
127
|
|
|
break; |
128
|
|
|
case 'Q': |
129
|
|
|
$out .= $kab + 364 - $doy; |
130
|
|
|
break; |
131
|
|
|
case 'r': |
132
|
|
|
$key = self::jdate_words(['rh' => $date[7], 'mm' => $j_m]); |
133
|
|
|
$out .= $date[0] . ':' . $date[1] . ':' . $date[6] . ' ' . $date[4] . ' ' . $key['rh'] . '، ' . $j_d . ' ' . $key['mm'] . ' ' . $j_y; |
134
|
|
|
break; |
135
|
|
|
case 's': |
136
|
|
|
$out .= $date[6]; |
137
|
|
|
break; |
138
|
|
|
case 'S': |
139
|
|
|
$out .= 'ام'; |
140
|
|
|
break; |
141
|
|
|
case 't': |
142
|
|
|
$out .= ($j_m != 12) ? (31 - (int) ($j_m / 6.5)) : ($kab + 29); |
143
|
|
|
break; |
144
|
|
|
case 'U': |
145
|
|
|
$out .= $ts; |
146
|
|
|
break; |
147
|
|
|
case 'v': |
148
|
|
|
$out .= self::jdate_words(['ss' => ($j_y % 100)], ' '); |
149
|
|
|
break; |
150
|
|
|
case 'V': |
151
|
|
|
$out .= self::jdate_words(['ss' => $j_y], ' '); |
152
|
|
|
break; |
153
|
|
|
case 'w': |
154
|
|
|
$out .= ($date[7] == 6) ? 0 : $date[7] + 1; |
155
|
|
|
break; |
156
|
|
|
case 'W': |
157
|
|
|
$avs = (($date[7] == 6) ? 0 : $date[7] + 1) - ($doy % 7); |
158
|
|
|
if ($avs < 0) $avs += 7; |
159
|
|
|
$num = (int) (($doy + $avs) / 7); |
160
|
|
|
if ($avs < 4) { |
161
|
|
|
$num++; |
162
|
|
|
} |
163
|
|
|
elseif ($num < 1) { |
164
|
|
|
$num = ($avs == 4 or $avs == ((((($j_y % 33) % 4) - 2) == ((int) (($j_y % 33) * 0.05))) ? 5 : 4)) ? 53 : 52; |
165
|
|
|
} |
166
|
|
|
$aks = $avs + $kab; |
167
|
|
|
if ($aks == 7) $aks = 0; |
168
|
|
|
$out .= (($kab + 363 - $doy) < $aks and $aks < 3) ? '01' : (($num < 10) ? '0' . $num : $num); |
169
|
|
|
break; |
170
|
|
|
case 'y': |
171
|
|
|
$out .= substr($j_y, 2, 2); |
172
|
|
|
break; |
173
|
|
|
case 'Y': |
174
|
|
|
$out .= $j_y; |
175
|
|
|
break; |
176
|
|
|
case 'z': |
177
|
|
|
$out .= $doy; |
178
|
|
|
break; |
179
|
|
|
default: |
180
|
|
|
$out .= $sub; |
181
|
|
|
} |
182
|
|
|
} |
183
|
|
|
return ($tr_num != 'en') ? self::tr_num($out, 'fa', '.') : $out; |
184
|
|
|
} |
185
|
|
|
public static function jstrftime ($format, $timestamp = '', $none = '', $time_zone = 'Asia/Tehran', $tr_num = 'fa') { |
|
|
|
|
186
|
|
|
$T_sec = 0;/* <= رفع خطاي زمان سرور ، با اعداد '+' و '-' بر حسب ثانيه */ |
187
|
|
|
if ($time_zone != 'local') date_default_timezone_set(($time_zone === '') ? 'Asia/Tehran' : $time_zone); |
188
|
|
|
$ts = $T_sec + (($timestamp === '') ? time() : self::tr_num($timestamp)); |
189
|
|
|
$date = explode('_', date('h_H_i_j_n_s_w_Y', $ts)); |
190
|
|
|
[$j_y, $j_m, $j_d] = self::gregorian_to_jalali($date[7], $date[4], $date[3]); |
191
|
|
|
$doy = ($j_m < 7) ? (($j_m - 1) * 31) + $j_d - 1 : (($j_m - 7) * 30) + $j_d + 185; |
192
|
|
|
$kab = (((($j_y + 12) % 33) % 4) == 1) ? 1 : 0; |
193
|
|
|
$sl = strlen($format); |
194
|
|
|
$out = ''; |
195
|
|
|
for ($i = 0; $i < $sl; $i++) { |
196
|
|
|
$sub = substr($format, $i, 1); |
197
|
|
|
if ($sub == '%') { |
198
|
|
|
$sub = substr($format, ++$i, 1); |
199
|
|
|
} |
200
|
|
|
else { |
201
|
|
|
$out .= $sub; |
202
|
|
|
continue; |
203
|
|
|
} |
204
|
|
|
switch ($sub) { |
205
|
|
|
|
206
|
|
|
/* Day */ |
207
|
|
|
case 'a': |
208
|
|
|
$out .= self::jdate_words(['kh' => $date[6]], ' '); |
209
|
|
|
break; |
210
|
|
|
case 'A': |
211
|
|
|
$out .= self::jdate_words(['rh' => $date[6]], ' '); |
212
|
|
|
break; |
213
|
|
|
case 'd': |
214
|
|
|
$out .= ($j_d < 10) ? '0' . $j_d : $j_d; |
215
|
|
|
break; |
216
|
|
|
case 'e': |
217
|
|
|
$out .= ($j_d < 10) ? ' ' . $j_d : $j_d; |
218
|
|
|
break; |
219
|
|
|
case 'j': |
220
|
|
|
$out .= str_pad($doy + 1, 3, 0, STR_PAD_LEFT); |
221
|
|
|
break; |
222
|
|
|
case 'u': |
223
|
|
|
$out .= $date[6] + 1; |
224
|
|
|
break; |
225
|
|
|
case 'w': |
226
|
|
|
$out .= ($date[6] == 6) ? 0 : $date[6] + 1; |
227
|
|
|
break; |
228
|
|
|
/* Week */ |
229
|
|
|
case 'U': |
230
|
|
|
$avs = (($date[6] < 5) ? $date[6] + 2 : $date[6] - 5) - ($doy % 7); |
231
|
|
|
if ($avs < 0) $avs += 7; |
232
|
|
|
$num = (int) (($doy + $avs) / 7) + 1; |
233
|
|
|
if ($avs > 3 or $avs == 1) $num--; |
234
|
|
|
$out .= ($num < 10) ? '0' . $num : $num; |
235
|
|
|
break; |
236
|
|
|
case 'V': |
237
|
|
|
$avs = (($date[6] == 6) ? 0 : $date[6] + 1) - ($doy % 7); |
238
|
|
|
if ($avs < 0) $avs += 7; |
239
|
|
|
$num = (int) (($doy + $avs) / 7); |
240
|
|
|
if ($avs < 4) { |
241
|
|
|
$num++; |
242
|
|
|
} |
243
|
|
|
elseif ($num < 1) { |
244
|
|
|
$num = ($avs == 4 or $avs == ((((($j_y % 33) % 4) - 2) == ((int) (($j_y % 33) * 0.05))) ? 5 : 4)) ? 53 : 52; |
245
|
|
|
} |
246
|
|
|
$aks = $avs + $kab; |
247
|
|
|
if ($aks == 7) $aks = 0; |
248
|
|
|
$out .= (($kab + 363 - $doy) < $aks and $aks < 3) ? '01' : (($num < 10) ? '0' . $num : $num); |
249
|
|
|
break; |
250
|
|
|
case 'W': |
251
|
|
|
$avs = (($date[6] == 6) ? 0 : $date[6] + 1) - ($doy % 7); |
252
|
|
|
if ($avs < 0) $avs += 7; |
253
|
|
|
$num = (int) (($doy + $avs) / 7) + 1; |
254
|
|
|
if ($avs > 3) $num--; |
255
|
|
|
$out .= ($num < 10) ? '0' . $num : $num; |
256
|
|
|
break; |
257
|
|
|
/* Month */ |
258
|
|
|
case 'b': |
259
|
|
|
case 'h': |
260
|
|
|
$out .= self::jdate_words(['km' => $j_m], ' '); |
261
|
|
|
break; |
262
|
|
|
case 'B': |
263
|
|
|
$out .= self::jdate_words(['mm' => $j_m], ' '); |
264
|
|
|
break; |
265
|
|
|
case 'm': |
266
|
|
|
$out .= ($j_m > 9) ? $j_m : '0' . $j_m; |
267
|
|
|
break; |
268
|
|
|
/* Year */ |
269
|
|
|
case 'C': |
270
|
|
|
$tmp = (int) ($j_y / 100); |
271
|
|
|
$out .= ($tmp > 9) ? $tmp : '0' . $tmp; |
272
|
|
|
break; |
273
|
|
|
case 'g': |
274
|
|
|
$jdw = ($date[6] == 6) ? 0 : $date[6] + 1; |
275
|
|
|
$dny = 364 + $kab - $doy; |
276
|
|
|
$out .= substr(($jdw > ($doy + 3) and $doy < 3) ? $j_y - 1 : (((3 - $dny) > $jdw and $dny < 3) ? $j_y + 1 : $j_y), 2, 2); |
277
|
|
|
break; |
278
|
|
|
case 'G': |
279
|
|
|
$jdw = ($date[6] == 6) ? 0 : $date[6] + 1; |
280
|
|
|
$dny = 364 + $kab - $doy; |
281
|
|
|
$out .= ($jdw > ($doy + 3) and $doy < 3) ? $j_y - 1 : (((3 - $dny) > $jdw and $dny < 3) ? $j_y + 1 : $j_y); |
282
|
|
|
break; |
283
|
|
|
case 'y': |
284
|
|
|
$out .= substr($j_y, 2, 2); |
285
|
|
|
break; |
286
|
|
|
case 'Y': |
287
|
|
|
$out .= $j_y; |
288
|
|
|
break; |
289
|
|
|
/* Time */ |
290
|
|
|
case 'H': |
291
|
|
|
$out .= $date[1]; |
292
|
|
|
break; |
293
|
|
|
case 'I': |
294
|
|
|
$out .= $date[0]; |
295
|
|
|
break; |
296
|
|
|
case 'l': |
297
|
|
|
$out .= ($date[0] > 9) ? $date[0] : ' ' . (int) $date[0]; |
298
|
|
|
break; |
299
|
|
|
case 'M': |
300
|
|
|
$out .= $date[2]; |
301
|
|
|
break; |
302
|
|
|
case 'p': |
303
|
|
|
$out .= ($date[1] < 12) ? 'قبل از ظهر' : 'بعد از ظهر'; |
304
|
|
|
break; |
305
|
|
|
case 'P': |
306
|
|
|
$out .= ($date[1] < 12) ? 'ق.ظ' : 'ب.ظ'; |
307
|
|
|
break; |
308
|
|
|
case 'r': |
309
|
|
|
$out .= $date[0] . ':' . $date[2] . ':' . $date[5] . ' ' . (($date[1] < 12) ? 'قبل از ظهر' : 'بعد از ظهر'); |
310
|
|
|
break; |
311
|
|
|
case 'R': |
312
|
|
|
$out .= $date[1] . ':' . $date[2]; |
313
|
|
|
break; |
314
|
|
|
case 'S': |
315
|
|
|
$out .= $date[5]; |
316
|
|
|
break; |
317
|
|
|
case 'T': |
318
|
|
|
$out .= $date[1] . ':' . $date[2] . ':' . $date[5]; |
319
|
|
|
break; |
320
|
|
|
case 'X': |
321
|
|
|
$out .= $date[0] . ':' . $date[2] . ':' . $date[5]; |
322
|
|
|
break; |
323
|
|
|
case 'z': |
324
|
|
|
$out .= date('O', $ts); |
325
|
|
|
break; |
326
|
|
|
case 'Z': |
327
|
|
|
$out .= date('T', $ts); |
328
|
|
|
break; |
329
|
|
|
/* Time and Date Stamps */ |
330
|
|
|
case 'c': |
331
|
|
|
$key = self::jdate_words(['rh' => $date[6], 'mm' => $j_m]); |
332
|
|
|
$out .= $date[1] . ':' . $date[2] . ':' . $date[5] . ' ' . date('P', $ts) . ' ' . $key['rh'] . '، ' . $j_d . ' ' . $key['mm'] . ' ' . $j_y; |
333
|
|
|
break; |
334
|
|
|
case 'D': |
335
|
|
|
$out .= substr($j_y, 2, 2) . '/' . (($j_m > 9) ? $j_m : '0' . $j_m) . '/' . (($j_d < 10) ? '0' . $j_d : $j_d); |
336
|
|
|
break; |
337
|
|
|
case 'F': |
338
|
|
|
$out .= $j_y . '-' . (($j_m > 9) ? $j_m : '0' . $j_m) . '-' . (($j_d < 10) ? '0' . $j_d : $j_d); |
339
|
|
|
break; |
340
|
|
|
case 's': |
341
|
|
|
$out .= $ts; |
342
|
|
|
break; |
343
|
|
|
case 'x': |
344
|
|
|
$out .= substr($j_y, 2, 2) . '/' . (($j_m > 9) ? $j_m : '0' . $j_m) . '/' . (($j_d < 10) ? '0' . $j_d : $j_d); |
345
|
|
|
break; |
346
|
|
|
/* Miscellaneous */ |
347
|
|
|
case 'n': |
348
|
|
|
$out .= "\n"; |
349
|
|
|
break; |
350
|
|
|
case 't': |
351
|
|
|
$out .= "\t"; |
352
|
|
|
break; |
353
|
|
|
case '%': |
354
|
|
|
$out .= '%'; |
355
|
|
|
break; |
356
|
|
|
default: |
357
|
|
|
$out .= $sub; |
358
|
|
|
} |
359
|
|
|
} |
360
|
|
|
return ($tr_num != 'en') ? self::tr_num($out, 'fa', '.') : $out; |
361
|
|
|
} |
362
|
|
|
public static function jmktime ($h = '', $m = '', $s = '', $jm = '', $jd = '', $jy = '', $none = '', $timezone = 'Asia/Tehran') { |
|
|
|
|
363
|
|
|
if ($timezone != 'local') date_default_timezone_set($timezone); |
364
|
|
|
if ($h === '') { |
365
|
|
|
return time(); |
366
|
|
|
} |
367
|
|
|
else { |
368
|
|
|
[ |
369
|
|
|
$h, |
370
|
|
|
$m, |
371
|
|
|
$s, |
372
|
|
|
$jm, |
373
|
|
|
$jd, |
374
|
|
|
$jy |
375
|
|
|
] = explode('_', self::tr_num($h . '_' . $m . '_' . $s . '_' . $jm . '_' . $jd . '_' . $jy)); |
376
|
|
|
if ($m === '') { |
377
|
|
|
return mktime($h); |
|
|
|
|
378
|
|
|
} |
379
|
|
|
else { |
380
|
|
|
if ($s === '') { |
381
|
|
|
return mktime($h, $m); |
|
|
|
|
382
|
|
|
} |
383
|
|
|
else { |
384
|
|
|
if ($jm === '') { |
385
|
|
|
return mktime($h, $m, $s); |
|
|
|
|
386
|
|
|
} |
387
|
|
|
else { |
388
|
|
|
$jdate = explode('_', self::jdate('Y_j', '', '', $timezone, 'en')); |
389
|
|
|
if ($jd === '') { |
390
|
|
|
[$gy, $gm, $gd] = self::jalali_to_gregorian($jdate[0], $jm, $jdate[1]); |
391
|
|
|
return mktime($h, $m, $s, $gm); |
392
|
|
|
} |
393
|
|
|
else { |
394
|
|
|
if ($jy === '') { |
395
|
|
|
[$gy, $gm, $gd] = self::jalali_to_gregorian($jdate[0], $jm, $jd); |
396
|
|
|
return mktime($h, $m, $s, $gm, $gd); |
397
|
|
|
} |
398
|
|
|
else { |
399
|
|
|
[$gy, $gm, $gd] = self::jalali_to_gregorian($jy, $jm, $jd); |
400
|
|
|
return mktime($h, $m, $s, $gm, $gd, $gy); |
401
|
|
|
} |
402
|
|
|
} |
403
|
|
|
} |
404
|
|
|
} |
405
|
|
|
} |
406
|
|
|
} |
407
|
|
|
} |
408
|
|
|
public static function jgetdate ($timestamp = '', $none = '', $timezone = 'Asia/Tehran', $tn = 'en') { |
|
|
|
|
409
|
|
|
$ts = ($timestamp === '') ? time() : self::tr_num($timestamp); |
410
|
|
|
$jdate = explode('_', self::jdate('F_G_i_j_l_n_s_w_Y_z', $ts, '', $timezone, $tn)); |
411
|
|
|
return [ |
412
|
|
|
'seconds' => self::tr_num((int) self::tr_num($jdate[6]), $tn), |
413
|
|
|
'minutes' => self::tr_num((int) self::tr_num($jdate[2]), $tn), |
414
|
|
|
'hours' => $jdate[1], |
415
|
|
|
'mday' => $jdate[3], |
416
|
|
|
'wday' => $jdate[7], |
417
|
|
|
'mon' => $jdate[5], |
418
|
|
|
'year' => $jdate[8], |
419
|
|
|
'yday' => $jdate[9], |
420
|
|
|
'weekday' => $jdate[4], |
421
|
|
|
'month' => $jdate[0], |
422
|
|
|
0 => self::tr_num($ts, $tn) |
423
|
|
|
]; |
424
|
|
|
} |
425
|
|
|
public static function jcheckdate ($jm, $jd, $jy) { |
426
|
|
|
[$jm, $jd, $jy] = explode('_', self::tr_num($jm . '_' . $jd . '_' . $jy)); |
427
|
|
|
$l_d = ($jm == 12 and ((($jy + 12) % 33) % 4) != 1) ? 29 : (31 - (int) ($jm / 6.5)); |
428
|
|
|
return ($jm > 12 or $jd > $l_d or $jm < 1 or $jd < 1 or $jy < 1) ? false : true; |
429
|
|
|
} |
430
|
|
|
public static function tr_num ($str, $mod = 'en', $mf = '٫') { |
431
|
|
|
$num_a = ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '.']; |
432
|
|
|
$key_a = ['۰', '۱', '۲', '۳', '۴', '۵', '۶', '۷', '۸', '۹', $mf]; |
433
|
|
|
return ($mod == 'fa') ? str_replace($num_a, $key_a, $str) : str_replace($key_a, $num_a, $str); |
434
|
|
|
} |
435
|
|
|
public static function jdate_words ($array, $mod = '') { |
436
|
|
|
foreach ($array as $type => $num) { |
437
|
|
|
$num = (int) self::tr_num($num); |
438
|
|
|
switch ($type) { |
439
|
|
|
|
440
|
|
|
case 'ss': |
441
|
|
|
$sl = strlen($num); |
442
|
|
|
$xy3 = substr($num, 2 - $sl, 1); |
443
|
|
|
$h3 = $h34 = $h4 = ''; |
444
|
|
|
if ($xy3 == 1) { |
445
|
|
|
$p34 = ''; |
446
|
|
|
$k34 = ['ده', 'یازده', 'دوازده', 'سیزده', 'چهارده', 'پانزده', 'شانزده', 'هفده', 'هجده', 'نوزده']; |
447
|
|
|
$h34 = $k34[substr($num, 2 - $sl, 2) - 10]; |
448
|
|
|
} |
449
|
|
|
else { |
450
|
|
|
$xy4 = substr($num, 3 - $sl, 1); |
451
|
|
|
$p34 = ($xy3 == 0 or $xy4 == 0) ? '' : ' و '; |
452
|
|
|
$k3 = ['', '', 'بیست', 'سی', 'چهل', 'پنجاه', 'شصت', 'هفتاد', 'هشتاد', 'نود']; |
453
|
|
|
$h3 = $k3[$xy3]; |
454
|
|
|
$k4 = ['', 'یک', 'دو', 'سه', 'چهار', 'پنج', 'شش', 'هفت', 'هشت', 'نه']; |
455
|
|
|
$h4 = $k4[$xy4]; |
456
|
|
|
} |
457
|
|
|
$array[$type] = (($num > 99) ? str_replace(['12', '13', '14', '19', '20'], [ |
458
|
|
|
'هزار و دویست', |
459
|
|
|
'هزار و سیصد', |
460
|
|
|
'هزار و چهارصد', |
461
|
|
|
'هزار و نهصد', |
462
|
|
|
'دوهزار' |
463
|
|
|
], substr($num, 0, 2)) . ((substr($num, 2, 2) == '00') ? '' : ' و ') : '') . $h3 . $p34 . $h34 . $h4; |
464
|
|
|
break; |
465
|
|
|
case 'mm': |
466
|
|
|
$key = [ |
467
|
|
|
'فروردین', |
468
|
|
|
'اردیبهشت', |
469
|
|
|
'خرداد', |
470
|
|
|
'تیر', |
471
|
|
|
'مرداد', |
472
|
|
|
'شهریور', |
473
|
|
|
'مهر', |
474
|
|
|
'آبان', |
475
|
|
|
'آذر', |
476
|
|
|
'دی', |
477
|
|
|
'بهمن', |
478
|
|
|
'اسفند' |
479
|
|
|
]; |
480
|
|
|
$array[$type] = $key[$num - 1]; |
481
|
|
|
break; |
482
|
|
|
case 'rr': |
483
|
|
|
$key = [ |
484
|
|
|
'یک', |
485
|
|
|
'دو', |
486
|
|
|
'سه', |
487
|
|
|
'چهار', |
488
|
|
|
'پنج', |
489
|
|
|
'شش', |
490
|
|
|
'هفت', |
491
|
|
|
'هشت', |
492
|
|
|
'نه', |
493
|
|
|
'ده', |
494
|
|
|
'یازده', |
495
|
|
|
'دوازده', |
496
|
|
|
'سیزده', |
497
|
|
|
'چهارده', |
498
|
|
|
'پانزده', |
499
|
|
|
'شانزده', |
500
|
|
|
'هفده', |
501
|
|
|
'هجده', |
502
|
|
|
'نوزده', |
503
|
|
|
'بیست', |
504
|
|
|
'بیست و یک', |
505
|
|
|
'بیست و دو', |
506
|
|
|
'بیست و سه', |
507
|
|
|
'بیست و چهار', |
508
|
|
|
'بیست و پنج', |
509
|
|
|
'بیست و شش', |
510
|
|
|
'بیست و هفت', |
511
|
|
|
'بیست و هشت', |
512
|
|
|
'بیست و نه', |
513
|
|
|
'سی', |
514
|
|
|
'سی و یک' |
515
|
|
|
]; |
516
|
|
|
$array[$type] = $key[$num - 1]; |
517
|
|
|
break; |
518
|
|
|
case 'rh': |
519
|
|
|
$key = ['یکشنبه', 'دوشنبه', 'سه شنبه', 'چهارشنبه', 'پنجشنبه', 'جمعه', 'شنبه']; |
520
|
|
|
$array[$type] = $key[$num]; |
521
|
|
|
break; |
522
|
|
|
case 'sh': |
523
|
|
|
$key = ['مار', 'اسب', 'گوسفند', 'میمون', 'مرغ', 'سگ', 'خوک', 'موش', 'گاو', 'پلنگ', 'خرگوش', 'نهنگ']; |
524
|
|
|
$array[$type] = $key[$num % 12]; |
525
|
|
|
break; |
526
|
|
|
case 'mb': |
527
|
|
|
$key = ['حمل', 'ثور', 'جوزا', 'سرطان', 'اسد', 'سنبله', 'میزان', 'عقرب', 'قوس', 'جدی', 'دلو', 'حوت']; |
528
|
|
|
$array[$type] = $key[$num - 1]; |
529
|
|
|
break; |
530
|
|
|
case 'ff': |
531
|
|
|
$key = ['بهار', 'تابستان', 'پاییز', 'زمستان']; |
532
|
|
|
$array[$type] = $key[(int) ($num / 3.1)]; |
533
|
|
|
break; |
534
|
|
|
case 'km': |
535
|
|
|
$key = ['فر', 'ار', 'خر', 'تی', 'مر', 'شه', 'مه', 'آب', 'آذ', 'دی', 'به', 'اس']; |
536
|
|
|
$array[$type] = $key[$num - 1]; |
537
|
|
|
break; |
538
|
|
|
case 'kh': |
539
|
|
|
$key = ['ی', 'د', 'س', 'چ', 'پ', 'ج', 'ش']; |
540
|
|
|
$array[$type] = $key[$num]; |
541
|
|
|
break; |
542
|
|
|
default: |
543
|
|
|
$array[$type] = $num; |
544
|
|
|
} |
545
|
|
|
} |
546
|
|
|
return ($mod === '') ? $array : implode($mod, $array); |
547
|
|
|
} |
548
|
|
|
public static function gregorian_to_jalali ($gy, $gm, $gd, $mod = '') { |
549
|
|
|
[$gy, $gm, $gd] = explode('_', self::tr_num($gy . '_' . $gm . '_' . $gd));/* <= Extra :اين سطر ، جزء تابع اصلي نيست */ |
550
|
|
|
$g_d_m = [0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334]; |
551
|
|
|
$gy2 = ($gm > 2) ? ($gy + 1) : $gy; |
552
|
|
|
$days = 355666 + (365 * $gy) + ((int) (($gy2 + 3) / 4)) - ((int) (($gy2 + 99) / 100)) + ((int) (($gy2 + 399) / 400)) + $gd + $g_d_m[$gm - 1]; |
553
|
|
|
$jy = -1595 + (33 * ((int) ($days / 12053))); |
554
|
|
|
$days %= 12053; |
555
|
|
|
$jy += 4 * ((int) ($days / 1461)); |
556
|
|
|
$days %= 1461; |
557
|
|
|
if ($days > 365) { |
558
|
|
|
$jy += (int) (($days - 1) / 365); |
559
|
|
|
$days = ($days - 1) % 365; |
560
|
|
|
} |
561
|
|
|
if ($days < 186) { |
562
|
|
|
$jm = 1 + (int) ($days / 31); |
563
|
|
|
$jd = 1 + ($days % 31); |
564
|
|
|
} |
565
|
|
|
else { |
566
|
|
|
$jm = 7 + (int) (($days - 186) / 30); |
567
|
|
|
$jd = 1 + (($days - 186) % 30); |
568
|
|
|
} |
569
|
|
|
return ($mod == '') ? [$jy, $jm, $jd] : $jy . $mod . $jm . $mod . $jd; |
570
|
|
|
} |
571
|
|
|
public static function jalali_to_gregorian ($jy, $jm, $jd, $mod = '') { |
572
|
|
|
[$jy, $jm, $jd] = explode('_', self::tr_num($jy . '_' . $jm . '_' . $jd));/* <= Extra :اين سطر ، جزء تابع اصلي نيست */ |
573
|
|
|
$jy += 1595; |
574
|
|
|
$days = -355668 + (365 * $jy) + (((int) ($jy / 33)) * 8) + ((int) ((($jy % 33) + 3) / 4)) + $jd + (($jm < 7) ? ($jm - 1) * 31 : (($jm - 7) * 30) + 186); |
575
|
|
|
$gy = 400 * ((int) ($days / 146097)); |
576
|
|
|
$days %= 146097; |
577
|
|
|
if ($days > 36524) { |
578
|
|
|
$gy += 100 * ((int) (--$days / 36524)); |
579
|
|
|
$days %= 36524; |
580
|
|
|
if ($days >= 365) $days++; |
581
|
|
|
} |
582
|
|
|
$gy += 4 * ((int) ($days / 1461)); |
583
|
|
|
$days %= 1461; |
584
|
|
|
if ($days > 365) { |
585
|
|
|
$gy += (int) (($days - 1) / 365); |
586
|
|
|
$days = ($days - 1) % 365; |
587
|
|
|
} |
588
|
|
|
$gd = $days + 1; |
589
|
|
|
$sal_a = [ |
590
|
|
|
0, |
591
|
|
|
31, |
592
|
|
|
(($gy % 4 == 0 and $gy % 100 != 0) or ($gy % 400 == 0)) ? 29 : 28, |
593
|
|
|
31, |
594
|
|
|
30, |
595
|
|
|
31, |
596
|
|
|
30, |
597
|
|
|
31, |
598
|
|
|
31, |
599
|
|
|
30, |
600
|
|
|
31, |
601
|
|
|
30, |
602
|
|
|
31 |
603
|
|
|
]; |
604
|
|
|
for ($gm = 0; $gm < 13 and $gd > $sal_a[$gm]; $gm++) $gd -= $sal_a[$gm]; |
605
|
|
|
return ($mod == '') ? [$gy, $gm, $gd] : $gy . $mod . $gm . $mod . $gd; |
606
|
|
|
} |
607
|
|
|
} |
This check looks for parameters that have been defined for a function or method, but which are not used in the method body.