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

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

#include "Fecha.h"

#include <stdio.h>          /*  sprintf()                           */

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Fec_Cadena()
 * OBJETIVO: Convertir una fecha en una cadena con 
 *           formato AAAAMMDD
 * ENTRADAS: La fecha
 * SALIDAS:  La cadena
 * NOTA:     La cadena devuelta hay que destruirla cuando no
 *           se necesite
 * EJEMPLO:  Fec_Cadena (Nacimiento)
 *------------------------------------------------------------------*/
cadena Fec_Cadena (Fecha)
fecha  Fecha;
  {
  cadena Respuesta;
  
  Respuesta = Cad_Crea (8);
  sprintf ( Respuesta, "%04d%02d%02d", 
            Fec_Ano(Fecha), Fec_Mes(Fecha),Fec_Dia(Fecha) ); 

  return ( Respuesta );
  }