Code: Alles auswählen.
REPORT ZZ_zeit .
PARAMETERS: P_MIN TYPE I, " in Minuten anzugeben
P_DAT TYPE D DEFAULT '20060101',
P_ZEIT TYPE T DEFAULT '003000'.
DATA: SEKUNDEN TYPE I.
START-OF-SELECTION.
WRITE:/ 'Eingabe', P_ZEIT, P_DAT.
SEKUNDEN = P_MIN * 60. " in Sekunden umrechnen
IF SEKUNDEN > P_ZEIT. " komme in den Vortag
P_DAT = P_DAT - 1.
ENDIF.
P_ZEIT = P_ZEIT - SEKUNDEN. " geht auch, wenn
" SEKUNDEN > P_ZEIT
WRITE:/ 'Eingabe', P_ZEIT, P_DAT.