Restrict Date Range

Question

Hi All,
    I have a select-option for Date.I need to restrict dates within a month??
How can i do that??

Answer 1

Hi ,
Same problem i also faced , so you will follow below code you will get the solution definately .
SELECT-OPTIONS : S_CALP   FOR RFPDO1-SZISABRZ NO-EXTENSION obligatory , "date
DATA:
      v_text        TYPE STRING,
      v_from_month  TYPE STRING,
      v_to_month    TYPE STRING,
      V_LEAP TYPE I .     "leap year variable
From/To date validation
  CLEAR : v_days .
  CALL FUNCTION 'FIMA_DAYS_AND_MONTHS_AND_YEARS'
    EXPORTING
      I_DATE_FROM = CALC_PERIOD_FROM  "date low
      I_DATE_TO   = CALC_PERIOD_TO  "date high
    IMPORTING
      E_DAYS      = v_days.
From/To date validation
  clear : v_text , v_to_month , V_YEAR ,V_LEAP.
  v_text = CALC_PERIOD_FROM .
  v_from_month = v_text+4(2).
  clear : v_text .
  v_text = CALC_PERIOD_TO .
  v_to_month   = v_text+4(2).
  V_YEAR = v_text+0(4).
IF NOT V_YEAR IS INITIAL .   "logic for leap year .
  V_LEAP = V_YEAR MOD 4 .
ENDIF .
****logic for  months validation
  IF NOT v_from_month = v_to_month .
      RETURN-MESSAGE = 'From/To Month should be same !'.
      APPEND RETURN.
      EXIT.
ENDIF .
  IF ( v_to_month = '01' OR
       v_to_month = '03' OR
       v_to_month = '05' OR
       v_to_month = '07' OR
       v_to_month = '08' OR
       v_to_month = '10' OR
       v_to_month = '12' ) .
    IF NOT v_days EQ 30 .
      RETURN-MESSAGE = ' Please Enter Valid Date !'.
      APPEND RETURN.
      EXIT.
    ENDIF .
  ELSEIF  ( v_to_month = '04' OR
            v_to_month = '06' OR
            v_to_month = '09' OR
            v_to_month = '11' ) .
    IF NOT v_days EQ 29 .
      RETURN-MESSAGE = 'Please Enter Valid Date !'.
      APPEND RETURN.
      EXIT.
    ENDIF .
  ELSEIF v_to_month = '02' .
    IF V_LEAP = 0 .
      IF NOT v_days EQ 28 .
        RETURN-MESSAGE = 'Please Enter Valid Date !'.
        APPEND RETURN.
        EXIT.
      ENDIF .
    ELSE .
      IF NOT v_days EQ 27 .
        RETURN-MESSAGE = 'Please Enter Valid Date!'.
        APPEND RETURN.
        EXIT.
      ENDIF .
    ENDIF .
  ENDIF .
Regards ,
Nilesh Jain .