function DateFormatBrowserCapable() {
    if ( typeof( document.getElementById ) == "undefined" ) {
        if( typeof( document.all ) != "undefined" ) {
            document.getElementById = function( elementId ) { return document.all[elementId]; };
            return true;
        }
        return false;
    }
    return true;
}
 
function dateformat(ev){ 
    var str = ev.value;
    var reg =/([2,1]{1}[0-9]{3})[/\-]{0,1}([0-1][0-9])[/\-]{0,1}([0-3][0-9])/;
    var r = str.match(reg);
    if(r==null){
        alert("对不起，请输入正确的日期格式，yyyyMMdd或者yyyy-MM-dd或者yyyy/MM/dd");
        return null;
    }
    if ( typeof(ev.dateformat ) == "undefined" ) {
        ev.dateformat = "yyyy-MM-dd";
     }
        
    var resultstr=ev.dateformat;
    resultstr = resultstr.replace(/yyyy/g,r[1]);
    resultstr = resultstr.replace(/MM/g,r[2]);
    resultstr = resultstr.replace(/dd/g,r[3]);
    return resultstr;
}


function onDateTextBoxBlur(ev){
   if ( !DateFormatBrowserCapable() ) return;
   var str = ev.value;
   if(str.length > 0 ){
      var resultstr = dateformat(ev);
      if(resultstr!=null){
        ev.value = resultstr;
      }
      else{
        ev.value = '';
        ev.focus();
        return false;
      }
   }
}



function getX(){
var x = event.x; 

var xx = (document.body.scrollLeft+x);
var len=document.body.clientWidth-xx;
if( xx+VicPopCal.clientWidth > document.body.clientWidth)
{
var len=document.body.clientWidth-xx;
x=xx-VicPopCal.clientWidth;
if(len>=0){
x=x+len-10;
}
}else{
x=x-VicPopCal.clientWidth/2;
if(x<10)
x=10;
}

return x;
}
function getY(){
var y = event.y; 
var yy = (document.body.scrollTop+y);
if( yy+VicPopCal.clientHeight > document.body.clientHeight)
{
y=yy-VicPopCal.clientHeight-40;
if(y<0) y=yy; 
}
return y;
}
function getNowDate()
{
   var nn=new Date();
   year1=nn.getYear();
   mon1=nn.getMonth()+1;
   date1=nn.getDate();
   var monstr1;
   var datestr1
   if(mon1<10) 
    monstr1="0"+mon1;
   else
    monstr1=""+mon1;
     
   if(date1<10) 
     datestr1="0"+date1;
   else
     datestr1=""+date1;
   return year1+"-"+monstr1+"-"+datestr1;
}
function getlastweekDate()
{
   var nn=new Date();
   year1=nn.getYear();
   mon1=nn.getMonth()+1;
   date1=nn.getDate();
   
   var mm=new Date(year1,mon1-1,date1);
   var tmp1=new Date(2000,1,1);
   var tmp2=new Date(2000,1,15);
   var ne=tmp2-tmp1;
   var mm2=new Date();
   mm2.setTime(mm.getTime()-ne);
   
   
   year2=mm2.getYear();
   mon2=mm2.getMonth()+1;
   date2=mm2.getDate();
    
    
     if(mon2<10) 
    monstr2="0"+mon2;
   else
    monstr2=""+mon2;
     
   if(date2<10) 
     datestr2="0"+date2;
   else
     datestr2=""+date2;
 
   
    return year2+"-"+monstr2+"-"+datestr2;
}

var gdCtrl = new Object();
var goSelectTag = new Array();
var gcGray   = "#808080";
var gcToggle = "#94D267";
var gcBG = "#F3F3FC";
var gccolor = "#FF0000";
var previousObject = null;

var gdCurDate = new Date();
var giYear = gdCurDate.getFullYear();
var giMonth = gdCurDate.getMonth()+1;
var giDay = gdCurDate.getDate();

function fSetDate(iYear, iMonth, iDay){
  VicPopCal.style.visibility = "hidden";
  if ((iYear == 0) && (iMonth == 0) && (iDay == 0)){
  	gdCtrl.value = "";
  }else{
  	iMonth = iMonth + 100 + "";
  	iMonth = iMonth.substring(1);
  	iDay   = iDay + 100 + "";
  	iDay   = iDay.substring(1);
  	if(gdCtrl.tagName == "INPUT"){
  	  	gdCtrl.value = iYear+"-"+iMonth+"-"+iDay;
  	}else{
  	  	gdCtrl.innerText = iYear+"-"+iMonth+"-"+iDay;
  	}
  }
  
  //for (i in goSelectTag)
  //	goSelectTag[i].style.visibility = "visible";
  //goSelectTag.length = 0;
  
  window.returnValue=gdCtrl.value;
  //window.close();

}

function HiddenDiv()
{
	var i;
  VicPopCal.style.visibility = "hidden";
  //for (i in goSelectTag)
  //	goSelectTag[i].style.visibility = "visible";
  //goSelectTag.length = 0;

}
function ShowDiv()
{
	var i;
  VicPopCal.style.visibility = "visible";
  //for (i in goSelectTag)
  //	goSelectTag[i].style.visibility = "hidden";
  //goSelectTag.length = 0;

}
function fSetSelected(aCell){
  var iOffset = 0;
  var iDay =0;
  var iYear = parseInt(tbSelYear.value);
  var iMonth = parseInt(tbSelMonth.value);
  
  aCell.bgColor = gcBG;
  with (aCell.children["cellText"]){
        if(innerText.length>0)
  	iDay = parseInt(innerText);
  	else
  	IDay=0;
  	if (color==gcGray)
		iOffset = (Victor<10)?-1:1;
	iMonth += iOffset;
	if (iMonth<1) {
		//iYear--;
		//iMonth = 12;
		iDay=0;
		iYear=0;
		iMonth=0;
	}else if (iMonth>12){
		//iYear++;
		//iMonth = 1;
		iDay=0;
		iYear=0;
		iMonth=0;
	}
  }
    	if(iDay==0)
        fSetDate(0, 0, 0);
        else
  fSetDate(iYear, iMonth, iDay);
}

function Point(iX, iY){
	this.x = iX;
	this.y = iY;
}

function fBuildCal(iYear, iMonth) {
  var aMonth=new Array();
  for(i=1;i<7;i++)
  	aMonth[i]=new Array(i);
  
  var dCalDate=new Date(iYear, iMonth-1, 1);
  var iDayOfFirst=dCalDate.getDay();
  var iDaysInMonth=new Date(iYear, iMonth, 0).getDate();
  var iOffsetLast=new Date(iYear, iMonth-1, 0).getDate()-iDayOfFirst+1;
  var iDate = 1;
  var iNext = 1;

  for (d = 0; d < 7; d++)
	//aMonth[1][d] = (d<iDayOfFirst)?-(iOffsetLast+d):iDate++;
	aMonth[1][d] = (d<iDayOfFirst)?-1:iDate++;
  for (w = 2; w < 7; w++)
  	for (d = 0; d < 7; d++)
		//aMonth[w][d] = (iDate<=iDaysInMonth)?iDate++:-(iNext++);
		aMonth[w][d] = (iDate<=iDaysInMonth)?iDate++:-1;
  return aMonth;
}

function fDrawCal(iYear, iMonth, iCellHeight, sDateTextSize) {
  var WeekDay = new Array("日","一","二","三","四","五","六");
 var styleTD = " bgcolor='"+gcBG+"' bordercolor='"+gcBG+"' valign='middle' align='center' height='"+iCellHeight+"' style='font-size: "+sDateTextSize+"px;font:bold arial'";            //Coded by Liming Weng(Victor Won) email:victorwon@sina.com
 myMonth = fBuildCal(iYear, iMonth);
  with (document) {
	write("<tr>");
	for(i=0; i<7; i++){
		write("<td "+styleTD+"color:#00006C' >"+ WeekDay[i] + "</td>");
	}
	write("</tr>");

  	for (w = 1; w < 7; w++) {
		write("<tr>");
		for (d = 0; d < 7; d++) {
			write("<td id=calCell "+styleTD+"cursor:hand;' onMouseOver='this.bgColor=gcToggle' onMouseOut='this.bgColor=gcBG' onclick='fSetSelected(this)'>");
			write("<font id=cellText Victor='Liming Weng'> </font>");			
			write("</td>")	
		}
		write("</tr>");
	}
  }
}

function fUpdateCal(iYear, iMonth) {
  myMonth = fBuildCal(iYear, iMonth);
  var i = 0;
  for (w = 0; w < 6; w++)
	for (d = 0; d < 7; d++)
		with (cellText[(7*w)+d]) {
			Victor = i++;
			if (myMonth[w+1][d]<0) {
				color = gcGray;
				//innerText = myMonth[w+1][d];
				innerText="";
			}else{
				color = ((d==0)||(d==6))?"red":"black";
				innerText = myMonth[w+1][d];
			}
		}
}

function fSetYearMon(iYear, iMon){
  tbSelMonth.options[iMon-1].selected = true;
  for (i = 0; i < tbSelYear.length; i++)
	if (tbSelYear.options[i].value == iYear)
		tbSelYear.options[i].selected = true;
  fUpdateCal(iYear, iMon);
}

function fPrevMonth(){
  var iMon = tbSelMonth.value;
  var iYear = tbSelYear.value;
  
  if (--iMon<1) {
	  iMon = 12;
	  iYear--;
  }
  
  fSetYearMon(iYear, iMon);
}

function fNextMonth(){
  var iMon = tbSelMonth.value;
  var iYear = tbSelYear.value;
  
  if (++iMon>12) {
	  iMon = 1;
	  iYear++;
  }
  
  fSetYearMon(iYear, iMon);
}

function fToggleTags(){
  with (document.all.tags("SELECT")){
 	for (i=0; i<length; i++)
 		if ((item(i).Victor!="Won")&&fTagInBound(item(i))){
 			item(i).style.visibility = "hidden";
 			goSelectTag[goSelectTag.length] = item(i);
 		}
  }
}

function fTagInBound(aTag){
  with (VicPopCal.style){
  	var l = parseInt(left);
  	var t = parseInt(top);
  	var r = l+parseInt(width);
  	var b = t+parseInt(height);
	var ptLT = fGetXY(aTag);
	return !((ptLT.x>r)||(ptLT.x+aTag.offsetWidth<l)||(ptLT.y>b)||(ptLT.y+aTag.offsetHeight<t));
  }
}

function fGetXY(aTag){
  var oTmp = aTag;
  var pt = new Point(0,0);
  do {
  	pt.x += oTmp.offsetLeft;
  	pt.y += oTmp.offsetTop;
  	oTmp = oTmp.offsetParent;
  } while(oTmp.tagName!="BODY");
  return pt;
}

// Main: popCtrl is the widget beyond which you want this calendar to appear;
//       dateCtrl is the widget into which you want to put the selected date.
// i.e.: <input type="text" name="dc" style="text-align:center" readonly><INPUT type="button" value="V" onclick="fPopCalendar(dc,dc);return false">
function fPopCalendar(popCtrl, dateCtrl,strDate){
  if (popCtrl == previousObject){
	  	if (VicPopCal.style.visibility == "visible"){
  		HiddenDiv();
  		return true;
  	}
  	
  }
  previousObject = popCtrl;
  gdCtrl = dateCtrl;
  fInitialDate(strDate);
  fSetYearMon(giYear, giMonth); 
  var point = fGetXY(popCtrl);
  with (VicPopCal.style) {
  	left = getX();
	top  = getY()+popCtrl.offsetHeight;
	//width = VicPopCal.offsetWidth;
	width = 185; // Added by Danian Zhang/SUI
	height = VicPopCal.offsetHeight;
	fToggleTags(point); 	
	visibility = 'visible';
  }
}

// Added by Danian Zhang/SUI
function fInitialDate(strDate){
	if( strDate == null || strDate.length != 10 )
		return false;

	var sYear  = strDate.substring(0,4);
	var sMonth = strDate.substring(5,7);
	var sDay   = strDate.substring(8,10);

	if( sMonth.charAt(0) == '0' ) { sMonth = sMonth.substring(1,2); }
	if( sDay.charAt(0)   == '0' ) { sDay   = sDay.substring(1,2);   }

	var nYear  = parseInt(sYear );
	var nMonth = parseInt(sMonth);
	var nDay   = parseInt(sDay  );
	
	if ( isNaN(nYear ) )	return false;
	if ( isNaN(nMonth) )	return false;
	if ( isNaN(nDay  ) )	return false;

	var arrMon = new Array(12);
	arrMon[ 0] = 31;	arrMon[ 1] = nYear % 4 == 0 ? 29:28;
	arrMon[ 2] = 31;	arrMon[ 3] = 30;
	arrMon[ 4] = 31;	arrMon[ 5] = 30;
	arrMon[ 6] = 31;	arrMon[ 7] = 31;
	arrMon[ 8] = 30;	arrMon[ 9] = 31;
	arrMon[10] = 30;	arrMon[11] = 31;

	if ( nYear  < 1900 || nYear > 2100 )			return false;
	if ( nMonth < 1 || nMonth > 12 )				return false;
	if ( nDay < 1 || nDay > arrMon[nMonth - 1] )	return false;

	giYear  = nYear;
	giMonth = nMonth;
	giDay   = nDay;
	return true;
}

var gMonths = new Array("一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月");

with (document) {
write("<div  onmouseleave='HiddenDiv();'>");
write("<Div id='VicPopCal' style='OVERFLOW:hidden;POSITION:absolute;VISIBILITY:hidden;border:2px ridge;z-index:100;border-color:#9ABCEF'  >");
write("<table border='0'  bgcolor='#9ABCEF'>");
write("<TR  align='left'>");
write("<td valign='middle' align='left' width='80%'><input type='button' name='PrevMonth' value='<' style='COLOR: #000000; height:18;width:18;border:1px solid rgb(0,0,0); BACKGROUND-COLOR: #ffffff;FONT:bold' onClick='fPrevMonth()'>");
write("&nbsp;<SELECT name='tbSelYear' onbeforedeactivate='ShowDiv();' onChange='fUpdateCal(tbSelYear.value, tbSelMonth.value)' Victor='Won' style='BACKGROUND-COLOR: #F3F3FC;font-size: 11px;SCROLLBAR-ARROW-COLOR: #ffffff;'>");
for(i=1950;i<=2060;i++)
	write("<OPTION value='"+i+"'>"+i+" 年</OPTION>");
write("</SELECT>");
write("<select name='tbSelMonth' onbeforedeactivate='ShowDiv();' onChange='fUpdateCal(tbSelYear.value, tbSelMonth.value)' Victor='Won' style='BACKGROUND-COLOR: #F3F3FC;font-size: 11px;'>");
for (i=0; i<12; i++)
	write("<option value='"+(i+1)+"'>"+gMonths[i]+"</option>");
write("</SELECT>");
write("&nbsp;<input type='button' name='PrevMonth' value='>' style='COLOR: #000000; height:18;width:18;border:1px solid rgb(0,0,0); BACKGROUND-COLOR: #ffffff;FONT:bold' onclick='fNextMonth()'>");
write("</td>");
write("</TR><TR>");
write("<td align='left'>");
write("<DIV align='center' ><table align='center' width='100%' border='0' cellspacing='1' cellpadding='0'>");
fDrawCal(giYear, giMonth, 17, '12');
write("</table></DIV>");
write("</td>");
write("</TR><TR><TD align='center' >");
write("<TABLE width='100%' height='12'><tr><td align='center' style='font-size: 12px;'>");
write("<B style='cursor:hand' onclick='fSetDate(0,0,0)' onMouseOver='this.style.color=gccolor' onMouseOut='this.style.color=0'>清空</B>");
write("</td><td algin='center' style='font-size: 12px;'>");
write("<B style='cursor:hand' onclick='fSetDate(giYear,giMonth,giDay)' onMouseOver='this.style.color=gccolor' onMouseOut='this.style.color=0'>今天: "+giYear+"-"+giMonth+"-"+giDay+"</B>");
write("</td></tr></table>");
write("</TD></TR>");
write("</TABLE></Div>");
write("</div>");
}