function verificaFecha(b,a){if(!validaFecha(b)){alert1("La "+a+" no es v?lida.");b.value="";return false}return true}function abrir_calendario(a,b,d){if(d==null||d==""||d==undefined){d=false}dir="../../comun/es/calendario.htm?"+a.name+"="+a.value+"&ejecutarOnChange="+b+"&atras="+d;var c=window.open(dir,"calendario","width=230,height=250,status=no,resizable=yes,location=no,toolbar=no,menubar=no,titlebar=no");c.focus()}function abrir_calendario_capa(a,b,d,c){if(d==null||d==""||d==undefined){d=false}seleccion(a,b,d,c)}function fechaHoy(){var b=new Date();var a=b.getDate()+"/"+(b.getMonth()+1)+"/"+b.getFullYear();return a}function validaFecha(a){var b=true;if(cadenaVacia(a.value)){b=false}if(b&&!esFechaStrValida(a.value)){b=false}if(!b){return false}return true}function esFechaStrValida(a){var b=ExtraerFecha(a,"DMA","/");return EsFechaValida(b[0],b[1],b[2])}function EsFechaValida(c,d,a){var b=new Array(0,31,28,31,30,31,30,31,31,30,31,30,31);if(EsFechaValida.arguments.length!=3){return(false)}if(!EsNatural(c)||!EsNatural(d)||!EsNatural(a)){return(false)}c=parseInt(c);d=parseInt(d);a=parseInt(a);if(!EstaEnRango(a,1900,3000)){return(false)}if(EsAnyoBisiesto(a)){b[2]=29}if(!EstaEnRango(d,1,12)){return(false)}if(!EstaEnRango(c,1,b[d])){return(false)}return(true)}function EsDigito(a){return((EsDigito.arguments.length==1)&&!cadenaVacia(a)&&(a>="0")&&(a<="9"))}function EsNatural(a){var c="";c=""+a;if((EsNatural.arguments.length!=1)||cadenaVacia(c)){return(false)}for(var b=0;b<c.length;b++){var d=c.charAt(b);if(!EsDigito(d)){return false}}return true}function EstaEnRango(a,b,c){if(EstaEnRango.arguments.length!=3){return(false)}else{return((a>=b)&&(a<=c))}}function EsAnyoBisiesto(a){return(((a%4==0)&&((a%100!=0)||(a%400==0))))}function numeroNoches(b,a,d){var f=ExtraerFecha(b,"DMA","/");var e=ExtraerFecha(a,"DMA","/");var h=0;if(EsFechaValida(f[0],f[1],f[2])&&EsFechaValida(e[0],e[1],e[2])&&CompararFechaCompleta(b,a)==fecha1MenorFecha2){var l=parseInt(f[0]);var s=parseInt(f[1]);var o=parseInt(f[2]);var j=parseInt(e[0]);var r=parseInt(e[1]);var n=parseInt(e[2]);var k=parseInt(n-o);var p=parseInt(r-s);if(k>0){var c=parseInt(k*12);p=parseInt(p+c)}var m=parseInt(j-l);if(k==0&&p==0){h=m}else{for(var q=0;q<=p;q++){var g=j;if((s!=r)||(k!=0)){g=getDaysInMonth(s-1,o)}h+=parseInt(g-l);if(l==1){h++}s++;l=1;if(s>=13){s=1;k--}}}return h}else{alert1("Las fechas no son v?lidas")}}function calculaFecha(b,e,h){e=parseInt(e);var a=ExtraerFecha(b.value,"DMA","/");if(EsFechaValida(a[0],a[1],a[2])){var f=a[0];var c=a[1];var d=a[2];if(e>0){f=f+e;if(f>getDaysInMonth(c-1,d)){var g=false;while(!g){f=f-getDaysInMonth(c-1,d);c++;if(c>12){c=c-12;d++}g=f<=getDaysInMonth(c-1,d)}}}if(e<0){f=f+e;if(f<1){f=f+getDaysInMonth(c-1,d);c--;if(c<1){c=c+12;d--}}}return ajustaA2Digitos(f)+"/"+ajustaA2Digitos(c)+"/"+d}else{alert1("La fecha no es v?lida")}}function CompararFechaCompleta(c,b){var e=ExtraerFecha(c,"DMA","/");var d=ExtraerFecha(b,"DMA","/");var a=CompararFechas(e[0],e[1],e[2],d[0],d[1],d[2]);return a}var fecha1MenorFecha2=-1;var fecha1MayorFecha2=1;var fecha1IgualFecha2=0;function CompararFechas(nDia1,nMes1,nAnyo1,nDia2,nMes2,nAnyo2){var dateFecha1=new Date(nAnyo1,eval(nMes1-1),nDia1);var dateFecha2=new Date(nAnyo2,eval(nMes2-1),nDia2);var nMsg1=dateFecha1.getTime();var nMsg2=dateFecha2.getTime();if(nMsg1<nMsg2){return(fecha1MenorFecha2)}else{if(nMsg1>nMsg2){return(fecha1MayorFecha2)}else{return(fecha1IgualFecha2)}}}function getDaysInMonth(d,c){var e;if((d==0)||(d==2)||(d==4)||(d==6)||(d==7)||(d==9)||(d==11)){e=31}else{if((d==3)||(d==5)||(d==8)||(d==10)){e=30}else{if(d==1){var b=isLeapYear(c);if(b){e=29}else{e=28}}}}return(e)}function isLeapYear(a){if(((a%4)==0)&((a%100)!=0)||((a%400)==0)){return(true)}else{return(false)}}function ExtraerFecha(l,d,h){var g="";var f=new Array(),k=new Array("","","");if(ExtraerFecha.arguments.length<2){return(f)}else{if(cadenaVacia(l)||cadenaVacia(d)){return(f)}if(d.length!=3){return(f)}if(ExtraerFecha.arguments.length==2){h=""}}d=d.toUpperCase();if(h!=""){var c=0;for(c=0;(c<l.length)&&(l.charAt(c)!=h);c++){k[0]+=l.charAt(c)}for(++c;(c<l.length)&&(l.charAt(c)!=h);c++){k[1]+=l.charAt(c)}for(++c;c<l.length;c++){k[2]+=l.charAt(c)}}else{var e=0;var b=0;for(var a=0;a<3;a++){g=d.charAt(a);if(g=="A"){e=b+4}else{e=b+2}for(;(b<e)&&(b<l.length);b++){k[a]+=l.charAt(b)}}}if((k[0]!="")&&(k[1]!="")&&(k[2]!="")){for(var c=0;c<3;c++){g=d.charAt(c);switch(g){case"D":f[0]=parseInt(k[c],10);break;case"M":f[1]=parseInt(k[c],10);break;case"A":f[2]=parseInt(k[c],10);break}}}return(f)}function cadenaVacia(d){var a=" \t\n\r";var b;if((d==null)||(d.length==0)){return true}for(b=0;b<d.length;b++){var e=d.charAt(b);if(a.indexOf(e)==-1){return false}}return true}function dameDiaSemana(p,k,n){var l=p;var j=k;var d=k;var i=n;if(j==1){d=13;i=i-1}if(j==2){d=14;i=i-1}var h=parseInt(((d+1)*3)/5,10);var g=parseInt(i/4,10);var f=parseInt(i/100,10);var e=parseInt(i/400,10);var c=l+(d*2)+h+i+g-f+e+2;var b=parseInt(c/7,10);var m=c-(b*7);var a=m;var o=j;return a}function esFinDeSemana(b){var a=false;if((b==0)||(b==6)){a=true}return a};