patokan = #8/17/99#
dim psr(5)
psr(0)="Wage, "
psr(1)="Kliwon, "
psr(2)="Legi, "
psr(3)="Pahing, "
psr(4)="Pon, "

dim hari(7)
hari(0)="Minggu "
hari(1)="Senin "
hari(2)="Selasa "
hari(3)="Rabu "
hari(4)="Kamis "
hari(5)="Jum'at "
hari(6)="Sabtu "

dim bln(12)
bln(0)=" Januari "
bln(1)=" Februari "
bln(2)=" Maret "
bln(3)=" April "
bln(4)=" Mei "
bln(5)=" Juni "
bln(6)=" Juli "
bln(7)=" Agustus "
bln(8)=" September "
bln(9)=" Oktober "
bln(10)=" November "
bln(11)=" Desember "

sisa = ((date() - patokan) Mod 5)
tglan=day(date())
lengkap=hari(weekday(date())-1)
if weekday(date())-1=0 then warna="<font size=1 face=arial color=#000000>" else warna="<font size=1 face=arial color=#000000>"
document.write warna+lengkap
document.write day(date())
document.write bln(month(date())-1)
document.write year(date())
document.write "</font>"