US3 查看的信息
根据用户参数修改日期格式
FORM frm_change_date
CHANGING lv_date
TYPE sy
-datum
.
DATA :ls_default LIKE usdefaults .
DATA : lv_year ( 4 ) TYPE c ,
lv_month ( 2 ) TYPE c ,
lv_day ( 2 ) TYPE c .
CALL FUNCTION 'SUSR_USER_READ'
EXPORTING
user_name = sy -uname
IMPORTING
user_defaults = ls_default
EXCEPTIONS
user_name_not_exists = 1
internal_error = 2
OTHERS = 3 .
CHECK sy -subrc = 0 .
lv_year = lv_date 0 ( 4 ) .
lv_month = lv_date 4 ( 2 ) .
lv_day = lv_date 6 ( 2 ) .
CASE ls_default -datfm .
* WHEN 1."DD.MM.YYYY
* WHEN 2."MM/DD/YYYY
* WHEN 3."MM-DD-YYYY
* WHEN 4."YYYY.MM.DD
* WHEN 5."YYYY/MM/DD
* WHEN 6."YYYY-MM-DD
WHEN '1' .
CONCATENATE lv_day
lv_month
lv_year INTO lv_date SEPARATED BY '.' .
WHEN '2' .
CONCATENATE lv_month
lv_day
lv_year INTO lv_date SEPARATED BY '/' .
WHEN '3' .
CONCATENATE lv_month
lv_day
DATA :ls_default LIKE usdefaults .
DATA : lv_year ( 4 ) TYPE c ,
lv_month ( 2 ) TYPE c ,
lv_day ( 2 ) TYPE c .
CALL FUNCTION 'SUSR_USER_READ'
EXPORTING
user_name = sy -uname
IMPORTING
user_defaults = ls_default
EXCEPTIONS
user_name_not_exists = 1
internal_error = 2
OTHERS = 3 .
CHECK sy -subrc = 0 .
lv_year = lv_date 0 ( 4 ) .
lv_month = lv_date 4 ( 2 ) .
lv_day = lv_date 6 ( 2 ) .
CASE ls_default -datfm .
* WHEN 1."DD.MM.YYYY
* WHEN 2."MM/DD/YYYY
* WHEN 3."MM-DD-YYYY
* WHEN 4."YYYY.MM.DD
* WHEN 5."YYYY/MM/DD
* WHEN 6."YYYY-MM-DD
WHEN '1' .
CONCATENATE lv_day
lv_month
lv_year INTO lv_date SEPARATED BY '.' .
WHEN '2' .
CONCATENATE lv_month
lv_day
lv_year INTO lv_date SEPARATED BY '/' .
WHEN '3' .
CONCATENATE lv_month
lv_day