Calendrier roumain
Description
Un petit calendrier pour mes amis roumains. Ils sont affiches les fetes specifiques, y comprend Le Pacque Orthodoxe, Le Jour National,
etc.
etc.
Source / Exemple :
<html>
<head>
<meta http-equiv=Content-Type content="text/html; charset=windows-1250">
<title>CALENDAR</title>
</head>
<style>
body {margin-left:0.2in;margin-right:0.2in;margin-top:0.1in;background:white}
table {font-family:garamond,goudy,times,serif;font-size:12pt;font-style:normal;line-height:14pt;background:"#cccccc"}
td.galben {color:red;background:yellow}
td.verde {color:blue;background:cyan}
</style>
<body>
<?php
$ANUL=$_POST['ANUL'];
if(empty($ANUL))
{
echo '<form action="calend.php" method="post">';
echo '<input type="hidden" name="actiune" value="1">';
echo 'Anul : <input type="text" size=4 name="ANUL">';
echo '<input type="submit" value="Enter">';
echo '</form>';
exit;
}
$anul=0;
$i=0;
$j=strlen($ANUL);
if($j!=4) $i=1;
if(!ereg('^[0-9]+$',$ANUL)) $i=1;
if($i==0)
{
$anul=intval($ANUL);
if($anul<1901) $i=1;
if($anul>2100) $i=1;
}
if($i==1)
{
print("<p align=center>Anul $ANUL eronat.</p>\n");
print("</body></html>\n");
exit;
}
$tz=array(31,28,31,30,31,30,31,31,30,31,30,31);
$tx=array(0,0,0,0,0,0,0,0,0,0,0,0);
$zs=array("Luni","Marti","Miercuri","Joi","Vineri","Sâmbãtã","Duminicã");
$luni=array("IANUARIE","FEBRUARIE","MARTIE","APRILIE","MAI","IUNIE","IULIE","AUGUST","SEPTEMBRIE","OCTOMBRIE","NOIEMBRIE","DECEMBRIE");
if($anul%4==0) $tz[1]=29;else $tz[1]=28;
$zi=$anul-1901;
$zi=floor($zi/4);
$zi*=5;
$i=$anul+3;
$i%=4;
$i++;
$zi+=$i;
$zi%=7;
$decalaj=10;
if($anul>1600)
{
$secol=intval($anul/100);
$decalaj+=$secol-16-intval(($secol-16)/4);
}
$zz_pasti=$decalaj-10+((19*($anul%19)+16)%30)+((2*($anul%4)+4*($anul%7)+6*((19*($anul%19)+16)%30))%7);
$ll_pasti=4;
if($zz_pasti>30)
{
$ll_pasti++;
$zz_pasti-=30;
}
for($i=0;$i<6;$i++) $lg[$i]=0;
for($i=0;$i<12;$i++)
{
for($j=0;$j<6;$j++)
{
for($k=0;$k<7;$k++) $l[$i][$j][$k]=0;
}
}
for($i=0;$i<12;$i++)
{
$k=0; //saptamana
for($j=0;$j<$tz[$i];$j++)
{
$l[$i][$k][$zi]=$j+1;
$zi++;
if($zi>6)
{
$k++;
$zi=0;
}
}
}
$zz1_pasti=$zz_pasti+1;
$ll1_pasti=$ll_pasti;
if($zz1_pasti>$tz[$ll1_pasti-1])
{
$zz1_pasti=1;
$ll1_pasti++;
}
$luni_sarbatori=array
(
1,1,5,12,12,12,intval($ll_pasti),intval($ll1_pasti)
);
$zile_sarbatori=array
(
1,2,1,1,25,26,intval($zz_pasti),intval($zz1_pasti)
);
for($i=0;$i<12;$i++)
{
for($j=0;$j<6;$j++)
{
for($k=0;$k<5;$k++)
{
$a=$l[$i][$j][$k];
if(!$a) continue;
$liber=1;
for($m=0;$m<8;$m++)
{
if($luni_sarbatori[$m]==($i+1)&&$zile_sarbatori[$m]==$a)
{
$liber=0;
break;
}
}
$tx[$i]+=$liber;
}
}
}
for($sem=0;$sem<2;$sem++)
{
for($trim=0;$trim<2;$trim++)
{
for($luna=0;$luna<3;$luna++)
{
$ll=$sem*6+$trim*3+$luna;
$col=$trim*3+$luna;
for($j=6;$j;$j--) if($l[$ll][$j-1][0]) break;
if($j>$lg[$col]) $lg[$col]=$j;
}
}
}
$coloane=2;
for($i=0;$i<6;$i++) $coloane+=$lg[$i];
print("<table border=1 cellspacing=0 cellpadding=2 valign=top>\n");
$a=sprintf("CALENDAR %d",$anul);
$b="";
for($i=0;$i<strlen($a);$i++)
{
$b=$b.substr($a,$i,1);
for($j=0;$j<6;$j++) $b=$b." ";
}
print("<tr><td align=center colspan=$coloane><b>$b</b></td></tr>\n");
for($sem=0;$sem<2;$sem++)
{
print("<tr><td colspan=$coloane> </td></tr>\n");
print("<tr>\n");
for($trim=0;$trim<2;$trim++)
{
print("<td align=left> </td>\n");
for($luna=0;$luna<3;$luna++)
{
$a=$luni[$sem*6+$trim*3+$luna];
$i=$lg[$trim*3+$luna];
print("<td class=\"galben\" align=center colspan=$i>$a</td>\n");
}
}
printf("</tr>\n");
print("<tr>\n");
for($trim=0;$trim<2;$trim++)
{
print("<td align=left> </td>\n");
for($luna=0;$luna<3;$luna++)
{
$i=$sem*6+$trim*3+$luna;
$a=sprintf("%d/%d",$tx[$i],$tz[$i]);
$i=$lg[$trim*3+$luna];
print("<td class=\"galben\" align=center colspan=$i>$a</td>\n");
}
}
printf("</tr>\n");
for($ziua=0;$ziua<7;$ziua++)
{
print("<tr>\n");
for($trim=0;$trim<2;$trim++)
{
$a=$zs[$ziua];
print("<td class=\"verde\" align=center>$a</td>\n");
for($luna=0;$luna<3;$luna++)
{
$i=$sem*6+$trim*3+$luna;
$j=$trim*3+$luna;
for($k=0;$k<$lg[$j];$k++)
{
if(!$l[$i][$k][$ziua]) print("<td> </td>\n");
else
{
$a=$l[$i][$k][$ziua];
$liber=0;
if($ziua==5||$ziua==6) $liber=1;
if($liber==0&&$a>0)
{
for($m=0;$m<8;$m++)
{
if($luni_sarbatori[$m]==($i+1)&&$zile_sarbatori[$m]==$a)
{
$liber=1;
break;
}
}
}
if(!$liber) print("<td align=right>$a</td>\n");
else print("<td class=\"galben\" align=right><b>$a</b></td>\n");
}
}
}
}
print("</tr>\n");
}
}
$za=$zl=0;
for($i=0;$i<12;$i++)
{
$za+=$tz[$i];
$zl+=$tx[$i];
}
if($zz_pasti)
{
printf("<tr><td align=center colspan=$coloane>Anul are %d/%d zile (lucrãtoare/calendaristice). Paºtele ortodox este în ziua de %d %s.</td></tr>\n",$zl,$za,$zz_pasti,$luni[$ll_pasti-1]);
}
else
{
printf("<tr><td align=center colspan=$coloane>Anul are %d/%d zile (lucrãtoare/calendaristice).</td></tr>\n",$zl,$za);
}
print("<tr><td align=center colspan=$coloane>autor: ing.Stan Sava, Buzãu, 02-dec-2006, tel.0744/884449, bzsoft@savastan.ro</td></tr>\n");
print("</table>\n");
?>
</body>
</html>
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.