아밥 초보라 문의드립니다.
프로그램 수행중
한달의 일자를 계산해내는 펑션을 알고 싶습니다.
예를 들어 1월은 31일, 2월은 28일, 4월은 30일....12월은 31일
댓글 3
-
초봡
2007.12.12 01:48
-
노름마치
2007.12.12 03:15
* 참고하시고요
DATA in_datum TYPE sy-datum.
DATA out_datum TYPE sy-datum.
in_datum = sy-datum.
*" 작업가능일(WORKING DAY 기준) 구하기
CALL FUNCTION 'BKK_ADD_WORKINGDAY'
EXPORTING
i_date = in_datum " 기준일자
i_days = '2' " Working day기준 + 2일 후
i_calendar1 = 'KR' " 작업달력
IMPORTING
e_date = out_datum. " Working day기준 + 2일
*=========================================================
*" Date +/- year/month/day
CALL FUNCTION 'J_1H_CAL_DATE_IN_INTERVAL'
EXPORTING
date = in_datum " 기준일자
days = '01' " +/- 일
months = '00' " +/- 월
signum = '-' " +/-
years = '00' " +/- 년
IMPORTING
calc_date = out_datum. " 기준일자 - 1
*=========================================================
*" 해당월의 시작일과 마지막일자
CONCATENATE sy-datum(6) '01' INTO in_datum.
CALL FUNCTION 'LAST_DAY_OF_MONTHS'
EXPORTING
day_in = in_datum " 시작일자
IMPORTING
last_day_of_month = out_datum " 마지막일자
EXCEPTIONS
day_in_no_date = 1
OTHERS = 2.
*=========================================================
*" 일자에 대해 숫자로 변환(월요일 = '1')
DATA l_chasu TYPE c.
CALL FUNCTION 'DATE_COMPUTE_DAY'
EXPORTING
date = in_datum
IMPORTING
day = l_chasu. -
풍뎅이
2007.12.12 23:15
두분 모두 답변감사드립니다.
RP_LAST_DAY_OF_MONTHS 입니다....