'JANEIRO','2'=>'FEVEREIRO','3'=>'MARÇO','4'=>'ABRIL','5'=>'MAIO','6'=>'JUNHO','7'=>'JULHO','8'=>'AGOSTO','9'=>'SETEMBRO','10'=>'OUTUBRO','11'=>'NOVEMBRO','12'=>'DEZEMBRO');//Array com os meses do ano
/*
$dia inteiro de 1 a 31
$mes inteiro de 1 a 12
$ano inteiro de 1901 a 2038
$marca variável que termina se o valor do dia será marcado ou não.
Se diferente de zero marca.
*/
function cria($dia,$mes,$ano,$marca=0){
$verf=date ("d/n/Y", mktime (0,0,0,$mes,$dia,$ano));//Corrige qualquer data invalida
$pieces=explode("/",$verf);
$dia=$pieces[0];
$mes=$pieces[1];
$ano=$pieces[2];
$last=date ("d", mktime (0,0,0,$mes+1,0,$ano));//Inteiro do ultimo dia do mês
$diasem=date ("w", mktime (0,0,0,$mes,1,$ano));//String com dia da semana em inglês
for($i=0;$i < 42;$i++){
if($i >= $diasem and $i < ($diasem+$last)){
$aux[$i]=$i-$diasem+1;
}else{
$aux[$i]=" ";
}
}
if($marca != 0){
$aux[$diasem+$dia-1]="".$aux[$diasem+$dia-1]."";
}
for($x=0;$x < 42;$x++){
if($x%7 != 0){
$aux[$x]="\n
".$aux[$x]."
";
}else{
$aux[$x]="\n
".$aux[$x]."
";
}
}
for($y=0;$y < 42;$y+=7){
$aux[$y]="
".$aux[$y];
$aux[6+$y].="
\n";
}
echo "
".$this->mes[$mes]." $ano
D
S
T
Q
Q
S
S
";
echo implode(" ",$aux);
echo "
";
}
}
//Exemplos
$teste=new calendario;
$teste->cria(date("d"),date("n"),date("Y"),1); //Calendario com data atual
$teste->cria(-31,70,1990,1);//Calendario com data invalida
$teste->cria(3,11,2002,1);//Calendario do dia 3/11/2002
?>