Hola, esta es una funcion que te puede servir, si le pasas dos fechas, te devuelve la cantidada de dias entre ellas,
si le pasas una fecha y cantidad de dias, te devuelve la proxima fecha. No te desesperes en entenderla, yo me tome un buen rato en hacerlo
#--------------------------------------------------------------------
function interday(d_desde, d_hasta, d_xday)
#--------------------------------------------------------------------
define d_desde date,
d_hasta date,
d_xday integer,
dxxday char(30)
define w_desde datetime year to minute,
w_hasta datetime year to minute,
w_xday interval day(5) to day
if d_xday is null or
d_xday = 0
then
let w_desde = d_desde
let w_hasta = d_hasta
let w_xday = w_hasta - w_desde + 1 units day
let dxxday = w_xday
let d_xday = dxxday
else
let w_desde = d_desde
let w_xday = d_xday units day
let w_hasta = w_desde + w_xday
let d_hasta = w_hasta
end if
return d_desde, d_hasta, d_xday
end function -- interday