Calendar

ToFILE
function Cnr(){
wMo=new Array(0,31,28,31,30,31,30,31,31,30,31,30,31);
wDt=new Array('日','月','火','水','木','金','土');
wCl=new Array('#FF0000','#000000','#000000','#000000','#000000','#000000','#0000FF');
spc=new Array(3,21, 9,23, 1,1, 1,15, 2,11, 4,29, 5,3, 5,4, 5,5, 7,20, 9,15, 10,10, 11,3, 11,23, 12,23);
dd=new Date();
YY=dd.getYear();if(YY<1900)YY+=1900;
MM=dd.getMonth()+1;
if(((YY%4==0)&&(YY%100!=0))||(YY%400==0)){wMo[2]++;spc[1]++;spc[3]++}
dd.setDate(1);
cnt=dd.getDay();
day=0;
date=1;
flg=0;
kk=wMo[MM]+cnt;
amr=7-(kk%7);
if(amr==7)amr=0;
document.write('<TABLE BORDER=1><TR><TH COLSPAN=7>'+YY+'年'+MM+'月<\/TH><\/TR><TR>');
for(i=0;i<7;i++)document.write('<TH>',wDt[i],'<\/TH>');
document.write('<\/TR><TR>');
for(i=1;i<=kk+amr;i++){
hFlg=0;
if(day>=cnt&&day<kk){
wrt=''+date;
for(j=0;j<15;j++){
if((spc[j*2]==MM)&&(spc[j*2+1]==date)){
wrt=wrt.fontcolor('#FF0000');
if((day%7)==0)flg=1;
hFlg=1
}
}
date++
}else{wrt=' '}
if(hFlg==0&&flg==0)wrt=wrt.fontcolor(wCl[day%7]);
if(day%7==1&&flg==1){wrt=wrt.fontcolor('#FF0000');flg=0}
document.write('<TD ALIGN=right>'+wrt+'<\/TD>');
if(day%7==6&&day<kk-1)document.write('<\/TR><TR>');
day++
}
document.write('<\/TR><\/TABLE>')
}

ToHEAD
<SCRIPT SRC="sta.js" LANGUAGE="JavaScript" TYPE="text/javascript"></SCRIPT>

ToBODY
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript"><!--
Cnr()
//--></SCRIPT>

RESERVED
wMo,wDt,wCl,spc,dd,YY,MM,cnt,day,date,flg,kk,hFlg,wrt,amr


[BACK]       [TOP]       [Next]

Copyright (c) 2001-2002 ばあど All Rights Reserved