DATA: gv_timestamp TYPE timestamp,
      gv_char15 TYPE char15.

WRITE gv_timestamp TO gv_char15 NO-GROUPING ROUND 4.
gv_timestamp = gv_char15 * 10000.

data: t type timestampl
    , i type i
    .
t = '20071112235600'.

t = ( t + 500 ) div 1000 * 1000 .
i = t mod 10000.
if i = 6000. t = t + 4000. endif.

write / t no-GROUPING.

data: t type timestampl.
t = '20071230235900'.
write t no-GROUPING DECIMALS 0.

data: i type i
    , j type i
    , d type d
    , c(15)
    .

t = ( t + 500 ) div 1000 * 1000 .
i = t mod 10000.
if i = 6000. t = t + 4000. endif.
i = t mod 1000000.
if i = 240000.
  i = t div 1000000.
  write i to c LEFT-JUSTIFIED NO-GROUPING.
  d = c.
  d = d + 1.
  c = d.
  j = c.
  t = t  + ( j - i ) * 1000000 .
endif.

write / t no-GROUPING DECIMALS 0.

FUNCTION ISHMED_ROUND_TIME.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     VALUE(I_ROUND_MINUTE) TYPE  I DEFAULT 30
*"  CHANGING
*"     VALUE(C_DATE) TYPE  SY-DATUM DEFAULT SY-DATUM
*"     VALUE(C_TIME) TYPE  SY-UZEIT DEFAULT SY-UZEIT
*"----------------------------------------------------------------------
  data: l_hour type i,
        l_min  type i,
        l_sec  type i,
*       L_SUM muss Typ 'F' sein, sonst wird falsch gerechnet!!!
        l_sum  type f,
        l_time type sy-uzeit.


* Fichte, Nr 2845: Neue Rundungsmethode
  IF c_date < '19000101'.
    c_date = sy-datum.
    c_time = sy-uzeit.
  ENDIF.
  l_hour = c_time(2).
  l_min  = c_time+2(2).
  l_sec  = c_time+4(2).
* Achtung: 00:00:00 soll 00:00:00 bleiben. Erst 00:00:01
* wird z.B zu 00:30:00
  l_sum  = l_hour * 3600 + l_min * 60 + l_sec - 1.
  IF l_sum < 0.
    l_sum = 24 * 60 * 60 - 1.
  ENDIF.
  l_sum = ( TRUNC( l_sum / ( i_round_minute * 60 ) ) + 1 )
            * ( i_round_minute * 60 ).
  IF l_sum >= 86400.            " 60 Sec * 60 Min * 24 Hour
    l_sum = l_sum - 86400.
  ENDIF.
  l_hour = trunc( l_sum / 3600 ).
  l_min  = trunc( ( l_sum - l_hour * 3600 ) / 60 ).
  WRITE l_hour TO l_time(2)   USING EDIT MASK 'RR__'.
  WRITE l_min  TO l_time+2(2) USING EDIT MASK 'RR__'.
  WRITE '00' TO l_time+4(2).
  TRANSLATE l_time USING ' 0'.
  IF l_time < c_time.
    c_date = c_date + 1.
  ENDIF.
  c_time = l_time.
ENDFUNCTION.

                                                                   
  Параметры импорта               Значение                                     
                                                                               
  I_ROUND_MINUTE                  10                                           
                                                                               
                                                                               
  Изменяемые параметры            Значение                                     
                                                                               
  C_DATE                          31.12.2007                                   
                   Результат:     01.01.2008                                   
  C_TIME                          23:59:35                                     
                   Результат:     00:00:00