How to get last week of the month from a month

Question

Hello,
I want to get last week of the month from a month. For example: If Input = April then Output = Week17. Is there any function module? Or what should be the logic inorder to meet such requirement?
Thanks in advance for your answers.
Nitin.

Answer 1

Hi,
Just cpoy and past this program, and see the result and apply for you requirements.
Data: ZSCDATUM TYPE SCDATUM,
      ZKWEEK TYPE KWEEK,
      ZDAY TYPE SY-DATUM,
      ZLDAY TYPE SY-DATUM,
      ZWK(3) TYPE N,
      ZM(2) TYPE N.
      ZDAY = SY-DATUM.
      ZM = ZDAY+4(2).
      CALL FUNCTION 'SLS_MISC_GET_LAST_DAY_OF_MONTH'
        EXPORTING
          day_in                  = ZDAY
        IMPORTING
         LAST_DAY_OF_MONTH       =  ZLDAY
*       EXCEPTIONS
*         DAY_IN_NOT_VALID        = 1
*         OTHERS                  = 2
      IF sy-subrc <> 0.
*         MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      ZSCDATUM = ZLDAY.
      CALL FUNCTION 'DATE_GET_WEEK'
        EXPORTING
          date               = ZSCDATUM
       IMPORTING
         WEEK               = ZKWEEK
*       EXCEPTIONS
*         DATE_INVALID       = 1
*         OTHERS             = 2
      IF sy-subrc <> 0.
*         MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      ZWK = ZKWEEK+4(2).
      WRITE: ZKWEEK.
      WRITE: ZWK.
Thanks
Reddy