FUNCTION yfm_date_to_string.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" VALUE(GV_DATE) LIKE SY-DATUM DEFAULT SY-DATUM
*" VALUE(GV_SEPARATOR) TYPE C DEFAULT '.'
*" VALUE(GV_FORMAT) DEFAULT 'DMY'
*" VALUE(GV_MONTH_TYPE) TYPE I DEFAULT 1
*" VALUE(GV_SPRAS) LIKE SY-LANGU DEFAULT SY-LANGU
*" EXPORTING
*" REFERENCE(GV_RESULT)
*"----------------------------------------------------------------------
TABLES : t247.
DATA : gv_day(2) TYPE c,
gv_month(2) TYPE c,
gv_year(4) TYPE c,
gv_str(3) TYPE c.
* Split date into its parts
gv_year = gv_date(4).
gv_month = gv_date+4(2).
gv_day = gv_date+6(2).
* Get Month
IF gv_month_type <> 0.
SELECT SINGLE *
FROM t247
WHERE spras = gv_spras AND
mnr = gv_month.
ENDIF.
* Proses
gv_result = ''.
CASE gv_format.
WHEN 'DMY'.
IF gv_separator IS INITIAL.
CASE gv_month_type.
WHEN 0.
CONCATENATE gv_day
gv_month
gv_year
INTO gv_result
SEPARATED BY space.
WHEN 1.
CONCATENATE gv_day
t247-ktx
gv_year
INTO gv_result
SEPARATED BY space.
WHEN 2.
CONCATENATE gv_day
t247-ltx
gv_year
INTO gv_result
SEPARATED BY space.
ENDCASE.
ELSE.
CASE gv_month_type.
WHEN 0.
CONCATENATE gv_day gv_separator
gv_month gv_separator
gv_year
INTO gv_result.
WHEN 1.
CONCATENATE gv_day gv_separator
t247-ktx gv_separator
gv_year
INTO gv_result.
WHEN 2.
CONCATENATE gv_day gv_separator
t247-ltx gv_separator
gv_year
INTO gv_result.
ENDCASE.
ENDIF.
WHEN 'MDY'.
IF gv_separator IS INITIAL.
CASE gv_month_type.
WHEN 0.
CONCATENATE gv_month
gv_day
gv_year
INTO gv_result
SEPARATED BY space.
WHEN 1.
CONCATENATE t247-ktx
gv_day
gv_year
INTO gv_result
SEPARATED BY space.
WHEN 2.
CONCATENATE gv_day ','
INTO gv_str.
CONCATENATE t247-ltx
gv_str
gv_year
INTO gv_result
SEPARATED BY space.
ENDCASE.
ELSE.
CASE gv_month_type.
WHEN 0.
CONCATENATE gv_month gv_separator
gv_day gv_separator
gv_year
INTO gv_result.
WHEN 1.
CONCATENATE t247-ktx gv_separator
gv_day gv_separator
gv_year
INTO gv_result.
WHEN 2.
CONCATENATE gv_day ','
INTO gv_str.
CONCATENATE t247-ltx
gv_str
gv_year
INTO gv_result
SEPARATED BY space.
ENDCASE.
ENDIF.
WHEN 'YMD'.
IF gv_separator IS INITIAL.
CASE gv_month_type.
WHEN 0.
CONCATENATE gv_year
gv_month
gv_day
INTO gv_result
SEPARATED BY space.
WHEN 1.
CONCATENATE gv_year
t247-ktx
gv_day
INTO gv_result
SEPARATED BY space.
WHEN 2.
CONCATENATE gv_year
t247-ltx
gv_day
INTO gv_result
SEPARATED BY space.
ENDCASE.
ELSE.
CASE gv_month_type.
WHEN 0.
CONCATENATE gv_year gv_separator
gv_month gv_separator
gv_day
INTO gv_result.
WHEN 1.
CONCATENATE gv_year gv_separator
t247-ktx gv_separator
gv_day
INTO gv_result.
WHEN 2.
CONCATENATE gv_year gv_separator
t247-ltx gv_separator
gv_day
INTO gv_result.
ENDCASE.
ENDIF.
ENDCASE.
ENDFUNCTION.
|
"
" untuk menyimpan function
