laOnloadActions.push(function(){loElements=document.getElementsByTagName("body")[0].getElementsByTagName("input");for(var lnI=0;lnI<loElements.length;lnI++){var lcId=loElements[lnI].id;if(lcId.indexOf("_date")>0){PioenPartners_JS_Date.addCalendar(lcId);}}});var PioenPartners_JS_Date={_lnMinYear:1900,_lnMaxYear:2100,isValid:function(lcDate,lnMinYear,lnMaxYear){var llValid=false;if(lnMinYear===undefined)lnMinYear=PioenPartners_JS_Date._lnMinYear;if(lnMaxYear===undefined)lnMaxYear=PioenPartners_JS_Date._lnMaxYear;var loDateExpr=/[0-9]{2}-[0-9]{2}-[0-9]{4}/;if(loDateExpr.test(lcDate)){var laDateParts=lcDate.split('-');var lnDay=parseInt(laDateParts[0],10);var lnMonth=parseInt(laDateParts[1],10);var lnYear=parseInt(laDateParts[2]);if(lnMonth>=1&&lnMonth<=12){if(lnYear>=lnMinYear&&lnYear<=lnMaxYear){if(lnDay>=1&&lnDay<=31){if(lnDay<=this.getDaysInMonth(lnMonth,lnYear)){llValid=true;}}}}}
return llValid;},getDaysInMonth:function(lnMonth,lnYear){var lnDays=31;if(lnMonth==4||lnMonth==6||lnMonth==9||lnMonth==11){lnDays=30;}
if(lnMonth==2){lnDays=(((lnYear%4==0)&&((!(lnYear%100==0))||(lnYear%400==0)))?29:28);}
return lnDays;},addCalendar:function(lcElement){Calendar.setup({inputField:lcElement,ifFormat:'%d-%m-%Y',button:lcElement+'_trigger',align:'Cr',singleClick:true,firstDay:1,electric:false});},parseDate:function(lcDateElement,lcElement){var lnJulianDate=0;var loDateElement=document.getElementById(lcDateElement);var loJulianElement=document.getElementById(lcElement);var loDateExpr=/[0-9]{2}-[0-9]{2}-[0-9]{4}/;if(loDateExpr.test(loDateElement.value)){var laDateParts=loDateElement.value.split('-');var lnDay=parseInt(laDateParts[0],10);var lnMonth=parseInt(laDateParts[1],10);var lnYear=parseInt(laDateParts[2]);var loDate=new Date(lnYear,lnMonth,lnDay);lnJulianDate=Math.ceil(this.calculateJD(lnYear,lnMonth,lnDay));}
loJulianElement.value=lnJulianDate;},calculateJD:function(lnYear,lnMonth,lnDay){hour=12;min=0;sec=0;univTime=hour+(min/60)+(sec/3600);if((100*lnYear+lnMonth-190002.5)>=0){sign=1}
else{sign=-1}
with(Math){part1=367*lnYear
part2=floor((7*(lnYear+floor((lnMonth+9)/12)))/4)
part3=lnDay+floor((275*lnMonth)/9)
part4=1721013.5+(univTime/24)
part5=0.5*sign
jd=part1-part2+part3+part4-part5+0.5}
return jd;}};