USE MATH
-- Función que realiza el cálculo del día juliano
-- Entradas: año, mes y día
-- Salidas: día juliano [1-366]
FUNCTION NO_TYPE Juliano (IN INTEGER ano, IN INTEGER mes,IN INTEGER dia,OUT INTEGER diajuliano)
DECLS
INTEGER tabla[12]={31,28,31,30,31,30,31,31,30,31,30,31} -- Días para cada mes de un año normal
INTEGER tabla_bis[12]={31,29,31,30,31,30,31,31,30,31,30,31} -- Días para cada mes año bisiesto
INTEGER suma=0
BODY
-- Comprobación año bisiesto
IF (remainder(ano,4)==0 AND (remainder(ano,100)>0 OR remainder(ano,400)==0)) THEN
FOR (i IN 1,mes-1) -- Año bisiesto
suma=suma+tabla_bis[i]
END FOR
ELSE -- Año normal
FOR (i IN 1,mes-1)
suma=suma+tabla[i]
END FOR
END IF -- Cálculo día juliano
diajuliano=suma+dia
END FUNCTION
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
