一款万年历

网页特效

2010-11-08 09:42:29 文/石磊

Months = new Array(12);
Months[0] = "一月";
Months[1] = "二月";
Months[2] = "三月";
Months[3] = "四月";
Months[4] = "五月";
Months[5] = "六月";
Months[6] = "七月";
Months[7] = "八月";
Months[8] = "九月";
Months[9] = "十月";
Months[10] = "十一月";
Months[11] = "十二月";

function PadSpaces(TheString)
{
var Spaces = " ";
len = Math.round((9 - TheString.length)/2);

return Spaces.substring(0,len) + TheString;
}

function NumLeapYears(StartYear, EndYear)
{
var LeapYears, i;

     if (EndYear >= StartYear){
         for(LeapYears = 0; StartYear <= EndYear; StartYear++)
         if (IsLeapYear(StartYear)) LeapYears++;
    }else{
    for(LeapYears = 0; EndYear <= StartYear; EndYear++)
         if (IsLeapYear(EndYear)) LeapYears++;
    }
     return LeapYears;
}

function Trim(TheString)
{
var len;

    len = TheString.length;
     while(TheString.substring(0,1) == " "){ //trim left
         TheString = TheString.substring(1, len);
          len = TheString.length;
    }

     while(TheString.substring(len-1, len) == " "){ //trim right
         TheString = TheString.substring(0, len-1);
          len = TheString.length;
     }
     return TheString;
}

function DetermineMonthIdx()
{
var i, month, month_s, len;

month = Trim(document.calform.elements[4].value);
len = month.length;

    for( i = 0; i <12; i++){
            month_s = Months[i].substring(0,len);
        if (month_s.toUpperCase() == month.toUpperCase())
                return (i);
      }
      return -1;
}

function FindNewYearStartingDay(Year)
{
var LeapYears, Years, Day;

LeapYears = NumLeapYears(1995, Year);

     if (Year >=1995)
         Years = (Year -1995)+LeapYears;
     else    Years = (Year -1995)-LeapYears;

     if (Year >=1995)
        Day = Math.round(((Years/7 - Math.floor(Years/7))*7)+.1);
     else    Day = Math.round(((Years/7 - Math.ceil(Years/7))*7)-.1);

    if (Year >=1995){
         if(IsLeapYear(Year)) Day--;
     }else Day += 7;

     if(Day < 0) Day = 6;
     if(Day > 6) Day = 0;
     return Day;
}

function FindMonthStartDay(NewYearDay, Year, Month)
{
var MonthStartDay;

AddArray = new Array(12);

      AddArray[0]=0;AddArray[1]=3;AddArray[2]=3;AddArray[3]=6;
    AddArray[4]=1;AddArray[5]=4;AddArray[6]=6;AddArray[7]=2;
    AddArray[8]=5;AddArray[9]=0;AddArray[10]=3;AddArray[11]=5;

      MonthStartDay = NewYearDay + AddArray[Month];
      if(IsLeapYear(Year) && (Month ) > 1) MonthStartDay ++;

      if (MonthStartDay > 6) MonthStartDay -= 7;

return MonthStartDay;
}

function FillCalendar()
{
var Year, Month, Midx, NewYearDay, MonthStartDay;
var NumDaysInMonth, i, t;

Year = parseFloat(document.calform.elements[1].value);
Month = document.calform.elements[4].value;

      Midx = DetermineMonthIdx();
      if (Midx == -1){
           alert ("Can't recognize that month");
           return;
      }

      NewYearDay = FindNewYearStartingDay(Year);
      MonthStartDay = FindMonthStartDay(NewYearDay, Year, Midx);
      NumDaysInMonth = FindNumDaysInMonth(Year, Midx);

      for(i = 6; i < 43; i++){
        t = i-5-MonthStartDay;
        if ( t >= 1 && t <= NumDaysInMonth)
            document.calform.elements[i].value =t;
        else document.calform.elements[i].value = "";
      }
}

function IncDecYear(val)
{
    var valNum = parseInt(val);
    var valNum2 = parseInt(document.calform.elements[1].value)
    document.calform.elements[1].value = valNum2 + valNum;

FillCalendar()
}

function IncDecMonth(val)
{
    var valNum = parseInt(val);
      var Midx = DetermineMonthIdx();

    Midx += valNum;
    if(Midx > 11) Midx = 0;
    if(Midx < 0) Midx = 11;

document.calform.elements[4].value = PadSpaces(Months[Midx]);

FillCalendar()
}

// -->
</script>
     <table border=1 bgcolor="#000000" cellpadding=1 cellspacing=1>
      <table border=0 cellpadding=0 cellspacing=0>
        <form name="calform">
          <tr>
            <td align=center cellpadding=0 cellspacing=0 bgcolor="#000000">
              <input
type=button value="<<" onClick="IncDecYear(-1)" name="button">
            </td>
            <th cellpadding=0 cellspacing=0 bgcolor="#aaaaaa" colspan=5
align=center>
              <input size=4 type=text value="1993" name="text">
            </th>
            <td align=center cellpadding=0 cellspacing=0 bgcolor="#000000">
              <input
type=button value=">>" onClick="IncDecYear(1)" name="button2">
            </td>
          </tr>
          <tr>
            <td align=center bgcolor="#000000">
              <input type=button value="<<"
onClick="IncDecMonth(-1)" name="button2">
            </td>
            <th bgcolor="#aaaaaa" colspan=5 align=center>
              <input size=9 type=text
value=" January " name="text">
            </th>
            <td align=center bgcolor="#000000">
              <input type=button value=">>"
onClick="IncDecMonth(1)" name="button2">
            </td>
          </tr>
          <tr>
            <th bgcolor="#ffcccc">S</th>
            <th bgcolor="#ccccff">M</th>
            <th bgcolor="#ccccff">T</th>
            <th bgcolor="#ccccff">W</th>
            <th bgcolor="#ccccff">T</th>
            <th bgcolor="#ccccff">F</th>
            <th bgcolor="#ccccff">S</th>
          </tr>
          <tr>
            <td bgcolor="#ffcccc">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
          </tr>
          <tr>
            <td bgcolor="#ffcccc">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
          </tr>
          <tr>
            <td bgcolor="#ffcccc">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
          </tr>
          <tr>
            <td bgcolor="#ffcccc">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
          </tr>
          <tr>
            <td bgcolor="#ffcccc">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff" >
              <input type=text size=2 name="text">
            </td>
          </tr>
          <tr>
            <td bgcolor="#ffcccc">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#ccccff">
              <input type=text size=2 name="text">
            </td>
            <td bgcolor="#3344aa" colspan=5>
              <input type=text name="text">
            </td>
          </tr>
        </form>
      </table>
    </table>