"+WindowTitle+"

var winCal;var dtToday=new Date();var Cal;var docCal;var MonthName=["January","February","March","April","May","June","July","August","September","October","November","December"];var WeekDayName=["Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"];var exDateTime;var cnTop="200";var cnLeft="500";var WindowTitle="Calendar";var WeekChar=2;var CellWidth=20;var DateSeparator="-";var TimeMode=24;var ShowLongMonth=true;var ShowMonthYear=true;var MonthYearColor="#336699";var WeekHeadColor="#EBEBEB";var SundayColor="#EBEBEB";var SaturdayColor="#EBEBEB";var WeekDayColor="white";var FontColor="6699ff";var TodayColor="#FFFF99";var SelDateColor="#333366";var YrSelColor="#333366";var ThemeBg="";function NewCal(pCtrl,pFormat,pShowTime,pTimeMode){Cal=new Calendar(dtToday);if((pShowTime!=null)&&(pShowTime)){Cal.ShowTime=true;if((pTimeMode!=null)&&((pTimeMode=='12')||(pTimeMode=='24'))){TimeMode=pTimeMode}}if(pCtrl!=null)Cal.Ctrl=pCtrl;if(pFormat!=null)Cal.Format=pFormat.toUpperCase();exDateTime=document.getElementById(pCtrl).value;if(exDateTime!=""){var Sp1;var Sp2;var tSp1;var tSp1;var strMonth;var strDate;var strYear;var intMonth;var YearPattern;var strHour;var strMinute;var strSecond;Sp1=exDateTime.indexOf(DateSeparator,0);Sp2=exDateTime.indexOf(DateSeparator,(parseInt(Sp1)+1));if((Cal.Format.toUpperCase()=="DDMMYYYY")||(Cal.Format.toUpperCase()=="DDMMMYYYY")){strMonth=exDateTime.substring(Sp1+1,Sp2);strDate=exDateTime.substring(0,Sp1)}else if((Cal.Format.toUpperCase()=="MMDDYYYY")||(Cal.Format.toUpperCase()=="MMMDDYYYY")){strMonth=exDateTime.substring(0,Sp1);strDate=exDateTime.substring(Sp1+1,Sp2)}if(isNaN(strMonth))intMonth=Cal.GetMonthIndex(strMonth);else intMonth=parseInt(strMonth,10)-1;if((parseInt(intMonth,10)>=0)&&(parseInt(intMonth,10)<12))Cal.Month=intMonth;if((parseInt(strDate,10)<=Cal.GetMonDays())&&(parseInt(strDate,10)>=1))Cal.Date=strDate;strYear=exDateTime.substring(Sp2+1,Sp2+5);YearPattern=/^\d{4}$/;if(YearPattern.test(strYear))Cal.Year=parseInt(strYear,10);if(Cal.ShowTime==true){tSp1=exDateTime.indexOf(":",0);tSp2=exDateTime.indexOf(":",(parseInt(tSp1)+1));strHour=exDateTime.substring(tSp1,(tSp1)-2);Cal.SetHour(strHour);strMinute=exDateTime.substring(tSp1+1,tSp2);Cal.SetMinute(strMinute);strSecond=exDateTime.substring(tSp2+1,tSp2+3);Cal.SetSecond(strSecond)}}winCal=window.open("","DateTimePicker","toolbar=0,status=0,menubar=0,fullscreen=no,width=195,height=245,resizable=0,top="+cnTop+",left="+cnLeft);docCal=winCal.document;RenderCal()}function RenderCal(){var vCalHeader;var vCalData;var vCalTime;var i;var j;var SelectStr;var vDayCount=0;var vFirstDay;docCal.open();docCal.writeln(""+WindowTitle+"");docCal.writeln("");docCal.writeln("

");vCalHeader="\n";vCalHeader+="\n\n";vCalHeader+="";if(ShowMonthYear)vCalHeader+="\n";vCalHeader+="";for(i=0;i<7;i++){vCalHeader+=""}vCalHeader+="";docCal.write(vCalHeader);CalDate=new Date(Cal.Year,Cal.Month);CalDate.setDate(1);vFirstDay=CalDate.getDay();vCalData="";for(i=0;i\n"}}docCal.writeln(vCalData);if(Cal.ShowTime){var showHour;showHour=Cal.getShowHour();vCalTime="\n\n";docCal.write(vCalTime)}docCal.writeln("\n

";vCalHeader+="\n

\n";vCalHeader+="

< "+Cal.Year+" >

"+Cal.GetMonthName(ShowLongMonth)+" "+Cal.Year+"

"+WeekDayName[i].substr(0,WeekChar)+"

";vCalTime+="";vCalTime+=" : ";vCalTime+="";vCalTime+=" : ";vCalTime+="";if(TimeMode==12){var SelectAm=(parseInt(Cal.Hours,10)<12)?"Selected":"";var SelectPm=(parseInt(Cal.Hours,10)>=12)?"Selected":"";vCalTime+=""}vCalTime+="\n

");docCal.writeln("

");docCal.close()}function GenCell(pValue,pHighLight,pColor){var PValue;var PCellStr;var vColor;var vHLstr1;var vHlstr2;var vTimeStr;if(pValue==null)PValue="";else PValue=pValue;if(pColor!=null)vColor="bgcolor=\""+pColor+"\"";else vColor="";if((pHighLight!=null)&&(pHighLight)){vHLstr1="color='red'>";vHLstr2=""}else{vHLstr1=">";vHLstr2=""}if(Cal.ShowTime){vTimeStr="winMain.document.getElementById('"+Cal.Ctrl+"').value+=' '+"+"winMain.Cal.getShowHour()"+"+':'+"+"winMain.Cal.Minutes"+"+':'+"+"winMain.Cal.Seconds";if(TimeMode==12)vTimeStr+="+' '+winMain.Cal.AMorPM"}else vTimeStr="";PCellStr=""+PValue+""+vHLstr2+"";return PCellStr}function Calendar(pDate,pCtrl){this.Date=pDate.getDate();this.Month=pDate.getMonth();this.Year=pDate.getFullYear();this.Hours=pDate.getHours();if(pDate.getMinutes()<10)this.Minutes="0"+pDate.getMinutes();else this.Minutes=pDate.getMinutes();if(pDate.getSeconds()<10)this.Seconds="0"+pDate.getSeconds();else this.Seconds=pDate.getSeconds();this.MyWindow=winCal;this.Ctrl=pCtrl;this.Format="ddMMyyyy";this.Separator=DateSeparator;this.ShowTime=false;if(pDate.getHours()<12)this.AMorPM="AM";else this.AMorPM="PM"}function GetMonthIndex(shortMonthName){for(i=0;i<12;i++){if(MonthName[i].substring(0,3).toUpperCase()==shortMonthName.toUpperCase()){return i}}}Calendar.prototype.GetMonthIndex=GetMonthIndex;function IncYear(){Cal.Year++}Calendar.prototype.IncYear=IncYear;function DecYear(){Cal.Year--}Calendar.prototype.DecYear=DecYear;function SwitchMth(intMth){Cal.Month=intMth}Calendar.prototype.SwitchMth=SwitchMth;function SetHour(intHour){var MaxHour;var MinHour;if(TimeMode==24){MaxHour=23;MinHour=0}else if(TimeMode==12){MaxHour=12;MinHour=1}else alert("TimeMode can only be 12 or 24");var HourExp=new RegExp("^\\d\\d$");if(HourExp.test(intHour)&&(parseInt(intHour,10)<=MaxHour)&&(parseInt(intHour,10)>=MinHour)){if((TimeMode==12)&&(Cal.AMorPM=="PM")){if(parseInt(intHour,10)==12)Cal.Hours=12;else Cal.Hours=parseInt(intHour,10)+12}else if((TimeMode==12)&&(Cal.AMorPM=="AM")){if(intHour==12)intHour-=12;Cal.Hours=parseInt(intHour,10)}else if(TimeMode==24)Cal.Hours=parseInt(intHour,10)}}Calendar.prototype.SetHour=SetHour;function SetMinute(intMin){var MinExp=new RegExp("^\\d\\d$");if(MinExp.test(intMin)&&(intMin<60))Cal.Minutes=intMin}Calendar.prototype.SetMinute=SetMinute;function SetSecond(intSec){var SecExp=new RegExp("^\\d\\d$");if(SecExp.test(intSec)&&(intSec<60))Cal.Seconds=intSec}Calendar.prototype.SetSecond=SetSecond;function SetAmPm(pvalue){this.AMorPM=pvalue;if(pvalue=="PM"){this.Hours=(parseInt(this.Hours,10))+12;if(this.Hours==24)this.Hours=12}else if(pvalue=="AM")this.Hours-=12}Calendar.prototype.SetAmPm=SetAmPm;function getShowHour(){var finalHour;if(TimeMode==12){if(parseInt(this.Hours,10)==0){this.AMorPM="AM";finalHour=parseInt(this.Hours,10)+12}else if(parseInt(this.Hours,10)==12){this.AMorPM="PM";finalHour=12}else if(this.Hours>12){this.AMorPM="PM";if((this.Hours-12)<10)finalHour="0"+((parseInt(this.Hours,10))-12);else finalHour=parseInt(this.Hours,10)-12}else{this.AMorPM="AM";if(this.Hours<10)finalHour="0"+parseInt(this.Hours,10);else finalHour=this.Hours}}else if(TimeMode==24){if(this.Hours<10)finalHour="0"+parseInt(this.Hours,10);else finalHour=this.Hours}return finalHour}Calendar.prototype.getShowHour=getShowHour;function GetMonthName(IsLong){var Month=MonthName[this.Month];if(IsLong)return Month;else return Month.substr(0,3)}Calendar.prototype.GetMonthName=GetMonthName;function GetMonDays(){var DaysInMonth=[31,28,31,30,31,30,31,31,30,31,30,31];if(this.IsLeapYear()){DaysInMonth[1]=29}return DaysInMonth[this.Month]}Calendar.prototype.GetMonDays=GetMonDays;function IsLeapYear(){if((this.Year%4)==0){if((this.Year%100==0)&&(this.Year%400)!=0){return false}else{return true}}else{return false}}Calendar.prototype.IsLeapYear=IsLeapYear;function FormatDate(pDate){if(this.Format.toUpperCase()=="DDMMYYYY")return(pDate+DateSeparator+(this.Month+1)+DateSeparator+this.Year);else if(this.Format.toUpperCase()=="YYYYMMDD")return(this.Year+DateSeparator+(this.Month+1)+DateSeparator+pDate);else if(this.Format.toUpperCase()=="DDMMMYYYY")return(pDate+DateSeparator+this.GetMonthName(false)+DateSeparator+this.Year);else if(this.Format.toUpperCase()=="MMDDYYYY")return((this.Month+1)+DateSeparator+pDate+DateSeparator+this.Year);else if(this.Format.toUpperCase()=="MMMDDYYYY")return(this.GetMonthName(false)+DateSeparator+pDate+DateSeparator+this.Year)}Calendar.prototype.FormatDate=FormatDate;