메뉴 건너뛰기

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
번호 제목 글쓴이 날짜 조회 수
27 SAP GUI WINDOW TITLE BAR 정보 표시 설정 방법 / 색상 설정 [15] file 미소 2010.12.26 13452
26 텍스트파일 다운받을때 유니코드 문제 해결 [8] file 솔로몬 2007.06.28 13798
25 <img src=b.gif>Windows 7 에서 SAP GUI ALV 반응느림 해결방법 공유 (GUI720 기준)[추천:e-abap][추천:유리선율][추천:보나] [17] 점점 2010.07.02 14783
24 Dynamic Internal Table 생성 꿀꿀윤뚱67 2019.11.27 14859
23 BAPI_GOODSMVT_CREATE 입고/출고/재고이동시에 사용하세요. [5] 노름마치 2007.12.10 15109
22 Abap Dump Top 10 [5] 양키 2013.01.14 15746
21 data [2] sapjoy 2006.12.03 16722
20 프로그램 정보(프로그램 리스트, PROGRAM LIST, PROGRAM TABLE) [3] sapjoy 2007.02.23 16852
19 SYST 시스템 변수 정리 [5] 아밥뽀 2014.08.23 17022
18 FOR ALL ENTRIES IN 구문 사용시 select 필드 선택시 주의사항. [7] 나침반친구 2007.03.13 17037
17 ABAP 구문 총정리 [39] file Wise 멘토 2008.11.24 17171
16 인터널 테이블 라인수 lines [8] sapjoy 2014.01.20 17280
15 ABAP 핵심정리 [23] SARA 2007.03.14 17342
14 ALV LIST 진행시 LAYOUT 속성값 [18] kwon09 2007.04.11 17366
13 SDN -> SCN 변경되면서 Contents별로 바뀐 LINK 모음 [13] Wise 멘토 2012.07.06 19045
12 숫자입력 체크(Numeric character check) [1] 양키(이경환) 2014.01.28 19639
11 LIKE와 TYPE의 차이 [13] sapjoy 2006.12.06 19723
10 문자열에 있는 값이 숫자만으로 되어있는지 문자가 포함됐는지 체크하는 함수 [3] 꿀단지 2011.10.11 19909
9 SELECT statement D.Y.Kim 2007.07.20 23647
8 BAPI_PR_CREATE 구매요청 생성시에 사용하세요 [2] 노름마치 2007.12.10 23708