ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 时间格式的ABAP函数

时间格式的ABAP函数

原创 Linux操作系统 作者:ytfsrs2008 时间:2009-02-13 16:17:24 0 删除 编辑
FUNCTION ZFC_MOD_BDC_DATE.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     VALUE(IN_DATE) TYPE  C
*"  EXPORTING
*"     REFERENCE(USER_DATE) TYPE  C
*"----------------------------------------------------------------------
data: date_type(1) type c,
      y(4) type c,
      m(2) type c,
      d(2) type c,
      user_format(10) type c.

 select single datfm into (date_type) from usr01
         where bname = sy-uname.

    y = IN_DATE+0(4).
    m = IN_DATE+4(2).
    d = IN_DATE+6(2).
    clear user_format.
    case date_type.
      when 1.
        concatenate d '.' m '.' y into user_format.
      when 2.
        concatenate m '/' d '/' y into user_format.
      when 3.
        concatenate m '-' d '-' y into user_format.
      when 4.
        concatenate y '.' m '.' d into user_format.
      when 5.
        concatenate y '/' m '/' d into user_format.
      when 6.
        concatenate y '-' m '-' d into user_format.
    endcase.
    USER_DATE = user_format.

ENDFUNCTION.

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/15117617/viewspace-551847/,如需转载,请注明出处,否则将追究法律责任。

上一篇: Partner Determination
请登录后发表评论 登录
全部评论

注册时间:2008-10-31

  • 博文量
    52
  • 访问量
    51722