Many times we need to format the date in smartforms or scrips as per the login user details. some do it some face some problems.
so, here is a simple function module I implemented and i want to share. The main point is all user settings like this are stored in SAP
DB table USR01; field datfm which contains a 1 char value which signifies the following:
*1 DD.MM.YYYY
*2 MM/DD/YYYY
*3 MM-DD-YYYY
*4 YYYY.MM.DD
*5 YYYY/MM/DD
*6 YYYY-MM-DD
*7 GYY.MM.DD Japanese Date
*8 GYY/MM/DD Japanese Date
*9 GYY-MM-DD Japanese Date
*A YYYY/MM/DD Islamic Date 1
*B YYYY/MM/DD Islamic Date 2
*C YYYY/MM/DD Iranian Date
Here is what i did:
1. The user may enter date in various formats as allowed so get it in internal format YYYYMMDD by passing the date
to be manipulated to FM CONVERT_DATE_TO_INTERNAL
get the export parameter let's call it date_internal_fmt.
2. Call the z-Function module pass it the username and the date in a variable of type sydatum (value from date_internal_fmt).
3. Receive the export parameter in a field of character type length 10 with full formatting.
Source code:
FUNCTION z_man_n_date_in_user_profile.
*"----------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*" REFERENCE(IM_USERNAME) TYPE SY-UNAME
*" REFERENCE(IM_DAT) TYPE DATS
*" EXPORTING
*" REFERENCE(EX_DATE) TYPE CHAR10
*" EXCEPTIONS
*" ERROR_IN_READING_USR01
*"----------------------------------------------------------------------
*1 DD.MM.YYYY
*2 MM/DD/YYYY
*3 MM-DD-YYYY
*4 YYYY.MM.DD
*5 YYYY/MM/DD
*6 YYYY-MM-DD
*7 GYY.MM.DD Japanese Date
*8 GYY/MM/DD Japanese Date
*9 GYY-MM-DD Japanese Date
*A YYYY/MM/DD Islamic Date 1
*B YYYY/MM/DD Islamic Date 2
*C YYYY/MM/DD Iranian Date
DATA: l_datfm TYPE xudatfm,
l_yearl TYPE c LENGTH 4,
l_years TYPE c LENGTH 2,
l_month TYPE c LENGTH 2,
l_dat TYPE c LENGTH 2,
im_date TYPE c LENGTH 8.
im_date = im_dat.
* FIRST GET THE MONTH DATE AND YEAR COMPONENTS FROM THE DAT
MOVE im_date+0(4) TO l_yearl.
MOVE l_yearl+2(2) TO l_years.
MOVE im_date+4(2) TO l_month.
MOVE im_date+6(2) TO l_dat.
* read user profile from table USR01
SELECT SINGLE datfm FROM usr01 INTO l_datfm WHERE bname = im_username.
IF sy-subrc = 0.
CASE l_datfm.
WHEN '1'.
CONCATENATE l_dat l_month l_yearl INTO ex_date SEPARATED BY '.'.
WHEN '2'.
CONCATENATE l_month l_dat l_yearl INTO ex_date SEPARATED BY '/'.
WHEN '3'.
CONCATENATE l_month l_dat l_yearl INTO ex_date SEPARATED BY '-'.
WHEN '4'.
CONCATENATE l_yearl l_month l_dat INTO ex_date SEPARATED BY '.'.
WHEN '5' OR 'A' OR 'B' OR 'C'.
CONCATENATE l_yearl l_month l_dat INTO ex_date SEPARATED BY '/'.
WHEN '6'.
CONCATENATE l_yearl l_month l_dat INTO ex_date SEPARATED BY '-'.
WHEN OTHERS.
RAISE error_in_reading_usr01.
ENDCASE.
ENDIF.
ENDFUNCTION.
