-Date- format display

[Former Member]

Hi Experts,

how to print date in this format

Friday, June 06, 2008

Thanx in advance.

Regard

Rachel

[Former Member]

Hello,

Lets take date as 02.08.2008

WF_DAT = 20080802.

Pass WF_DAT to FM DATE_TO_DAY or RH_GET_DATE_DAYNAME

and in Return you will get Saturday.

Pass WF_DAT+4(2) to IDWT_READ_MONTH_TEXT and the language key get the month text (August in this case).

Regards,

Saket

Edited by: Saket Sharma on Jun 6, 2008 2:34 PM

[Former Member]

hi sharma,

thanx for helping me out, but i am sorry to say that it doest come to my required format.

Thanx

rachel

[Former Member]

Rachel

this code I use to get the Day of Week.

    CALL FUNCTION 'DAY_IN_WEEK'
         EXPORTING
              datum = wk_date
         IMPORTING
              wotnr = dow.

    it_date-date = wk_date.
    CASE dow.
      WHEN 1. it_date-day = 'Monday'.
      WHEN 2. it_date-day = 'Tuesday'.
      WHEN 3. it_date-day = 'Wednesday'.
      WHEN 4. it_date-day = 'Thursday'.
      WHEN 5. it_date-day = 'Friday'.
      WHEN 6. it_date-day = 'Saturday'.
      WHEN 7. it_date-day = 'Sunday'.
    ENDCASE.

I know there is a function to get the verbose date (June 6, 2008), but I don't recall it and have not found it yet.

[Former Member]

hi

thanx for your response , but iam sorry to say that it doest full fill my requirement.

Thanks

Regards]

Rachel

[Former Member]

Hai,

use FM form get month

CONVERSION_EXIT_SDATE_OUTPUT

DATA: INT_DATUM LIKE SY-DATUM VALUE '19940102',

EXT_DATUM(11) TYPE C.

...

CALL FUNCTION 'CONVERSION_EXIT_SDATE_OUTPUT'

EXPORTING

INPUT = INT_DATUM

IMPORTING

OUTPUT = EXT_DATUM.

Result:

EXT_DATUM = 02.JAN.1994

Get Day use DATE_TO_DAY

data : lv_date type datum value '19940102'.

data : lv_day type char10.

CALL FUNCTION 'DATE_TO_DAY'

EXPORTING

date = lv_date

IMPORTING

WEEKDAY = lv_day .

Result

lv_day = 'Sunday'

Thanks,

Durai.V

[Former Member]

I toyed with the suggestions made here and came up with this. Seems to work fine.

PARAMETERS:
  my_date LIKE sy-datum DEFAULT sy-datum.

DATA:
  t247      TYPE t247,
  weekday   TYPE week_day,
  month(15) TYPE c,
  day(02)   TYPE c,
  day1(01)   TYPE c,
  rslt(40)  TYPE c.

START-OF-SELECTION.

  CALL FUNCTION 'IDWT_READ_MONTH_TEXT'
       EXPORTING
            langu = sy-langu
            month = my_date+4(2)
       IMPORTING
            t247  = t247.

  CALL FUNCTION 'DATE_TO_DAY'
       EXPORTING
            date    = my_date
       IMPORTING
            weekday = weekday.

  CONCATENATE weekday ','   INTO rslt.
  CONCATENATE rslt t247-ltx INTO rslt SEPARATED BY space.
  IF my_date+6(2) LT '10'.
    CONCATENATE rslt my_date+7(1) INTO rslt SEPARATED BY space.
  ELSE.
    CONCATENATE rslt my_date+6(2) INTO rslt SEPARATED BY space.
  ENDIF.
  CONCATENATE rslt ',' INTO rslt.
  CONCATENATE rslt my_date+0(4) INTO rslt SEPARATED BY space.
  WRITE:/ rslt.

[Former Member]

hi

thanx for your reply, the questioined is been answered by you, but then my dayis been printed partially,

like for eg

For saturday----its printing as Sat

can u suggest any remedy for this??????????

Thanx

Rachel

[Former Member]

Hello Rachel,

Can you have a look at the FM RH_GET_DATE_DAYNAME, i think it returns full day name(am not in front of system so can't really check).

Regards

Saket Sharma

[Former Member]

Not sure Rachel,

with this code

PARAMETERS:
  my_date LIKE sy-datum DEFAULT sy-datum.

DATA:
  t247      TYPE t247,
  weekday   TYPE week_day,
  month(15) TYPE c,
  day(02)   TYPE c,
  day1(01)   TYPE c,
  rslt(40)  TYPE c.

START-OF-SELECTION.

  CALL FUNCTION 'IDWT_READ_MONTH_TEXT'
       EXPORTING
            langu = sy-langu
            month = my_date+4(2)
       IMPORTING
            t247  = t247.

  CALL FUNCTION 'DATE_TO_DAY'
       EXPORTING
            date    = my_date
       IMPORTING
            weekday = weekday.

  CONCATENATE weekday ','   INTO rslt.
  CONCATENATE rslt t247-ltx INTO rslt SEPARATED BY space.
  IF my_date+6(2) LT '10'.
    CONCATENATE rslt my_date+7(1) INTO rslt SEPARATED BY space.
  ELSE.
    CONCATENATE rslt my_date+6(2) INTO rslt SEPARATED BY space.
  ENDIF.
  CONCATENATE rslt ',' INTO rslt.
  CONCATENATE rslt my_date+0(4) INTO rslt SEPARATED BY space.
  WRITE:/ rslt.

My output for today is

                           
Monday, June 9, 2008