Calendar

var weekend=[0,6];var weekendColor="#e0e0e0";var sShowWeekend=1;var gNow=new Date();var ggWinCal;var DAYS_OF_WEEK=7;gNow=new Date(gNow.getFullYear(),gNow.getMonth(),gNow.getDate());var DayOfWeek=new Array('S','M','T','W','T','F','S');Calendar.Months=["January","February","March","April","May","June","July","August","September","October","November","December"];Calendar.DOMonth=[31,28,31,30,31,30,31,31,30,31,30,31];Calendar.lDOMonth=[31,29,31,30,31,30,31,31,30,31,30,31];function Calendar(p_item,p_WinCal,p_month,p_year,p_format){if((p_month==null)&&(p_year==null))return;if(p_WinCal==null)this.gWinCal=ggWinCal;else this.gWinCal=p_WinCal;if(p_month==null){this.gMonthName=null;this.gMonth=null;}else{this.gMonthName=Calendar.get_month(p_month);this.gMonth=new Number(p_month);}var vUserDate=eval("window.document."+p_item+".value");this.gYear=p_year;this.gFormat=p_format;this.gReturnItem=p_item;this.SelectedDate=vUserDate;}Calendar.get_month=Calendar_get_month;Calendar.get_daysofmonth=Calendar_get_daysofmonth;Calendar.calc_month_year=Calendar_calc_month_year;function Calendar_get_month(monthNo){return Calendar.Months[monthNo];}function Calendar_get_daysofmonth(monthNo,p_year){if((p_year%4)==0){if((p_year%100)==0&&(p_year%400)!=0)return Calendar.DOMonth[monthNo];return Calendar.lDOMonth[monthNo];}else return Calendar.DOMonth[monthNo];}function Calendar_calc_month_year(p_Month,p_Year,incr){var ret_arr=new Array();if(incr==-1){if(p_Month==0){ret_arr[0]=11;ret_arr[1]=parseInt(p_Year)-1;}else{ret_arr[0]=parseInt(p_Month)-1;ret_arr[1]=parseInt(p_Year);}}else if(incr==1){if(p_Month==11){ret_arr[0]=0;ret_arr[1]=parseInt(p_Year)+1;}else{ret_arr[0]=parseInt(p_Month)+1;ret_arr[1]=parseInt(p_Year);}}return ret_arr;}new Calendar();Calendar.prototype.getMonthlyCalendarCode=function(){var vCode="";var vHeader_Code="";var vData_Code="";vHeader_Code=this.cal_header();vData_Code=this.cal_data();vCode=vCode+vHeader_Code+vData_Code+"";return vCode;}Calendar.prototype.show=function(){var vCode="";var a=p_item;this.gWinCal.document.open();this.wwrite("Calendar");this.wwrite("");this.wwrite("");this.wwrite("");var prevMMYYYY=Calendar.calc_month_year(this.gMonth,this.gYear,-1);var prevMM=prevMMYYYY[0];var prevYYYY=prevMMYYYY[1];var vSpacer="

";var nextMMYYYY=Calendar.calc_month_year(this.gMonth,this.gYear,1);var nextMM=nextMMYYYY[0];var nextYYYY=nextMMYYYY[1];this.wwrite("");this.wwrite("");this.wwrite("");((this.gMonth<=gNow.getMonth()&&this.gYear<=gNow.getFullYear())?this.wwrite(""):this.wwrite(""));this.wwrite("");this.wwrite("");vCode=this.getMonthlyCalendarCode();this.wwrite(vCode);this.wwrite("
");this.wwrite("");this.wwrite("Close<\/a>");this.wwrite("");this.wwrite("");this.gWinCal.document.close();}Calendar.prototype.wwrite=function(wtext){this.gWinCal.document.writeln(wtext);}Calendar.prototype.wwriteA=function(wtext){this.gWinCal.document.write(wtext);}Calendar.prototype.cal_header=function(){var vCode="";for(index=0;index"+DayOfWeek[index]+"";}vCode=""+vCode+"";vCode=vCode+"";return vCode;}Calendar.prototype.cal_data=function(){var vDate=new Date();vDate.setDate(1);vDate.setMonth(this.gMonth);vDate.setFullYear(this.gYear);var vFirstDay=vDate.getDay();var vDay=1;var vLastDay=Calendar.get_daysofmonth(this.gMonth,this.gYear);var vOnLastDay=0;var vCode="";var vFlowDate=new Date();vCode=vCode+"";for(i=0;i ";}for(j=vFirstDay;j<7;j++){vFlowDate=new Date(this.gYear,this.gMonth,vDay);if(sShowWeekend==1){vCode=vCode+"";}}else {vCode=vCode+""):(((vFlowDate"+vDay+"":""+vDay+"")+""));}vDay=vDay+1;}vCode=vCode+"";for(k=2;k<7;k++){vCode=vCode+"";for(j=0;j<7;j++){vFlowDate=new Date(this.gYear,this.gMonth,vDay);if(sShowWeekend==1){vCode=vCode+"";}else {vCode=vCode+"";}vDay=vDay+1;if(vDay>vLastDay){vOnLastDay=1;break;}}if(j==6)vCode=vCode+"";if(vOnLastDay==1)break;}for(m=1;m<(7-j);m++){vCode=vCode+"";}return vCode;}Calendar.prototype.format_cell=function(vday){if((this.SelectedDate.length==0)||(!validateUSDate(this.SelectedDate)))return"''";var vUSDate=new Date(this.SelectedDate);var vUSDay=vUSDate.getDate();var vUSMonth=vUSDate.getMonth();var vUSYear=vUSDate.getFullYear();if(vday==vUSDay&&this.gMonth==vUSMonth&&this.gYear==vUSYear)return" BGCOLOR='#9D9D9D' ";else return' ';}Calendar.prototype.write_weekend_string=function(vday){var i;for(i=0;i

"+vSpacer+"	"+vSpacer+"	"+vSpacer+"	"+vSpacer+"	"+vSpacer+"	"+vSpacer+"	"+vSpacer+"
	<<<\/A>	"+this.gMonthName+" "+this.gYear+"					>><\/A>

";if(vFlowDate"+vDay+"";}else{vCode=vCode+""+vDay+"	"+(this.isWeekend(j)?(vDay+"
";if(vFlowDate"+vDay+"";}else {vCode=vCode+""+vDay+"";}vCode=vCode+"	"+(this.isWeekend(j)?(vDay):((vFlowDate"+vDay+"":""+vDay+""));vCode=vCode+"