메뉴 건너뛰기

SAP 한국 커뮤니티

일/주/월/분기/년..연산가능 펑션~

초짜 2007.07.31 14:33 조회 수 : 5215 추천:23

*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     VALUE(IN_RECTYPE) TYPE  ALPDBRTYP
*"     VALUE(IN_NBR_DWXMQY) TYPE  I
*"     VALUE(IN_DATE) TYPE  ALDATE
*"  EXPORTING
*"     VALUE(OUT_DATE) TYPE  ALDATE
*"  EXCEPTIONS
*"      OTHER_ERROR
*"----------------------------------------------------------------------


* R/3 2005S Version Standard 에 있는 펑션(SALP_CALC_DATE)이나


* Month/Quarter 는 마이너스값 입력시 적용안되는점 수정
* IN_RECTYPE : Days (D,R,I,H) or Weeks (W,A,B,C) or X-Days (X,E,F,G) or
*              Months (M,J,K,L) or Quarters (Q,N,O,P) or Years (Y,S,T,U)
* IN_NBR_DWXMQY : 원하는 구간값입력(+/-)
* IN_DATE : 기준일자
* OUT_DATE : the result


  DATA: dd TYPE i,
        md TYPE i,
        cd TYPE i,
        mm TYPE i,
        tt TYPE i,
        op TYPE d,
        fdate TYPE d.
  CASE in_rectype.
    WHEN 'D' OR 'R' OR 'I' OR 'H'.
      fdate = in_date + in_nbr_dwxmqy.
    WHEN 'A' OR 'B' OR 'W' OR 'C'.
      fdate = in_date + ( in_nbr_dwxmqy * 7 ).
    WHEN 'E' OR 'F' OR 'X' OR 'G'.
      fdate = in_date + in_nbr_dwxmqy.
    WHEN 'M' OR 'J' OR 'K' OR 'L'.
      dd = in_nbr_dwxmqy DIV 12.
      md = in_nbr_dwxmqy MOD 12.
      mm = in_date+4(2).
      cd = mm + in_nbr_dwxmqy.
      fdate = in_date.
      tt = fdate+6(2) - 1.
      fdate+6(2) = '01'.
      IF dd > 0.
        fdate+0(4) = in_date+0(4) + dd.
      ELSEIF cd <= 0.
        fdate+0(4) = in_date+0(4) + dd.
      ENDIF.
      fdate+4(2) = in_date+4(2) + md.
      IF fdate+4(2) > 12.
        fdate+4(2) = fdate+4(2) MOD 12.
        IF in_nbr_dwxmqy > 0.
          fdate+0(4) = fdate+0(4) + 1.
        ENDIF.
      ENDIF.
      fdate = fdate + tt.
    WHEN 'Q' OR 'N' OR 'O' OR 'P'.
      dd = ( in_nbr_dwxmqy * 3 ) DIV 12.
      md = ( in_nbr_dwxmqy * 3 ) MOD 12.
      cd = mm + in_nbr_dwxmqy.
      fdate = in_date.
      tt = fdate+6(2) - 1.
      fdate+6(2) = '01'.
      IF dd > 0.
        fdate+0(4) = in_date+0(4) + dd.
      ELSEIF cd <= 0.
        fdate+0(4) = in_date+0(4) + dd.
      ENDIF.
      fdate+4(2) = in_date+4(2) + md.
      IF fdate+4(2) > 12.
        fdate+4(2) = fdate+4(2) MOD 12.
        IF in_nbr_dwxmqy > 0.
          fdate+0(4) = fdate+0(4) + 1.
        ENDIF.
      ENDIF.
      fdate = fdate + tt.
    WHEN 'Y' OR 'S' OR 'T' OR 'U'.
      fdate = in_date.
      fdate+0(4) = in_date+0(4) + in_nbr_dwxmqy.
    WHEN OTHERS.
      fdate = in_date.
      RAISE other_error.
  ENDCASE.


  out_date = fdate.

번호 제목 글쓴이 날짜 조회 수
287 단축키입니다 [6] file 머리를쓰자 2014.12.22 5082
286 튜닝교육_실무 [6] file 가보자 2007.04.12 5091
285 Convert SAPScript or ABAP lists to PDF format [6] sapjoy 2007.01.30 5105
284 주민번호 체크로직 [14] 오향 2008.02.29 5105
283 New ABAP Debugger Demo Wise 멘토 2008.12.15 5108
282 요일 찾는 Function [3] Delight 2008.04.23 5112
281 바탕화면에 바로가기 생성하기 [1] 김윤승 2007.06.25 5153
280 화면에 드롭다운 리스트 박스 추가 하기. ABCD [8] 버즈즈 2008.01.04 5177
279 READ_TEXT 관련 [14] file 노름마치 2007.11.15 5180
278 Lock 걸렸을때 푸는 방법 공개합니다. [6] 양갱 2014.12.01 5190
277 엑셀로 데이터 내보내기 샘플 코드 [7] sapjoy 2007.01.26 5193
276 변수를 메모리로 올리는 세가지 방법 [5] sapjoy 2006.12.06 5214
» 일/주/월/분기/년..연산가능 펑션~ [7] 초짜 2007.07.31 5215
274 특수문자가 깨지는 문제-스마트폼 [2] sapjoy 2016.06.21 5245
273 <b>[완료]</b>netweaver 설치중 오류log 원인 아시는분 좀 알려주세요 [1] 카즈키 2008.07.19 5265
272 인덱스인터널테이블만들기 [2] 천지개벽 2009.01.29 5266
271 Report 프로그램 Application Toolbar 에 버튼추가 sapjoy 2006.12.28 5283
270 엑셀 65000 라인초과시 사용 유틸 [5] file GG 2007.08.19 5296
269 SAP에서 바코드 인쇄하기 [1] 홍성현 2007.08.09 5303
268 화면상에 입력된 parameter , selection-option 값 inter table로 담는 펑션 ㅋ [5] file bd 2008.03.25 5307