Customer Exit to get last day of month from Year/month

Question

Hi Experts,
I need to create a customer exit to get the last day of month from Cal Year month input variable.
Examples
1)
User input period: 12.2008
I need from the customer exit: 31.12.2008
2)
User input period: 02.2009
I need from the customer exit: 28.02.2009
Can someone help me with the ABAP code to achieve this with a customer exit?
Help will be appreciated.

Answer 1

Hi,
Please use the following code,
Second one is the suitable solution for you, I can understand that, if it leafe year then you have the problem so use the secon one.
First one is using Period i.e. 010.2008 (December 2008).
Secodn one is based on Date/Month.
Note: Insted of SY-DATUm, you give your variable name
*******To get the Last day of the Fy Period entered by User in ZFYP***
    WHEN 'ZLDAY_FI'.
      LOOP AT i_t_var_range INTO loc_var_range WHERE vnam = 'ZFYP'.
        zbdatj = loc_var_range-low+0(4).
        zbuper = loc_var_range-low+4(3).
        CALL FUNCTION 'LAST_DAY_IN_PERIOD_GET'
          EXPORTING
            i_gjahr = zbdatj
            i_periv = 'V3'
            i_poper = zbuper
          IMPORTING
            e_date  = zzdate.
        CLEAR: l_s_range.
        l_s_range-low = zzdate.
        l_s_range-sign = 'I'.
        l_s_range-opt = 'EQ'.
        APPEND l_s_range TO e_t_range.
      ENDLOOP.
Note: in the below code I given SY-DATUM, so you change to your Month Variable like using  
LOOP AT i_t_var_range INTO loc_var_range WHERE vnam = 'XXXX'.
** Last Day of Current Calendar month
      zzdate = sy-datum.
      CALL FUNCTION '/OSP/GET_DAYS_IN_MONTH'
        EXPORTING
          iv_date = zzdate
        IMPORTING
          ev_days = znum.
      CLEAR: l_s_range.
      l_s_range-low+6(2) = znum.
      l_s_range-low+0(4) = sy-datum+0(4).
      l_s_range-low+4(2) = sy-datum+4(2).
      l_s_range-sign = 'I'.
      l_s_range-opt = 'EQ'.
      APPEND l_s_range TO e_t_range.
Thanks
Reddy
Edited by: Surendra Reddy on Jan 27, 2009 2:47 PM
Edited by: Surendra Reddy on Jan 28, 2009 6:12 AM