Calcula fecha a futuro o pasado

20 10 2007

Esta función calcula una fecha según la cantidad de días que se le pase por parametro al campo ANZAHL_TAGE. Se pueden calcular días anteriores o futuros.


WRITE P_FECHA TO LV_FECHA DD/MM/YYYY.
PERFORM RESTAR_DIA CHANGING LV_FECHA LV_FECHA_SAL.

*&———————————————————————*
*& Form RESTAR_DIA
*&———————————————————————*
* llamo a la función que le resta un día a la fecha
* pasada por parámetro
*———————————————————————-*
* –>P_LV_FECHA text
*———————————————————————-*
FORM RESTAR_DIA CHANGING P_LV_FECHA P_LV_FECHA_SAL.

   CALL FUNCTION ‘DATE_IN_FUTURE’
    EXPORTING
     ANZAHL_TAGE = ‘-1’ “un día atrás
     IMPORT_DATUM = P_LV_FECHA “fecha a la que le quiero restar un dia
    IMPORTING
     * EXPORT_DATUM_EXT_FORMAT = P_LV_FECHA_SAL
     EXPORT_DATUM_INT_FORMAT = P_LV_FECHA_SAL. “fecha que se obtiene

ENDFORM. ” RESTAR_DIA


Technorati tags: