topic Date Range in Application Development and Automation Discussions

Date Range

Former Member — Mon, 11 Dec 2006 10:24:35 GMT

How can we get all the dates between a given date range (given From Date & To Date) ? Is there any function module to do the same?

Re: Date Range

Former Member — Mon, 11 Dec 2006 10:42:15 GMT

Hello,

U could use this code to get the dates.

1. I have created a sample program for your requirement,

and also tested it. Its working fine.

2. Logic is :

Calculate in a loop using +1.

*----

REPORT abc.

*----

DATA : BEGIN OF itab OCCURS 0,

mydate TYPE sy-datum,

END OF itab.

SELECT-OPTIONS budat FOR sy-datum OBLIGATORY.

*----

END-OF-SELECTION.

PERFORM get_all_dates.

LOOP AT itab.

WRITE / itab-mydate.

ENDLOOP.

*----

FORM get_all_dates.

CLEAR itab.

REFRESH itab.

DATA : myctr TYPE i.

DATA : newdate TYPE sy-datum.

newdate = budat-low.

*----

Loop And Generate Dates

DO.

IF newdate <= budat-high.

itab-mydate = newdate.

APPEND itab.

ELSE.

itab-mydate = sy-datum.

EXIT.

ENDIF.

newdate = newdate + 1.

ENDDO.

ENDFORM. "get_all_dates

If useful reward.

Vasanth

Re: Date Range

Former Member — Mon, 11 Dec 2006 10:49:53 GMT

Try this:

do.

if v_date = v_todate.

exit.

else.

v_date = v_fromdate + 1.

write:/ v_date.

endif.

endo.

Regards,

Ravi

Re: Date Range

Former Member — Mon, 11 Dec 2006 10:51:16 GMT

Hi,

I hope there is no FM for this purpose.

Use the following piece of code in subroutine.

Do.
if FROMDATE > TODATE.
EXIT.
endif.

Append FROMDATE to LT_DATES.
FROMDATE = FROMDATE + 1.
ENDDO.

Regards

Bhupal Reddy

Re: Date Range

Former Member — Mon, 11 Dec 2006 10:51:48 GMT

That was a gr8 logic.. sy-datum + 1... ( 30/31/28 etc everything will be taken care of!) thnx a lot