カレンダー表示(6)


 年  月 


 

JavaScript

<SCRIPT Language="JavaScript">
<!--
var m0 = new Array(31,28,31,30,31,30,31,31,30,31,30,31);
var m1 = new Array("日","月","火","水","木","金","土");
var m2 = new Array("#FF0000","#000000","#000000","#000000","#000000","#000000","000080");
var col_m4 = "#FF0000";



function edit01(in_yy,in_mm){
 var i,c_gy,j,k,k2;
 var day_today = new Date();
 day_today.setYear(in_yy);
 day_today.setMonth(in_mm-1);
 var day_mm = in_mm-1;
 var day_yy = in_yy;
 var day_tday = day_today.getDate();
// 2月を29日にする
 if (((day_yy % 4 == 0) && (day_yy % 100 != 0)) || (day_yy % 400 == 0)) {
  m0[1] = 29; 
 } else {
  m0[1] = 28; 
 } 
// 月初日を設定する。
 day_today.setDate(1);
 day_yo1 = day_today.getDay();
 var day_dd = 0;
 var day_fgs = 0;
 var day_fge = 0;
// 編集個数算出
 if ((m0[day_mm] + day_yo1)%7 == 0){
  c_gy = m0[day_mm] + day_yo1;
 } else {
  c_gy = parseInt(((m0[day_mm] + day_yo1)/7+1))*7;
 } 
// 
 clOut = window.open("","ya00n2","width=220,height=240");
 with(clOut.document)
 {
  clear();
  open("text/html");
  write("<HTML><HEAD><TITLE>ya00n2</TITLE></HEAD>");
  write("<BODY bgColor=white>");
  write("<TABLE BORDER=2 CELLPADDING=2 ><TR><TD COLSPAN=7 ALIGN='center'   bgcolor='#FDF8B5'><B>"+day_yy+"年"+(day_mm+1)+"月</B></TD></TR><TR>");
  for(i=0;i<7;i++){
   write("<TD WIDTH='14%' ALIGN='center' bgcolor='#FFDFFF'><FONT COLOR="+m2[i]+"><B>",m1[i],"</B></FONT></TD>"); // 曜日書き出し
  }
  write("</TR><TR>");
//j:曜日管理、day_dd:日管理 
  j = 0;
  for(i=0;i<=c_gy-1;i++){
   if (i < day_yo1){
    write("<TD WIDTH='14%' ALIGN='center'><FONT COLOR="+m2[j]+">"," ","</FONT></TD>"); 
   } else {
    day_dd++;
    if (day_dd > m0[day_mm]){
     write("<TD WIDTH='14%' ALIGN='center'><FONT COLOR="+m2[j]+">"," ","</FONT></TD>"); 
    } else {
     write("<TD WIDTH='14%' ALIGN='center'><FONT COLOR="+m2[j]+">",day_dd,"</FONT></TD>");
    }
   }
   j++; 
   if (j > 6){
    j = 0;
    write("</TR><TR>");
   }
  }
// 
  write("</TR></TABLE>");
  write("</BODY></HTML>");
  close();
 }
}
// -->
</SCRIPT>

注意

1)JavaScriptで処理しています。JavaScript対応ブラウウザでご使用下さい。
2)ブラウザの種類によっては、年表示が正しく表示されない場合があります。
3)初期値は、2000年6月表示になっています。
4)NN対応(00/07/29)


00/07/29更新

戻る