메뉴 건너뛰기

SAP 한국 커뮤니티

How to add hours, minutes and seconds

sapjoy 2006.12.12 21:13 조회 수 : 4370 추천:50

How to add hours, minutes and seconds
Considering a table ztime with a field ztime of type tims and has 2 records.
To get the sum of the times of these records  plz  see the following code :

REPORT ZTIME .

DATA : IZTIME LIKE ZTIME OCCURS 0 WITH HEADER LINE.
DATA : TOTTIME LIKE SY-UZEIT.
DATA : N TYPE I, TOTHRS TYPE I.

START-OF-SELECTION.
PERFORM GET-DATA.
PERFORM CAL-TOT-TIME.
PERFORM WRITE.
END-OF-SELECTION.

*&--------------------------------------------------------------------
-*
*&      Form  GET-DATA
*&--------------------------------------------------------------------
-*
*       text
*---------------------------------------------------------------------
-*
*  -->  p1        text
*  <--  p2        text
*---------------------------------------------------------------------
-*
FORM GET-DATA.
SELECT * FROM ZTIME
INTO CORRESPONDING FIELDS
OF TABLE IZTIME.

ENDFORM.                    " GET-DATA

*&--------------------------------------------------------------------
-*
*&      Form  CAL-TOT-TIME
*&--------------------------------------------------------------------
-*
*       text
*---------------------------------------------------------------------
-*
*  -->  p1        text
*  <--  p2        text
*---------------------------------------------------------------------
-*
FORM CAL-TOT-TIME.


LOOP AT IZTIME.
TOTTIME = TOTTIME + IZTIME-ZTIME.
ENDLOOP.

LOOP AT IZTIME.
N = IZTIME-ZTIME+0(2).
TOTHRS = TOTHRS + N.
ENDLOOP.


ENDFORM.                    " CAL-TOT-TIME

*&--------------------------------------------------------------------
-*
*&      Form  WRITE
*&--------------------------------------------------------------------
-*
*       text
*---------------------------------------------------------------------
-*
*  -->  p1        text
*  <--  p2        text
*---------------------------------------------------------------------
-*
FORM WRITE.

DATA : HRS TYPE I, MIN TYPE I, SECS TYPE I.

LOOP AT IZTIME.
WRITE :/ IZTIME-ZTIME.
ENDLOOP.

SKIP 2.

HRS = TOTHRS.
MIN = TOTTIME+2(2).
SECS = TOTTIME+4(2).

WRITE :/ 'total time : ' , (2)HRS NO-GAP,
                       ':' NO-GAP,(2)MIN NO-GAP,
                       ':' NO-GAP,(2)SECS NO-GAP.


ENDFORM.                    " WRITE
번호 제목 글쓴이 날짜 조회 수
387 Second index 생성시 MANDT 필드 필요 없다. [2] 모포 2012.05.08 6742
386 자주 사용하는 시스템변수 [8] 열공아밥 2009.12.20 6715
385 유용한 Abap Sample Package [2] 양키(이경환) 2014.03.31 6698
384 LIKE (% _)의 사용법 [8] ecbase 2006.12.02 6698
383 BAPI_PR_CREATE 구매요청 생성시에 사용하세요. 이렇게도 쓸 수 있군요. [1] 노름마치 2007.12.10 6683
382 특수 문자 표현 [8] ecbase 2006.12.02 6677
381 TABLE INDEX 추가 및 후속작업 [16] file 루베루베루베룹 2009.04.22 6659
380 Buffer Bypass 방법 [4] sapjoy 2010.05.20 6622
379 [Tip] Explorer 8.0 & SAP GUI 7.2 fancky 2011.05.19 6603
378 <img src=d.gif>[Function]Edit 팝업창을 뛰워보자[추천:e-abap] [19] file 양키 2010.09.28 6602
377 [Function]금액(숫자)를 영문철자로 바꿔보자 [3] file 양키 2010.09.28 6551
376 테이블 구조 다운로드 DD03L 테이블 조회 [1] sapjoy 2006.12.12 6550
375 SAP Icon 출력 [3] 홍성현 2007.08.09 6538
374 Nested loops Tunning [3] sapjoy 2012.03.13 6511
373 (-) 부호 값 앞에 붙이기 [6] 권장원 2009.11.06 6473
372 SAP의 On-line Program에서 Double Click Event 잡는 법 [8] Delight 2008.04.30 6464
371 특정프로그램 내에서 프린터로 직접 프린트하는 함수 [8] 미쓰조 2010.03.17 6445
370 Internal Table Read performance [4] file sapjoy 2012.03.12 6431
369 add 구문 [3] sapjoy 2006.12.02 6431
368 업로드할 엑셀 파일을 TXT 파일(탭으로 분리된)로 내리지 않고 엑셀파일로 꿀단지 2011.10.11 6377