/*--------------------------------------------------------------------
 * FICHERO:  FecCrea.c
 * OBJETIVO: Definir la funcin Fec_Crea()
 * AUTOR:    Pedro Reina
 * FECHA:    L.17.7.1995
 *------------------------------------------------------------------*/

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

#include "Fecha.h"

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Fec_Crea()
 * OBJETIVO: Crear un objeto "fecha" con los datos dados
 * ENTRADAS: El ao, el mes y el da de la fecha
 * SALIDAS:  Una fecha o NIL si no se puede crear
 * NOTA:     No se comprueba que la fecha sea vlida
 * EJEMPLO:  Fec_Crea (1960,10,25)
 *------------------------------------------------------------------*/
fecha Fec_Crea (Ano, Mes, Dia)
contador Ano;
octeto   Mes, Dia;
  {
  fecha Nueva;

  if ( Nueva = (fecha) (Mem_Crea (sizeof(Fec_st))) )
    {
    Fec_PonAno (Nueva, Ano);
    Fec_PonMes (Nueva, Mes);
    Fec_PonDia (Nueva, Dia);
    }

  return ( Nueva );
  }
