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

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

#include "Fecha.h"

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Fec_DiaSemana()
 * OBJETIVO: Decir el da de la semana de una fecha
 * ENTRADAS: La fecha
 * SALIDAS:  Un nmero que indica el da de la semana, con 
 *           este convenio:
 *           0 -> Domingo, 1 -> Lunes, ..., 6 -> Sbado
 * EJEMPLO:  Fec_DiaSemana (Nacimiento)
 *------------------------------------------------------------------*/
octeto Fec_DiaSemana (Fecha)
fecha Fecha;
  {
  entero Sem, Factor;

  Factor = Fec_Factor (Fecha);
  Sem = Factor - 7*(entero)(Factor/7) - 1;
  if ( Sem == -1 ) { Sem = 6; }

  return ( (octeto) Sem );
  }