/*--------------------------------------------------------------------
 * FICHERO:  TimMinut.c
 * OBJETIVO: Definir la funcin Tim_Minuto()
 * AUTOR:    Pedro Reina
 * FECHA:    J.20.4.1995
 *------------------------------------------------------------------*/

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

#include "Tiempo.h"

#ifdef OLIMPO_PC
#include <dos.h>                /*  struct time  gettime()          */
#endif

#ifdef OLIMPO_QL
#include <qlib.h>               /* mt_rclck()  cn_date()            */
#include <stdlib.h>             /* atoi()                           */
#endif

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Tim_Minuto()
 * OBJETIVO: Decir el minuto en curso
 * ENTRADAS: Ninguna
 * SALIDAS:  El minuto en curso
 * EJEMPLO:  Tim_Minuto()
 *------------------------------------------------------------------*/

#ifdef OLIMPO_PC
octeto Tim_Minuto()
  {
  struct time t;
  gettime(&t);
  return ( (octeto) (t.ti_min) );
  }
#endif

#ifdef OLIMPO_QL
octeto Tim_Minuto()
  {
  char FechaQL[25];

  cn_date (FechaQL,mt_rclck());
  FechaQL[19] = NULO;

  return ( (octeto) atoi(FechaQL+17) );
  }
#endif