1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 |
FORM ZWAIT USING VALUE(SECOND). DATA: d1 TYPE d, d2 TYPE d, t1 TYPE t, T2 TYPE T, TSL TYPE TIMESTAMPL, S1 TYPE P DECIMALS 6, S2 TYPE P DECIMALS 6, SEC TYPE P DECIMALS 6. GET TIME STAMP FIELD TSL. CONVERT TIME STAMP TSL TIME ZONE SY-ZONLO INTO DATE D1 TIME T1. S1 = FRAC( TSL ). WHILE SECOND > SEC. GET TIME STAMP FIELD TSL. CONVERT TIME STAMP TSL TIME ZONE SY-ZONLO INTO DATE D2 TIME T2. S2 = FRAC( TSL ). SEC = ( ( D2 - D1 ) * 86400 ) + T2 - T1 + S2 - S1. ENDWHILE. ENDFORM. |
2019
08-29
08-29