Deseo saber si alguien sabe como tratar una fecha en formato juliano, y convertirla a formato ddmmaaaa.
Gracias
Gracias
FUNCTION ZFECHJULIANO.
*"----------------------------------------------------------------------
*"*"Interfase local
*" IMPORTING
*" REFERENCE(P_FECHA) LIKE SY-DATUM OPTIONAL
*" REFERENCE(P_JULIANO) TYPE C OPTIONAL
*" EXPORTING
*" REFERENCE(FECHA) LIKE SY-DATUM
*" REFERENCE(JULIANO) TYPE C
*" EXCEPTIONS
*" NO_VALIDO
*"----------------------------------------------------------------------
Data: juli(5) type c.
if not p_fecha is initial.
EXEC SQL.
set connection default
ENDEXEC.
EXEC SQL.
select to_char(to_date(:p_fecha,'yyyymmdd'),'yddd')
into :juli
from dual
ENDEXEC.
juliano = juli.
elseif not p_juliano is initial.
EXEC SQL.
set connection default
ENDEXEC.
if p_juliano+1 > 365.
raise NO_VALIDO.
endif.
EXEC SQL.
select to_char(to_date(:p_juliano,'yddd'),'yyyymmdd')
into :fecha
from dual
ENDEXEC.
endif.
ENDFUNCTION.
Comentario