/*--------------------------------------------------------------------
 * FICHERO:  FecLeeCa.c
 * OBJETIVO: Definir la funcin Fec_LeeCadena()
 * AUTOR:    Pedro Reina
 * FECHA:    V.14.7.1995
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------------
 * Ficheros de cabecera
 *------------------------------------------------------------------*/

#include "Fecha.h"

#include <stdlib.h>         /*  atoi()                              */

/*--------------------------------------------------------------------
 * Definicin de funciones
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Fec_LeeCadena()
 * OBJETIVO: Leer una fecha de una cadena con formato AAAAMMDD
 * ENTRADAS: La cadena
 * SALIDAS:  La fecha
 * NOTA:     La fecha devuelta hay que destruirla cuando no
 *           se necesite
 * EJEMPLO:  Fec_LeeCadena ("19601025")
 *------------------------------------------------------------------*/
fecha  Fec_LeeCadena (Cadena)
cadena Cadena;
  {
  fecha  Respuesta;
  octeto Mes, Dia;
  
  Dia = atoi (Cadena+6);
  Cadena[6] = NULO;

  Mes = atoi (Cadena+4);
  Cadena[4] = NULO;

  return ( Fec_Crea ((contador)atoi(Cadena), Mes, Dia) );
  }