添加和去除前导零

标签：exce   inpu   sgid   family   cep   let   amp   sgi   sage   

"加前导零
DEFINE add_pre_zero.
  call function ‘CONVERSION_EXIT_ALPHA_INPUT‘
    exporting
      input        = &1
    importing
      output       = &2
    exceptions
      length_error = 1
      others       = 2.
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
    with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
END-OF-DEFINITION.

"去前导零
DEFINE delete_pre_zero.
  call function ‘CONVERSION_EXIT_ALPHA_OUTPUT‘
    exporting
      input        = &1
    importing
      output       = &2
    exceptions
      length_error = 1
      others       = 2.
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
    with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
END-OF-DEFINITION.

添加和去除前导零

标签：exce   inpu   sgid   family   cep   let   amp   sgi   sage   

原文地址：http://www.cnblogs.com/zxiu/p/7596947.html