메뉴 건너뛰기

SAP 한국 커뮤니티

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

초짜 2007.07.31 23:33 조회 수 : 5281 추천: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.

번호 제목 글쓴이 날짜 조회 수
288 ICON ascii code [3] file sapjoy 2007.10.05 5157
287 백그라운드로 프로그램 실행하기 [5] file 아밥뽀 2014.09.22 5175
286 화면에 드롭다운 리스트 박스 추가 하기. ABCD [8] 버즈즈 2008.01.05 5208
285 팝업창이나 서브스크린 디버깅을 쉽게 할 수 있어요 [17] 김창훈 2007.08.09 5218
284 READ_TEXT 관련 [14] file 노름마치 2007.11.15 5221
283 단축키입니다 [6] file 머리를쓰자 2014.12.22 5223
282 바탕화면에 바로가기 생성하기 [1] 김윤승 2007.06.25 5240
281 엑셀로 데이터 내보내기 샘플 코드 [7] sapjoy 2007.01.26 5246
280 요일 찾는 Function [3] Delight 2008.04.24 5247
279 변수를 메모리로 올리는 세가지 방법 [5] sapjoy 2006.12.06 5258
» 일/주/월/분기/년..연산가능 펑션~ [7] 초짜 2007.07.31 5281
277 인덱스인터널테이블만들기 [2] 천지개벽 2009.01.30 5289
276 <b>[완료]</b>netweaver 설치중 오류log 원인 아시는분 좀 알려주세요 [1] 카즈키 2008.07.20 5310
275 Report 프로그램 Application Toolbar 에 버튼추가 sapjoy 2006.12.29 5329
274 화면상에 입력된 parameter , selection-option 값 inter table로 담는 펑션 ㅋ [5] file bd 2008.03.26 5333
273 SAP에서 바코드 인쇄하기 [1] 홍성현 2007.08.09 5338
272 엑셀 65000 라인초과시 사용 유틸 [5] file GG 2007.08.20 5368
271 sap help desk 전화 번호 [1] sapjoy 2007.03.11 5408
270 납품 UserExit [2] 한해동안 2009.08.13 5432
269 T-CODE 별 USER EXTI 찾는 프로그램 [15] sapjoy 2006.12.20 5445