function Calendario_Normal(destino)
// Calendario del aņo en curso hasta diez aņos despues
{
   var lsFecha;
   if (showModalDialog) {
   lsFecha = showModalDialog("calendario_normal.html", "", "center=yes;dialogWidth=350pt;dialogHeight=200pt");
   if (lsFecha != "")
       destino.value = lsFecha;
   } else
       alert("Internet Explorer 4.0 or later is required.")
} // Calendario_Normal

function Calendario_Rango(destino)
// Calendario de diez aņos anteriores a diez aņos despues
{
   var lsFecha;
   if (showModalDialog) {
   lsFecha = showModalDialog("Calendario_Rango.html", "", "center=yes;dialogWidth=350pt;dialogHeight=200pt");
   if (lsFecha != "")
       destino.value = lsFecha;
   } else
       alert("Internet Explorer 4.0 or later is required.")
} // Calendario_Rango

function getInit(mainStr, searchStr)
{
   foundOffset = mainStr.search(searchStr);
   if (foundOffset == -1)
      return "";
   return mainStr.substring(0, foundOffset);
} // getInit

function getMiddle(mainStr, searchStr)
{
   iniOffset = mainStr.search(searchStr);
   endOffset = mainStr.lastIndexOf(searchStr);
   if (iniOffset == -1 || endOffset == -1)
      return "";
   return mainStr.substring(iniOffset+1, endOffset);
} // getMiddle

function getEnd(mainStr, searchStr)
{
   foundOffset = mainStr.lastIndexOf(searchStr);
   if (foundOffset == -1)
      return "";
   return mainStr.substring(foundOffset+1);
} // getEnd

function val_fecha(fecha)
{
   ini = parseInt(getInit(fecha.value, "/"), 10);
   mid = parseInt(getMiddle(fecha.value, "/"), 10);
   end = parseInt(getEnd(fecha.value, "/"), 10);

   if (isNaN(ini) || isNaN(mid) || isNaN(end)) {
      fecha.focus();
		return false;
   }
   else if (end < 1900 || end > 2020) {
      fecha.focus();
      return false;
   }
   else if (mid < 1 || mid > 12) {
      fecha.focus();
		return false;
   }
   else if (ini < 1 || ini > 31) {
      fecha.focus();
		return false;
   }
   return true;
} // val_fecha

function fecha_esp2ing(fecha)
{
   ini = parseInt(getInit(fecha.value, "/"), 10);
   mid = parseInt(getMiddle(fecha.value, "/"), 10);
   end = parseInt(getEnd(fecha.value, "/"), 10);

   fecha.value = mid + "/" + ini + "/" + end;
   
   return fecha;
} // fecha_esp2ing