03.09.2009, 08:12
|
|
Sir Richard Abramson
|
|
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
|
|
ПРобовал. Забираю из консоли результаты, код либо не до конца, либо не с начала.
Код:
<code
<span style="color: #000000">
<html>
<br /><h
ad>
<br /><titl
>Flat Cal
ndar</tit
***************** тут море тэгов
</span
<span style="color: #007700"
</span
<span style="color: #DD0000">'mday'</span><span style="color: #007700">];
<br />  
</span><span style="color: #0000BB">$year </span><span style="color: #007700">= </span
<span style="color: #0000BB">$year </span><span style="color: #007700">= </span><span style="color: #0000BB">$day</span><span style="color: #007700">[</span><span style="color: #DD0000">'year'</span><span style="color: #007700">];
<br />  
</span><span style="color: #0000BB">$event_day </span><span style="color: #007700">= </span><span style="color: #0000BB">1</span><span style="color: #007700">;
<br /> </span><span style="color: #0000BB">$event_month </span><span style="color: #007700">= </span><span style="color: #0000BB">$day</span><span style="color: #007700">[</span><span style="color: #DD0000">'month'</span><span style="color: #007700">];
<br /> </span><span style="color: #0000BB">$event_year </span><span style="color: #007700">= </span><span style="color: #0000BB">$year</span><span style="color: #007700">;
<br /> }
<br />
<br />
<br /></span><span style="color: #0000BB">$days_in_month </span><span style="color: #007700">= </span><span style="color: #0000BB">days_in_month </span><span style="color: #007700">(</span><span style="color: #0000BB">$month</span><span style="color: #007700">,&nbs
;</span><span style="color: #0000BB">$year</span><span style="color: #007700">);
<br />
<br /></span><span style="color: #0000BB">$first_day </span><span style="color: #007700">= </span><span style="color: #0000BB">mktime</span><span style="color: #007700">(</span><span style="color: #0000BB">0</span><span style="color: #007700">,</span><span style="color: #0000BB">0</span><span style="color: #007700">,</span><span style="color: #0000BB">0</span><span style="color: #007700">,</span><span style="color: #0000BB">$month</span><span style="color: #007700">,</span><span style="color: #0000BB">1</span><span style="color: #007700">,</span><span style="color: #0000BB">$year</span><span style="color: #007700">);
<br /></span><span style="color: #0000BB">$date_first </span><span style="color: #007700">= </span><span style="color: #0000BB">getdate </span><span style="color: #007700">(</span><span style="color: #0000BB">$first_day</span><span style="color: #007700">);
<br />
<br /></span><span s
yle="color: #0000BB">$last_day </span><span style="color: #007700">= </span><span style="color: #0000BB">mktime</span><span style="color: #007700">(</span><span style="color: #0000BB">0</span><span style="color: #007700">,</span><span style="color: #0000BB">0</span><span style="color: #007700">,</span><span style="color: #0000BB">0</span><span style="color: #007700">,</span><span style="color: #0000BB">$month</span><span style="color: #007700">,</span><span style="color: #0000BB">$days_in_month</span><span style="color: #007700">,</span><span style="color: #0000BB">$year</span><span style="color: #007700">);
<br /></span><span style="color: #0000BB">$d
te_last </span><span style="color: #007700">= </span><span style="color: #0000BB">
etdate</span><span style="color: #007700">(</span
<span style="color: #0000BB">$last_day</span
<span style="color: #007700">);
<br />
<br /></span><span style="color: #0000BB">
dayofweekf
rst </span><span style="color: #007700">= 
</span><span style="color: #0000BB">$date_f
rst</span><span style="color: #007700">[</span><span style="color: #DD0000"
'wday'</span><span style="color: #007700">]
<br /></span><span style="color: #0000BB">$dayof
eeklast </span><span style="color: #007700"
= </span><span style="color: #0000BB">$date_l
st</span><span style="color: #007700">[</span><span style="color: #DD0000">'
day'</span><span style="color: #007700">];
<br /
</span><span style="color: #FF8000">//end date 
calculati
ns
<br />
<br />
<br />
<br />
<br />
<br /></span><span style="color: #0000BB">pr
ntMonth</span><span style="color: #007700">
</span><span style="color: #0000BB">$mont
</span><span style="color: #007700">, </span><span style="color: #0000BB">$
ear</span><span style="color: #007700">);
<br /></span
<span style="color: #0000BB">printDays</span
<span style="color: #007700">();
<br /></span><span style="color: #0000BB">$
urrent </span><span style="color: #007700">
</span><span style="color: #0000BB">print
irstWeek</span><span style="color: #007700"
(</span><span style="color: #0000BB">$dayo
weekfirst</span
<span style="color: #007700">);
<br /></span><span style="color: #0000BB">$c
rrent </span><span style="color: #007700">= 
</span><span style="color: #0000BB">printW
ek</span><span style="color: #007700">(</span><span style="color: #0000BB">$c
rrent</span><span style="color: #007700">, </span
<span style="color: #0000BB">$days_in_m
nth</span><span style="color: #007700">);
<br /></span><span style="color: #0000BB">printLa
tWeek</span><span style="color: #007700">(</span><span style="color: #0000BB"
$current</span><span style="color: #007700"
, </span><span style="color: #0000BB">$dayo
weeklast</span><span style="color: #007700"
);
<br />
<br />
<br /></span
<span style="color: #FF8000">// Include
ooter
<br /></span><span style="color: #007700">
nclude(</span><span style="color: #DD0000">"footer.p
p"</span><span style="color: #007700">);
<br /></span><span style="color: #0000BB"
?>
<br /></span>
<br />
<br /><
BODY>
<br /></H
ML>
<br /></span>
</code
|