메뉴 건너뛰기

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
번호 제목 글쓴이 날짜 조회 수
527 data [2] sapjoy 2006.12.03 16722
526 Abap Dump Top 10 [5] 양키 2013.01.14 15746
525 BAPI_GOODSMVT_CREATE 입고/출고/재고이동시에 사용하세요. [5] 노름마치 2007.12.10 15105
524 Dynamic Internal Table 생성 꿀꿀윤뚱67 2019.11.27 14857
523 <img src=b.gif>Windows 7 에서 SAP GUI ALV 반응느림 해결방법 공유 (GUI720 기준)[추천:e-abap][추천:유리선율][추천:보나] [17] 점점 2010.07.02 14782
522 텍스트파일 다운받을때 유니코드 문제 해결 [8] file 솔로몬 2007.06.28 13797
521 SAP GUI WINDOW TITLE BAR 정보 표시 설정 방법 / 색상 설정 [15] file 미소 2010.12.26 13452
520 SAP 데이터 EXCEL로 내리는 절차 [6] sapjoy 2007.06.04 13352
519 Useful SAP System Administration Transactions [2] 홍성현 2007.08.08 12752
518 사업장 변경 [J_1BBRANCH] [1] Alexhong 2012.03.07 12646
517 테이블 변경 이력 테이블 [5] sapjoy 2006.12.12 12635
516 SAP GUI 7.10 patch level 14 Download Link 입니다. [2] 방배 2009.10.13 12611
515 오라클 힌트 리스트 정리 [3] sapjoy 2012.03.08 12537
514 native sql 사용 [8] sapjoy 2006.12.28 12434
513 GUI 720에서 ALV Grid 느린 현상 [26] 벗님 2011.10.12 12368
512 SELECT 문의 종류 및 CONCATENATE의 사용 [24] file iceout 2010.08.20 11792
511 delete 인터널 테이블 [7] ecbase 2006.12.02 11558
510 Batch JOB이 수행중인지 여부체크 [5] deepbluesea 2011.04.05 11401
509 클라이언트간 CTS로 데이타이관 [15] file 노름마치 2008.07.11 11094
508 나름데로 User Exit 정리 [17] 한해동안 2008.06.03 11078