함수 : DATE_GET_WEEK 2번만 돌리면 될듯 ..

가령 ..
현재 일자는 : 20090528일이라 치구욤 +_+...

아래부분 copy 하셔서 사용해 보시길..

---------------------------------------------------------------

DATA :  LV_DATE_1 LIKE SY-DATUM,    "기준 일자
        LV_DATE_2 LIKE SY-DATUM,    "그월의 시작일
        LV_WEEK_1 LIKE SCAL-WEEK,   "기준일 자주차
        LV_WEEK_2 LIKE SCAL-WEEK,   "월의 시작일 주차
        LV_RESULT TYPE I,                  "결과값.
        LV_MONTH(2) TYPE C.

  LV_DATE_1 = '20090528'.
  CONCATENATE LV_DATE_1+0(6) '01' INTO LV_DATE_2.

  CALL FUNCTION 'DATE_GET_WEEK'
    EXPORTING
      DATE         = LV_DATE_1
    IMPORTING
      WEEK         = LV_WEEK_1
    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.

  CALL FUNCTION 'DATE_GET_WEEK'
    EXPORTING
      DATE         = LV_DATE_2
    IMPORTING
      WEEK         = LV_WEEK_2
    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.

  LV_RESULT = ( LV_WEEK_1 - LV_WEEK_2 ) + 1.

  LV_MONTH = LV_DATE_1+4(2).

WRITE : '입력하신 일자는 ', LV_MONTH,  '월의 ',  LV_RESULT ,'주차 입니다 .'.