Zeitspanne in Monate aufteilen

Code: Alles auswählen.

program z_test.
parameters: pFrom type d obligatory,
            pUntil type d obligatory.
data: firstOfMonth type d,
      lastOfMonth type d,
      firstOfNextMonth type d.

at selection-screen.
  if ( pFrom > pUntil ).
    message 'Enter a valid date range' type 'E'.
  endif.
start-of-selection.
  perform setFirstAndLastOfMonth using pFrom.
  while ( firstOfMonth < pUntil ).
    write:/ 'First of month:', firstOfMonth, 'last of Month:', lastOfMonth.
    " here: submit your program using parameters firstOfMonth and lastOfMonth.
    firstOfNextMonth = lastOfMonth + 1.
    perform setFirstAndLastOfMonth using firstOfNextMonth.
  endwhile.

form setFirstAndLastOfMonth using pDate    " 20221117
    type d.
  firstOfMonth = pDate.                    "  20221117
  firstOfMonth+6(2) = '01'.                "  20221101
  lastOfMonth = pDate.                     "  20221117
  lastOfMonth+6(2) = '28'.                 "  20221128
  add 4 to lastOfMonth.                    "  20221202
  lastOfMonth+6(2) = '01'.                 "  20221201
  subtract 1 from lastOfMonth.             "  20221130
endform.