Extract Month & Year From Date

Question

Hi All,
I have a key figure quantity and i want the data on date,for the month and for the year.
i create the variables for the date,for the month(ie from date to date) and for the year(ie, from date to date) seperatly that means i have three input variables which may sometimes create confusion.
My problem is that I want to enter only date and the variable itself calculate the month and year from the date so that it returns the data as desired above.
for eg. : Now i to enter date : 3/14/2009
          enter MTD (FROM/TO) : 3/01/2009 - 3/14/2009
          enter YTD (FROM/TO) : 4/01/2008 - 3/14/2009
I want to enter only date : 3/14/2009
and the variable itself extract the month and year till date.
and also the same variable calculates number of days so that need not to take the formula variable of date difference to calculate the average qty.
Neha..

Answer 1

Hi,
1. Create User Entry Variable on 0CALDAY : Name = ZCDAY.
2. Craete a Customer Exit Variable on 0CALDAY: Name  = ZMTD.
3. Craete a Customer Exit Variable on 0CALDAY: Name  = YMTD.
Properties of Customer Exit Variables.
Variable reporesents = Single
Variable Entry = Mandatory
Processing By = Customer Exit.
Character = Calender Day
Here I'm thinking that ZKF is your key figure.
In columns you create two selections one is for MTD and other is for YTD.
In MTD selection, drag and drop ZKF and Drag and Drop 0CALDAY and then Right Clcik and Restrict-->
Selection = Value Range. (In Between) and restrict with the follwoing Variables
[]ZMTD; ZCDAY.
In YTD selection, drag and drop ZKF and Drag and Drop 0CALDAY and then Right Clcik and Restrict-->
Selection = Value Range. (In Between) and restrict with the follwoing Variables
[]YTD; ZCDAY.
Then write the following code in I_STEP = 2.
DATA: ZT_DT1 TYPE SY-DATUM,
          ZT_DT2 TYPE SY-DATUM,
          ZT_SDT TYPE SY-DATUM,
          ZT_YR(4) TYPE N,
          ZT_DY(2) TYPE N,
          ZT_MT(2) TYPE N,
          ZE_TT(2) TYPE N,
          ZPOPER TYPE POPER,
         ZRELJR TYPE RELJR.
WHEN 'ZMTD_A'.
  LOOP AT i_t_var_range INTO loc_var_range WHERE vnam = 'ZCDAY'.
    IF sy-subrc = 0.
      CLEAR: l_s_range.
      ZT_DY = '01'.
      ZT_SDT = loc_var_range-low.
      ZT_MT = ZT_SDT+4(2).
      ZT_YR = ZT_SDT+0(4).
      CONCATENATE ZT_YR ZT_MT ZT_DY INTO ZT_DT1.
      l_s_range-low = ZT_DT1.
      l_s_range-sign = 'I'.
      l_s_range-opt = 'EQ'.
      APPEND l_s_range TO e_t_range.
    ENDIF.
  ENDLOOP.
WHEN 'ZYTD'.
  LOOP AT i_t_var_range INTO loc_var_range WHERE vnam = 'ZCDAY'.
    IF sy-subrc = 0.
      CLEAR: l_s_range.
      ZT_DY = '01'.
      ZT_SDT = loc_var_range-low.
      CALL FUNCTION 'DATE_TO_PERIOD_CONVERT'
        EXPORTING
          I_DATE               = ZT_SDT
*         I_MONMIT             = 00
          I_PERIV              = 'V3'
       IMPORTING
         E_BUPER              = zbuper
         E_GJAHR              = zbdatj
       EXCEPTIONS
         INPUT_FALSE          = 1
         T009_NOTFOUND        = 2
         T009B_NOTFOUND       = 3
         OTHERS               = 4
      IF SY-SUBRC <> 0.
         MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      CALL FUNCTION 'FIRST_AND_LAST_DAY_IN_YEAR_GET'
        EXPORTING
          I_GJAHR              = zbdatj
          I_PERIV              = 'V3'
       IMPORTING
         E_FIRST_DAY          = ZT_DT2
*         E_LAST_DAY           =
       EXCEPTIONS
         INPUT_FALSE          = 1
         T009_NOTFOUND        = 2
         T009B_NOTFOUND       = 3
         OTHERS               = 4
      IF SY-SUBRC <> 0.
         MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      l_s_range-low = ZT_DT2.
      l_s_range-sign = 'I'.
      l_s_range-opt = 'EQ'.
      APPEND l_s_range TO e_t_range.
    ENDIF.
  ENDLOOP.
Thanks
Reddy