Membuat Kalender dengan PHP

Tips dan Trik IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com

Stieven R. Kalengkian
stieven@kawanuanetworks.com
http://www.php.wox.org
Lisensi Dokumen:
Copyright © 2003 IlmuKomputer.Com
Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan disebarkan
secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat tidak menghapus atau
merubah atribut penulis dan pernyataan copyright yang disertakan dalam setiap dokumen.
Tidak diperbolehkan melakukan penulisan ulang, kecuali mendapatkan ijin terlebih dahulu
dari IlmuKomputer.Com.
//bulan sekarang
$month=date("m");
//Tahun sekarang
$year=date("Y");
//hari ini
$day=date("d");
//cek jumlah hari tahun sekarang
$endDate=date("t",mktime(0,0,0,$month,$day,$year));
//style untuk table
echo '

';
//table untuk menulis tanggal sekarang
echo 'cellspacing=1 style="">

'; echo date("D, d M Y ",mktime(0,0,0,$month,$day,$year)); echo '

';
//table untuk menulis hari
echo '
style="border:1px solid #CCCCCC">








1

Tips dan Trik IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com

';
/*
mengecek tanggal 1 bulan sekarang ada pada hari ke berapa
kemudian tambahkan cell td sebanyak var $s
*/
$s=date ("w", mktime (0,0,0,$month,1,$year));
for ($ds=1;$ds<=$s;$ds++) {
echo "";
}
//memulai penulisan tanggal
for ($d=1;$d<=$endDate;$d++) {
//jika nilai $d (tanggal) adalah hari minggu (0) dibuat baris baru
if (date("w",mktime (0,0,0,$month,$d,$year)) == 0) { echo ""; }
//default warna huruf
$fontColor="#000000";
//jika tanggal adalah hari minggu warna huruf merah
if (date("D",mktime (0,0,0,$month,$d,$year)) == "Sun")
{ $fontColor="red"; }
//jika tanggal adalah hari sabtu warna huruf biru
if (date("D",mktime (0,0,0,$month,$d,$year)) == "Sat")
{ $fontColor="blue"; }
//menulis tanggal
echo "";
//jika tanggal adalah hari sabtu (6) akhiri baris
if (date("w",mktime (0,0,0,$month,$d,$year)) == 6) { echo ""; }
}
//akhir table
echo '

Su	Mo	Tu	We	Th	Fr	Sa
align=center valign=middle bgcolor=\"#FFFFFF\">
align=center valign=middle> style=\"color:$fontColor\">$d

';
?>
Selamat Mencoba
Stieven Kalengkian
YM:ipen22 ICQ:178550337 (ipen)
------------------------------------------------
Kawanua Web Design & Development
Original Script > http://www.kawanua.web.id
------------------------------------------------