[ New messages · Members · Forum rules · Search · RSS ]
  • Page 1 of 1
  • 1
Forum » Web programlaşdırma » PHP » Takvim scripti(teqvim)
Takvim scripti(teqvim)
GanGZaman: Cümə, 2008-08-29, 11:48 PM | Mesaj # 1
Root Admin
Qrup: Admin
Mesaj: 824
Reputasiya: 0
Vəziyyət: (offline)

$ay=date("n");

$gun=date("j");

$today=date("j");

$aylar=array("Ocak","Şubat","Mart","Nisan","Mayıs","Haziran","Temmuz","Ağustos","Eylül","Ekim","Kasım","Aralık");

$gunler=array("P","S","Ç","P","C","Ct","P");

echo("

\n");

echo("

\n");

echo("

");

echo("

");

echo("

".$aylar[$ay-1]." ".date("Y")."
");

echo("

");

echo("

");

for($i=0;$i<7;$i++)

{

echo("

");

}

echo("

");

echo("

".$gunler[$i]."
");

$bir=($gun-1)*24*60*60;

$ilkgun=date("l",time()-$bir);//ilk günün hangi güne rastaladığı bulunuyor

switch($ilkgun)

{

case "Monday":

$ilk=1;

break;

case "Tuesday":

$ilk=2;

break;

case "Wednesday":

$ilk=3;

break;

case "Thursday":

$ilk=4;

break;

case "Friday":

$ilk=5;

break;

case "Saturday":

$ilk=6;

break;

case "Sunday":

$ilk=7;

break;

}

//ayın kaç çektiği bulunuyor

$son=date("t");

//işlem sonu

$basla=1;

$check = $the_day;

$doldur=0;//ayın ilk gününe kadar olan sütunlara yazı yazmamak için tanımlanmış değişken

echo("

\n");

for($i=1;$i<=6;$i++)

{

echo("

\n");

for($j=1;$j<=7;$j++)

{

if($j<$ilk && $doldur==0)

{

echo("

\n");

}

else

{

if($basla<=$son)

{

if($gun!=$basla AND $check!=$basla)

{

echo("

\n");

}

elseif ($today=$basla AND $check!=$basla)

{

echo("

\n");

}

elseif ($check=$basla )

{

echo("

\n");

}

$basla+=1;

$doldur=1;

}

}

}

echo("

\n");

}

echo("

$basla
$basla
");

?>

Forum » Web programlaşdırma » PHP » Takvim scripti(teqvim)
  • Page 1 of 1
  • 1
Search:

Investigationes
CHARLES S. ANDREWS
3139 Brownton Road
Long Community, MS 38915



+7 495 287-42-34 info@ucoz.com
Mirum
sample map