Web Dynpro for ABAP(14):12-Hour Time Format

3.19 12-Hour Time Format

SAP中使用类：CL_ABAP_TIMEFM，对时间进行操作；

SAP中设置时间格式：

1.选择System->User Profile->Own Data;

2.选择Defaults页签；

3.设置Time Format;

 示例：

"test time
FORM f_test_timefm.
  DATA:lv_tm_int TYPE t VALUE '133000'.
  DATA:lv_tm_str TYPE string .
  DATA:lv_boolean TYPE boolean.
  DATA:lv_timefm TYPE xutimefm.
  "0  24 Hour Format (Example: 12:05:10)
  "1  12 Hour Format (Example: 12:05:10 PM)
  "2  12 Hour Format (Example: 12:05:10 pm)
  "3  Hours from 0 to 11 (Example: 00:05:10 PM)
  "4  Hours from 0 to 11 (Example: 00:05:10 pm)
  DATA:lo_exception TYPE REF TO cx_root.
  DATA:lv_msg TYPE string.
  TRY.
    "将内部t类型 转换成外部time类型
    cl_abap_timefm=>conv_time_int_to_ext(
      EXPORTING
        time_int = lv_tm_int
        "is_24_allowed = abap_true "这个检查不通过？
      IMPORTING
        time_ext = lv_tm_str
    ).
    WRITE:/ lv_tm_int,lv_tm_str.

    "将外部time类型转换为内表t类型
    lv_tm_str = '18:30:55'.
    cl_abap_timefm=>conv_time_ext_to_int(
      EXPORTING
        time_ext = lv_tm_str
        is_24_allowed = abap_true
      IMPORTING
        time_int = lv_tm_int
    ).
    WRITE:/ lv_tm_str,lv_tm_int.

    "获取国家时间格式
    lv_timefm = cl_abap_timefm=>get_country_timefm( 'CA' ).
    WRITE:/ lv_timefm.
    "获取环境时间格式
    lv_timefm = cl_abap_timefm=>get_environment_timefm( ).
    WRITE:/ lv_timefm.
    "获取用户时间格式
    lv_timefm = cl_abap_timefm=>get_user_timefm( ).
    WRITE:/ lv_timefm.

  CATCH cx_root INTO lo_exception.
    lv_msg = lo_exception->get_text( ).
    WRITE:/ lv_msg.
  ENDTRY.

ENDFORM.