topic Re: date logic in Application Development and Automation Discussions

date logic

Former Member — Thu, 24 Apr 2008 10:30:33 GMT

Hi All,

The following code gives the output of the first monday of a month. Can any one help me in getting the first monday of the last month.

DATA: G_DATE0 LIKE SY-DATUM.

DATA: G_DATE1 LIKE SY-DATUM.

DATA: G_WOTNR TYPE P.

G_DATE1 = G_DATE0.

DATE1+6(2) = '01'.

DO.

CALL FUNCTION 'DAY_IN_WEEK'

EXPORTING

DATUM = G_DATE1

IMPORTING

WOTNR = WOTNR.

if g_wotnr = 1.

exit.

endif.

ADD 1 TO G_DATE1.

ENDDO.

Points will be awarded for sure.

Regards,

Srik.

Re: date logic

Former Member — Thu, 24 Apr 2008 10:36:19 GMT

Hi,

see this code.


DATA: G_DATE0 LIKE SY-DATUM.
DATA: G_DATE1 LIKE SY-DATUM.
DATA: G_WOTNR TYPE P.

g_date0 = sy-datum.
G_DATE1 = G_DATE0.
g_DATE1+4(2) = g_DATE1+4(2) - 1.
g_DATE1+6(2) = '01'.

DO.

CALL FUNCTION 'DAY_IN_WEEK'
EXPORTING
DATUM = G_DATE1
IMPORTING
WOTNR = g_WOTNR.

if g_wotnr = 1.
exit.
endif.
ADD 1 TO G_DATE1.

ENDDO.

write:/ g_date1.

rgds,

bharat.

Re: date logic

Former Member — Thu, 24 Apr 2008 10:43:10 GMT

if you use the above code, ensure you modify it as such


g_date0 = sy-datum.
G_DATE1 = G_DATE0.
g_DATE1+4(2) = g_DATE1+4(2) - 1.

if g_DATE1+4(2) = '00'.
  g_DATE1+4(2) = '12'.
  g_DATE1+0(4) = g_DATE1+0(4) - 1.
endif.

g_DATE1+6(2) = '01'.

There is a Function that will compute the date with adjustments to Month or Year. It might be better to look for that FM. I can't recall the name of hand.

Re: date logic

ibrahim_u — Thu, 24 Apr 2008 10:44:44 GMT

if actual month is 01 above code will not work. you have to use this syntax.


if G_DATE1+4(2) eq '01'.
    move '12' to G_DATE1+4(2).
    subtract 1 from G_DATE1+0(4) .
else.
    subtract 1 from G_DATE1+4(2) .
endif.
    move '01' to G_DATE1+6(2).

ibrahim

Re: date logic

andreas_mann3 — Thu, 24 Apr 2008 12:32:01 GMT

try:

PARAMETERS g_date0 LIKE sy-datum.

DATA: g_date1 LIKE sy-datum.

DATA: g_wotnr TYPE p.

INITIALIZATION.

CONCATENATE sy-datum(4) '1201' INTO g_date0.

START-OF-SELECTION.

g_date1 = g_date0.

DO.

CALL FUNCTION 'DAY_IN_WEEK'

EXPORTING

datum = g_date1

IMPORTING

wotnr = g_wotnr.

IF g_wotnr = 1.

EXIT.

ENDIF.

ADD 1 TO g_date1.

ENDDO.

WRITE : g_date0, / g_date1, g_wotnr.

hope that helps

Andreas