// onclick="s2_calendar_D(this)"
/**收收 譯萼渦 婦溼ヘ熱 衛濛 收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收**/

var s2_calendar_target;
var s2_calendar_pop_top;
var s2_calendar_pop_left;
var s2_calendar_day;
var s2_calendar_popup = window.createPopup();

function s2_calendar_click(e)
{
    s2_calendar_day = e.title;
    if (s2_calendar_day.length > 6)
    {
        s2_calendar_target.value = s2_calendar_day
    }
    s2_calendar_popup.hide();
}

function s2_calendar_D(obj)
{
    var now = obj.value.split("-");
    s2_calendar_target   = obj;
    s2_calendar_pop_top  = document.body.clientTop + s2_calendar_get_object_top(obj) - document.body.scrollTop;
    s2_calendar_pop_left = document.body.clientLeft + s2_calendar_get_object_left(obj) -  document.body.scrollLeft;

    if (now.length == 3) {
        s2_calendar_show(now[0],now[1],now[2]);
    } else {
        now = new Date();
        s2_calendar_show(now.getFullYear(), now.getMonth()+1, now.getDate());
    }
}

function s2_calendar_M(obj)
{
    var now = obj.value.split("-");
    s2_calendar_target = obj;
    s2_calendar_pop_top = document.body.clientTop + s2_calendar_get_object_top(obj) - document.body.scrollTop;
    s2_calendar_pop_left = document.body.clientLeft + s2_calendar_get_object_left(obj) -  document.body.scrollLeft;

    if (now.length == 2) {
        s2_calendar_show_cal_m(now[0],now[1]);
    } else {
        now = new Date();
        s2_calendar_show_cal_m(now.getFullYear(), now.getMonth()+1);
    }
}

function s2_calendar_do_over(el)
{
    s2_calendar_day = el.title;

    if (s2_calendar_day.length > 7) {
        el.style.borderColor = "#FF0000";
    }
}

function s2_calendar_do_out(el)
{
    s2_calendar_day = el.title;

    if (s2_calendar_day.length > 7) {
        el.style.borderColor = "#FFFFFF";
    }
}

function s2_calendar_day2(d)    //2濠葬 璋濠煎 滲唳
{
    var str = new String();

    if (parseInt(d) < 10) {
        str = "0" + parseInt(d);
    } else {
        str = "" + parseInt(d);
    }
    return str;
}

function s2_calendar_show(sYear, sMonth, sDay)
{
    var Months_day = new Array(0,31,28,31,30,31,30,31,31,30,31,30,31)
    var Month_Val = new Array("01","02","03","04","05","06","07","08","09","10","11","12");
    var intThisYear = new Number(), intThisMonth = new Number(), intThisDay = new Number();

    datToday = new Date(); // Г營 陳濠 撲薑

    intThisYear = parseInt(sYear,10);
    intThisMonth = parseInt(sMonth,10);
    intThisDay = parseInt(sDay,10);

    if (intThisYear == 0) intThisYear = datToday.getFullYear();                 // 高檜 橈擊 唳辦
    if (intThisMonth == 0) intThisMonth = parseInt(datToday.getMonth(),10)+1;   // 錯 高擎 褒薯高 爾棻 -1 フ 高檜 腋給溥 霞棻.
    if (intThisDay == 0) intThisDay = datToday.getDate();

    switch(intThisMonth)
    {
        case 1:
                intPrevYear = intThisYear -1;
                intPrevMonth = 12;
                intNextYear = intThisYear;
                intNextMonth = 2;
                break;
        case 12:
                intPrevYear = intThisYear;
                intPrevMonth = 11;
                intNextYear = intThisYear + 1;
                intNextMonth = 1;
                break;
        default:
                intPrevYear = intThisYear;
                intPrevMonth = parseInt(intThisMonth,10) - 1;
                intNextYear = intThisYear;
                intNextMonth = parseInt(intThisMonth,10) + 1;
                break;
    }
    intPPyear = intThisYear-1
    intNNyear = intThisYear+1

    NowThisYear = datToday.getFullYear();                               // Г營 喇
    NowThisMonth = datToday.getMonth()+1;                               // Г營 錯
    NowThisDay = datToday.getDate();                                    // Г營 橾

    datFirstDay = new Date(intThisYear, intThisMonth-1, 1);             // Г營 殖曖 1橾煎 陳濠 偌羹 儅撩(錯擎 0睡攪 11梱雖曖 薑熱(1錯睡攪 12錯))
    intFirstWeekday = datFirstDay.getDay();                             // Г營 殖 1橾曖 蹂橾擊 掘ヘ (0:橾蹂橾, 1:錯蹂橾)
  //intSecondWeekday = intFirstWeekday;
    intThirdWeekday = intFirstWeekday;

    datThisDay = new Date(intThisYear, intThisMonth, intThisDay);       // 剩橫螞 高曖 陳濠 儅撩
  //intThisWeekday = datThisDay.getDay();                               // 剩橫螞 陳濠曖 輿 蹂橾

    intPrintDay = 1;                                                    // 殖曖 衛濛 橾濠
    secondPrintDay = 1;
    thirdPrintDay = 1;

    Stop_Flag = 0

    if ((intThisYear % 4)==0) {                                         // 4喇葆棻 1廓檜賊 (餌煎釭援橫 雲橫雖賊)
        if ((intThisYear % 100) == 0) {
            if ((intThisYear % 400) == 0) {
                Months_day[2] = 29;
            }
        } else {
            Months_day[2] = 29;
        }
    }
    intLastDay = Months_day[intThisMonth];                              // 葆雖虞 橾濠 掘ヘ

    Cal_HTML = "<html><body>";
    Cal_HTML += "<form name='calendar'>";
    Cal_HTML += "<table id=Cal_Table border=0 bgcolor='#f4f4f4' cellpadding=1 cellspacing=1 width=100% onmouseover='parent.s2_calendar_do_over(window.event.srcElement)' onmouseout='parent.s2_calendar_do_out(window.event.srcElement)' style='font-size : 12;font-family:掉葡;'>";
    Cal_HTML += "<tr height='28' align=center bgcolor='#f4f4f4'>";
    Cal_HTML += "<td colspan=7 align=center>";
    Cal_HTML += "   <select name='selYear' STYLE='font-size:11;' OnChange='parent.s2_calendar_change_year_d(calendar.selYear.value, calendar.selMonth.value, "+intThisDay+")';>";
    for (var optYear=(intThisYear-20); optYear<=(intThisYear+2); optYear++) {
        Cal_HTML += "       <option value='"+optYear+"' ";
        if (optYear == intThisYear) Cal_HTML += " selected>\n";
        else Cal_HTML += ">\n";
        Cal_HTML += optYear+"</option>\n";
    }
    Cal_HTML += "   </select>";
    Cal_HTML += "&nbsp;&nbsp;&nbsp;<a style='cursor:hand;' OnClick='parent.s2_calendar_show("+intPrevYear+","+intPrevMonth+","+intThisDay+");'>９</a> ";
    Cal_HTML += "<select name='selMonth' STYLE='font-size:11;' OnChange='parent.s2_calendar_change_year_d(calendar.selYear.value, calendar.selMonth.value, "+intThisDay+")';>";
    for (var i=1; i<13; i++) {
        Cal_HTML += "       <option value='"+Month_Val[i-1]+"' ";
        if (intThisMonth == parseInt(Month_Val[i-1],10)) Cal_HTML += " selected>\n";
        else Cal_HTML += ">\n";
        Cal_HTML += Month_Val[i-1]+"</option>\n";
    }
    Cal_HTML += "   </select>&nbsp;";
    Cal_HTML += "<a style='cursor:hand;' OnClick='parent.s2_calendar_show("+intNextYear+","+intNextMonth+","+intThisDay+");'>Ⅱ</a>";
    Cal_HTML += "</td></tr>";
    Cal_HTML += "<tr align=center bgcolor='#87B3D6' style='color:#2065DA;' height='25'>";
    Cal_HTML += "   <td style='padding-top:3px;' width='24'><font color=black>橾</font></td>";
    Cal_HTML += "   <td style='padding-top:3px;' width='24'><font color=black>錯</font></td>";
    Cal_HTML += "   <td style='padding-top:3px;' width='24'><font color=black>�</font></td>";
    Cal_HTML += "   <td style='padding-top:3px;' width='24'><font color=black>熱</font></td>";
    Cal_HTML += "   <td style='padding-top:3px;' width='24'><font color=black>跡</font></td>";
    Cal_HTML += "   <td style='padding-top:3px;' width='24'><font color=black>旎</font></td>";
    Cal_HTML += "   <td style='padding-top:3px;' width='24'><font color=black>饜</font></td>";
    Cal_HTML += "</tr>";

    for (intLoopWeek=1; intLoopWeek < 7; intLoopWeek++) {   // 輿欽嬪 瑞ヅ 衛濛, 譆渠 6輿
        Cal_HTML += "<tr height='24' align=right bgcolor='white'>"
        for (intLoopDay=1; intLoopDay <= 7; intLoopDay++) { // 蹂橾欽嬪 瑞ヅ 衛濛, 橾蹂橾 睡攪
            if (intThirdWeekday > 0) {                                          // 羅輿 衛濛橾檜 1爾棻 觼賊
                Cal_HTML += "<td>";
                intThirdWeekday--;
            } else {
                if (thirdPrintDay > intLastDay) {                               // 殮溘 陳礎 錯蜓爾棻 觼棻賊
                    Cal_HTML += "<td>";
                } else {                                                                // 殮溘陳瞼陛 Г營錯縑 ボ渡 腎賊
                    Cal_HTML += "<td onClick=parent.s2_calendar_click(this); title="+intThisYear+"-"+s2_calendar_day2(intThisMonth).toString()+"-"+s2_calendar_day2(thirdPrintDay).toString()+" style=\"cursor:Hand;border:1px solid white;";
                    if (intThisYear == NowThisYear && intThisMonth==NowThisMonth && thirdPrintDay==intThisDay) {
                        Cal_HTML += "background-color:#C6F2ED;";
                    }

                    switch(intLoopDay) {
                        case 1:                                                         // 橾蹂橾檜賊 說除 儀戲煎
                            Cal_HTML += "color:red;"
                            break;
                        //case 7:
                        //  Cal_HTML += "color:blue;"
                        //  break;
                        default:
                            Cal_HTML += "color:black;"
                            break;
                    }
                    Cal_HTML += "\">"+thirdPrintDay;
                }
                thirdPrintDay++;

                if (thirdPrintDay > intLastDay) {                               // 虜擒 陳瞼 高檜 錯蜓 高爾棻 觼賊 瑞ヅ僥 驍轎
                    Stop_Flag = 1;
                }
            }
            Cal_HTML += "</td>";
        }
        Cal_HTML += "</tr>";
        if (Stop_Flag==1) break;
    }
    Cal_HTML += "</table></form></body></html>";

    var oPopBody = s2_calendar_popup.document.body;
    oPopBody.style.backgroundColor = "lightyellow";
    oPopBody.style.border = "solid black 1px";
    oPopBody.innerHTML = Cal_HTML;

    var calHeight = oPopBody.document.all.Cal_Table.offsetHeight;
    //ヤ檜 6偃 ヤ檣雖, 5偃檣雖 掘碟
    if (intLoopWeek == 6)   calHeight = 214;
    else    calHeight = 189;

    s2_calendar_popup.show(s2_calendar_pop_left, (s2_calendar_pop_top + s2_calendar_target.offsetHeight), 170, calHeight, document.body);
}

function s2_calendar_show_cal_m(sYear, sMonth)
{
    var intThisYear = new Number(), intThisMonth = new Number()
    datToday = new Date();                                                  // Г營 陳濠 撲薑

    intThisYear = parseInt(sYear,10);
    intThisMonth = parseInt(sMonth,10);

    if (intThisYear == 0) intThisYear = datToday.getFullYear();             // 高檜 橈擊 唳辦
    if (intThisMonth == 0) intThisMonth = parseInt(datToday.getMonth(),10)+1;   // 錯 高擎 褒薯高 爾棻 -1 フ 高檜 腋給溥 霞棻.

    switch(intThisMonth)
    {
        case 1:  intPrevYear = intThisYear -1;
                 intNextYear = intThisYear;
                 break;
        case 12: intPrevYear = intThisYear;
                 intNextYear = intThisYear + 1;
                 break;
        default: intPrevYear = intThisYear;
                 intNextYear = intThisYear;
                 break;
    }
    intPPyear = intThisYear-1
    intNNyear = intThisYear+1

    Cal_HTML = "<html><head>\n";
    Cal_HTML += "</head><body>\n";
    Cal_HTML += "<table id=Cal_Table border=0 bgcolor='#f4f4f4' cellpadding=1 cellspacing=1 width=100% onmouseover='parent.s2_calendar_do_over(window.event.srcElement)' onmouseout='parent.s2_calendar_do_out(window.event.srcElement)' style='font-size : 12;font-family:掉葡;'>\n";
    Cal_HTML += "<tr height='30' align=center bgcolor='#f4f4f4'>\n";
    Cal_HTML += "<td colspan='4' align='center'>\n";
    Cal_HTML += "<a style='cursor:hand;' OnClick='parent.s2_calendar_show_cal_m("+intPPyear+","+intThisMonth+");'>９</a>&nbsp;";
    Cal_HTML += "<select name='selYear' STYLE='font-size:11;' OnChange='parent.s2_calendar_change_year_m(this.value, "+intThisMonth+")';>";
    for (var optYear=(intThisYear-2); optYear<(intThisYear+2); optYear++) {
            Cal_HTML += "       <option value='"+optYear+"' ";
            if (optYear == intThisYear) Cal_HTML += " selected>\n";
            else Cal_HTML += ">\n";
            Cal_HTML += optYear+"</option>\n";
    }
    Cal_HTML += "   </select>\n";
    Cal_HTML += "<a style='cursor:hand;' OnClick='parent.s2_calendar_show_cal_m("+intNNyear+","+intThisMonth+");'>Ⅱ</a>";
    Cal_HTML += "</td></tr>\n";
    Cal_HTML += "<tr><td colspan=4 height='1' bgcolor='#000000'></td></tr>";
    Cal_HTML += "<tr height='20' align=center bgcolor=white>";
    Cal_HTML += "<td onClick=parent.s2_calendar_click(this); title="+intThisYear+"-01"+" style=\"cursor:Hand;\">1錯</td>";
    Cal_HTML += "<td onClick=parent.s2_calendar_click(this); title="+intThisYear+"-02"+" style=\"cursor:Hand;\">2錯</td>";
    Cal_HTML += "<td onClick=parent.s2_calendar_click(this); title="+intThisYear+"-03"+" style=\"cursor:Hand;\">3錯</td>";
    Cal_HTML += "<td onClick=parent.s2_calendar_click(this); title="+intThisYear+"-04"+" style=\"cursor:Hand;\">4錯</td>";
    Cal_HTML += "</tr>\n";
    Cal_HTML += "<tr height='20' align=center bgcolor=white>";
    Cal_HTML += "<td onClick=parent.s2_calendar_click(this); title="+intThisYear+"-05"+" style=\"cursor:Hand;\">5錯</td>";
    Cal_HTML += "<td onClick=parent.s2_calendar_click(this); title="+intThisYear+"-06"+" style=\"cursor:Hand;\">6錯</td>";
    Cal_HTML += "<td onClick=parent.s2_calendar_click(this); title="+intThisYear+"-07"+" style=\"cursor:Hand;\">7錯</td>";
    Cal_HTML += "<td onClick=parent.s2_calendar_click(this); title="+intThisYear+"-08"+" style=\"cursor:Hand;\">8錯</td>";
    Cal_HTML += "</tr>\n";
    Cal_HTML += "<tr height='20' align=center bgcolor=white>";
    Cal_HTML += "<td onClick=parent.s2_calendar_click(this); title="+intThisYear+"-09"+" style=\"cursor:Hand;\">9錯</td>";
    Cal_HTML += "<td onClick=parent.s2_calendar_click(this); title="+intThisYear+"-10"+" style=\"cursor:Hand;\">10錯</td>";
    Cal_HTML += "<td onClick=parent.s2_calendar_click(this); title="+intThisYear+"-11"+" style=\"cursor:Hand;\">11錯</td>";
    Cal_HTML += "<td onClick=parent.s2_calendar_click(this); title="+intThisYear+"-12"+" style=\"cursor:Hand;\">12錯</td>";
    Cal_HTML += "</tr>\n";
    Cal_HTML += "</table>\n</body></html>";

    var oPopBody = s2_calendar_popup.document.body;
    oPopBody.style.backgroundColor = "lightyellow";
    oPopBody.style.border = "solid black 1px";
    oPopBody.innerHTML = Cal_HTML;

    s2_calendar_popup.show(s2_calendar_pop_left, (s2_calendar_pop_top + s2_calendar_target.offsetHeight), 160, 99, document.body);
}

//橾殖溘 喇紫葬蝶⑷縑憮 喇紫 摹鷗
function s2_calendar_change_year_d(sYear,sMonth,sDay)
{
    s2_calendar_show(sYear, sMonth, sDay);
}

//錯殖溘 喇紫葬蝶⑷縑憮 喇紫 摹鷗
function s2_calendar_change_year_m(sYear,sMonth)
{
    s2_calendar_show_cal_m(sYear, sMonth);
}

function s2_calendar_get_object_top(obj)
{
    if (obj.offsetParent == document.body)
        return obj.offsetTop;
    else
        return obj.offsetTop + s2_calendar_get_object_top(obj.offsetParent);
}

function s2_calendar_get_object_left(obj)
{
    if (obj.offsetParent == document.body)
        return obj.offsetLeft;
    else
        return obj.offsetLeft + s2_calendar_get_object_left(obj.offsetParent);
}

/**收收 譯萼渦 婦溼ヘ熱 謙猿 收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收收**/