-- Realiza la actualización de la hora y los minutos en función de la variable TIME
FUNCTION NO_TYPE reloj(IN REAL time, OUT REAL hora,OUT REAL minuto, OUT REAL hora_aux)
DECLS
CONST REAL tau=60/3600 -- Relación minuto/hora
BODY
IF ((time-hora_aux)>=tau) THEN minuto=minuto+1 -- Incremento minuto
hora_aux=time -- Actualización hora auxiliar
END IF
IF (minuto>=60) THEN hora=hora+1 -- Actualización hora
minuto=minuto-60 -- Inicialización minuto
END IF
IF (hora>=24) THEN hora=hora-24
END IF
END FUNCTION
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
