Urgent-Date Format

[Former Member]

Hi All,

how to convert the system date into the Format defined in the User Profile?

Help will be highly appreciated:)

[Former Member]

hi ,

you can use the following FM

FUNCTION Z_SETDATE_TO_USER_PROFILE.

*"----

---

""Local interface:

*" IMPORTING

*" VALUE(IN_DATE) LIKE SY-DATUM

*" EXPORTING

*" VALUE(OUT_DATE) LIKE KLAHD-CREAT_DATX

*" EXCEPTIONS

*" INVALID_INPUT_DATE_FORMAT

*"----

---

TABLES: USR01.

DATA: DATE_FORMAT LIKE USR01-DATFM,

MONTH(2) TYPE C,

DAY(2) TYPE C,

YEAR(4) TYPE C.

• VALIDATE THE INPUT DATE

CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'

EXPORTING

DATE = IN_DATE

EXCEPTIONS

PLAUSIBILITY_CHECK_FAILED = 1

OTHERS = 2.

IF SY-SUBRC <> 0.

• ERROR MESSAGE

ENDIF.

• GET THE DATE INTO IT'S MONTH, DAY AND YEAR COMPONENTS

MONTH = IN_DATE+4(2).

DAY = IN_DATE+6(2).

YEAR = IN_DATE(4).

• IN THE USER PROFILE TABLE DETERMINE THE DATE FORMAT

SELECT SINGLE DATFM

INTO DATE_FORMAT

FROM USR01

WHERE BNAME = SY-UNAME.

• ACCORDING TO THE USER PROFILE FORMAT THE INPUT DATE

CASE DATE_FORMAT.

WHEN '1'.

CONCATENATE DAY '.' MONTH '.' YEAR INTO OUT_DATE.

WHEN '2'.

CONCATENATE MONTH '/' DAY '/' YEAR INTO OUT_DATE.

WHEN '3'.

CONCATENATE MONTH '-' DAY '-' YEAR INTO OUT_DATE.

WHEN '4'.

CONCATENATE YEAR '.' MONTH '.' DAY INTO OUT_DATE.

WHEN '5'.

CONCATENATE YEAR '/' MONTH '/' DAY INTO OUT_DATE.

ENDCASE.

ENDFUNCTION.

[kiran_k8]

pavtihra,

l_dat = sy-datum.

CONCATENATE SY-DATUM6(2) '.' SY-DATUM4(2) '.' SY-DATUM+0(4) INTO L_DAT.

K.Kiran.

[Former Member]

write date to char type field.....it will automatically convert it....

data : a like sy-datum,

b(10) type c.

a = sy-datum.

move a to b.

write 😕 b.

now b will be format set by user.....in settings..

Regards

Vasu

[former_member386202]

Hi,

Use FM " CY_CONVERT_DATE ".

Reward Point if helpfull.......

Regards,

Prashant

[former_member194152]

hi,

you can use write to statement for that purpose.for example.

data : date(10) type c.

write sy-datum to date.

write : / sy-datum,

/ date.

just run this logic and see.

Rewards if helpful.

Regards

Gagan

[Former Member]

Hi,

Use the statement 'Write .... to......'