abap日期函数_时间格式的ABAP函数

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/，如需转载，请注明出处，否则将追究法律责任。