date format change

[Former Member]

hi all,

we want the date format to be changed from 20070403 to 2007-APR-03.

can anyone know how to do so?.

[Former Member]

try this fm

CONVERSION_EXIT_IDATE_OUTPUT

<b>Import parameters Value

INPUT 20040205

Export parameters Value

OUTPUT 05FEB2004</b>Regards

Prabhu

[Former Member]

hi,

i require in the format 2007-MAY-01 and not 05FEB2004.

[Former Member]

REPORT ychatest.

DATA : v_date LIKE sy-datum,
       v_mon(3),
       v_final(11).
v_date = sy-datum.
SELECT SINGLE ktx FROM t247 INTO v_mon WHERE mnr EQ v_date+4(2) AND spras EQ sy-langu.

CONCATENATE v_date+0(4) v_mon v_date+6(2) INTO v_final SEPARATED BY '-'.

WRITE : v_final.

[former_member673464]

hi..

try this

DATA: L_DAY(2) TYPE C,

L_MONTH(2) TYPE C,

L_YEAR(4) TYPE C,

L_LTEXT TYPE T247-LTX.

DATA: L_DATE TYPE STRING.

CALL FUNCTION 'HR_IN_GET_DATE_COMPONENTS'

EXPORTING

IDATE = SY-DATUM

IMPORTING

DAY = L_DAY

MONTH = L_MONTH

YEAR = L_YEAR

LTEXT = L_LTEXT

EXCEPTIONS

INPUT_DATE_IS_INITIAL = 1

TEXT_FOR_MONTH_NOT_MAINTAINED = 2

OTHERS = 3.

CONCATENATE L_LTEXT ',' INTO L_DATE.

CONCATENATE L_DATE L_DAY L_YEAR INTO L_DATE SEPARATED BY SPACE.

WRITE: L_DATE.

or

DATA: V_INPUT(8) VALUE '20112006'.

DATA: V_CHAR(25).

data: date type sydatum.

DATA: MONTH_NAMES LIKE T247.

SELECT SINGLE * FROM T247

INTO MONTH_NAMES

WHERE SPRAS = SY-LANGU

AND MNR = V_INPUT+2(2).

CONCATENATE MONTH_NAMES-KTX V_INPUT(2) V_INPUT+4(4)

INTO V_CHAR SEPARATED BY SPACE.

write: / V_CHAR.

or use function modules

CONVERSION_EXIT_LDATE_OUTPUT,

CONVERSION_EXIT_SDATE_OUTPUT,

CONV_EXIT_LDATE_OUTPUT_LANGU

regards,

veeresh

[Former Member]

HI,

data: date type sy-datum, text(20).
 
date = sy-datum.
 
CALL FUNCTION 'CONVERSION_EXIT_SDATE_OUTPUT'
  EXPORTING
    INPUT         = date
 IMPORTING
   OUTPUT        = text

.

Regards

Sudheer

[Former Member]

hi kunal

try this below snippet

p_date EQ 'X'.

CONDENSE temp_date NO-GAPS.

SPLIT date AT ',' INTO daymonth l_year.

IF STRLEN( year ) NE '4'.

error = 'X'.

WRITE : .

ELSE.

daymonth1 = daymonth.

CONDENSE daymonth1 NO-GAPS.

SHIFT daymonth1 LEFT BY 2 PLACES.

CONDENSE daymonth1 NO-GAPS.

month = daymonth1.

CONDENSE month NO-GAPS.

TRANSLATE month TO UPPER CASE.

SORT month BY monthstx.

MOVE month to mon.

READ TABLE month WITH KEY monthstx = mon.

IF sy-subrc <> 0.

error = 'X'.

WRITE : / .

ELSE.

CONDENSE daymonth NO-GAPS.

day = daymonth+0(2).

CONDENSE day NO-GAPS.

CONCATENATE year month-monthnumber day INTO o_date.

ENDIF.

regards

[Former Member]

Hi Kunal,

If you need any more help pls let us know or else close the thread