해당년도의 주차를 입력받아 해당주차의 월요일과 금요일의 날짜를 알고 싶습니다.
아무래도 함수가 있을것 같은데 함수를 찾지 못하겠습니다.
답변 부탁드립니다.
* e-abap님에 의해서 게시물 복사되었습니다 (2010-01-09 13:44)
* e-abap님에 의해서 게시물 이동되었습니다 (2010-01-09 13:55)
댓글 2
-
Risky
2010.01.05 00:26
-
요요
2010.01.05 02:40
한개 펑션으로 나오는 것이 없는 것 같아서 만들어 보았는데요.
도움이 되실지 모르겠네요. ^^
FUNCTION ytest_week_date.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" REFERENCE(I_WEEK) TYPE NUM6
*" TABLES
*" TABLE
*"----------------------------------------------------------------------
DATA : BEGIN OF ls_data,
datum TYPE d,
day TYPE char2,
END OF ls_data.
DATA s_sdays TYPE p.
DATA s_cdays TYPE p.
DATA l_datum TYPE d.
DATA l_day TYPE d.
DATA l_monday TYPE d.
DATA l_tuesday TYPE d.
DATA l_extra TYPE i.
l_datum(4) = i_week(4).
l_datum+4 = '0101'.
s_sdays = l_datum.
l_extra = s_sdays MOD 7.
s_cdays = s_sdays + i_week+4(2) * 7.
IF l_extra IS NOT INITIAL.
SUBTRACT 7 FROM s_cdays.
ENDIF.
l_datum = s_cdays - l_extra.
l_monday = l_datum + 2.
l_tuesday = l_datum + 6.
DO 8 TIMES.
ls_data-datum = l_datum.
CASE sy-index.
WHEN 1. ADD 1 TO l_datum. CONTINUE.
WHEN 2. ls_data-day = '일'.
WHEN 3. ls_data-day = '월'.
WHEN 4. ls_data-day = '화'.
WHEN 5. ls_data-day = '수'.
WHEN 6. ls_data-day = '목'.
WHEN 7. ls_data-day = '금'.
WHEN 8. ls_data-day = '토'.
ENDCASE.
APPEND ls_data TO table.
ADD 1 TO l_datum.
ENDDO.
ENDFUNCTION.
답글 달고 있었는데, 답글 달렸네요, ㅎㅎ
참조해서 짜시면 될 것 같아요. 새해 복 많이 받으세요.
CALL FUNCTION 'DATE_GET_WEEK'
CALL FUNCTION 'WEEK_GET_FIRST_DAY'
http://ruth99.nayana.com/cgi-bin/ez2000/ezboard.cgi?db=abap&action=read&dbf=143&page=0&depth=2