topic Re: function to a month in Application Development and Automation Discussions

function to a month

Former Member — Mon, 08 Jan 2007 13:39:44 GMT

hi,

I have the following code.

DATA: FECHA LIKE SY-DATUM(6),

FECHA1 LIKE SY-DATUM.

fecha1 = sy-datum.

fecha = FECHA1(6) - 1.

The result is 200700.

This result not exist like year.month, this result is not the expected for me. What i need is 200612.

There are some functions or some idea to obtain what I need?

I would appreciate your help.

Regards,

Victoria

Re: function to a month

andreas_mann3 — Mon, 08 Jan 2007 13:43:18 GMT

hi,

try CALCULATE_DATE

with month = -1

REPORT zforum117 .

PARAMETERS: date LIKE sy-datum DEFAULT sy-datum,

mth(4) default -1.

DATA: fecha LIKE sy-datum(6),

fecha1 LIKE sy-datum.

CALL FUNCTION 'CALCULATE_DATE'

EXPORTING

days = '0'

months = mth

start_date = date

IMPORTING

result_date = fecha1.

fecha = fecha1(6).

write: fecha.

Message was edited by:

Andreas Mann

Re: function to a month

Former Member — Mon, 08 Jan 2007 13:44:32 GMT

Use this FM...


RP_CALC_DATE_IN_INTERVAL

You can ADD or SUBTRACT days, months or years -;)

Greetings,

Blag.

Re: function to a month

Former Member — Mon, 08 Jan 2007 13:46:51 GMT

Hi Andreas,

this option shows me an error message:

CONVT_NO_NUMBER

CX_SY_CONVERSION_NO_NUMBER

other idea?

Re: function to a month

alex_m — Mon, 08 Jan 2007 13:47:22 GMT

FM CALCULATE_DATE will useful.

Re: function to a month

Former Member — Mon, 08 Jan 2007 13:47:34 GMT

Hi victoria,

1. use this FM

HR_JP_ADD_MONTH_TO_DATE

2. in that give IV_MONTHCOUNT = -1.

regards,

amit m.

Re: function to a month

Former Member — Mon, 08 Jan 2007 13:49:34 GMT

Hi Alvaro,

your FM is perfect, I am working in BW 3.5 and thsi FM does not exist. :S

Thanks

Re: function to a month

Former Member — Mon, 08 Jan 2007 14:13:55 GMT

> Hi Alvaro,

> your FM is perfect, I am working in BW 3.5 and thsi

> FM does not exist. :S

> Thanks

Sorry to hear that Victoria -:( I'm working on R/3 4.7 and I don't have any access to BW, so I can help you -:(

Greetings,

Blag.

Re: function to a month

Former Member — Mon, 08 Jan 2007 14:14:55 GMT

Here's the FM source code if needed -:D


FUNCTION RP_CALC_DATE_IN_INTERVAL.
*"----------------------------------------------------------------------
*
* 3.0E
*QXOP30K085926 13071996 Routine zur Bestimmung eines gueltigen Datums
*                       muss auch Intervalle beruecksichtigen, die in
*                       der Zukunft liegen
*                       (Hinweis: 44936)
*
* 2.1C
*QXOK067676 20011994 Berechnung des Datums nur innerhalb
*                    definierter Grenzen (LOW-DATE und HIGH-DATE)
*
*"----------------------------------------------------------------------
*"Lokale Schnittstelle:
*"       IMPORTING
*"             DATE LIKE P0001-BEGDA
*"             DAYS LIKE T5A4A-DLYDY
*"             MONTHS LIKE T5A4A-DLYMO
*"             SIGNUM LIKE T5A4A-SPLIT DEFAULT '+'
*"             YEARS LIKE T5A4A-DLYYR
*"       EXPORTING
*"             CALC_DATE LIKE P0001-BEGDA
*"----------------------------------------------------------------------
  DATA: ACT_DATE   TYPE D,             "Tagesdatum
        DYS        TYPE P,             "Frist in Tagen
        MON        TYPE P,             "Frist in Monaten
        YRS        TYPE P,             "Frist in Jahren
        TTL_YRS    TYPE P              "Jahre (insgesamt)
                   VALUE 0,
        ROUND      TYPE P              "Rundungsfaktor (wg. Ganz-
                   DECIMALS 2          "zahlendarstellung), um kommerz.
                   VALUE '0.50'.       "Rundung zu umgehen


  ACT_DATE = DATE.                     "Datum uebernehmen   QXOK067676
* Datums-Berechnung darf nur innerhalb definierter Grenzen
* (LOW-DATE,HIGH-DATE) erfolgen
  IF ( DATE <> HIGH-DATE OR            "kleiner Obergrenze  QXOK067676
       SIGNUM = '-' ) AND              "in Vergangenheit    QXOK067676
     ( DATE <> LOW-DATE OR             "groesser Obergrenze QXOK067676
       SIGNUM <> '-' ).                "in Zukunft          QXOK067676
    IF SIGNUM = '-'.                   "Berechnung in Vergangenheit?
      DYS = - DAYS.                    "Werte mit negativem Vor-
      MON = - MONTHS.                  "zeichen versehen
      YRS = - YEARS.
      ROUND = - ROUND.                 "Rundungskonstante
    ELSE.
      DYS = DAYS.                      "Werte mit positivem Vor-
      MON = MONTHS.                    "zeichen belassen
      YRS = YEARS.
    ENDIF.

*   Frist in Tagen
    ACT_DATE = ACT_DATE + DYS.         "Frist in Tagen
*   Frist in Monaten
*   es koennte auch vorkommen, dass mehr als 12 Monate vorgesehen sind,
*   darum muessen diese angepasst werden
*---------------------------------------------------------------------
    IF MON <> 0.                       "ueberhaupt Monate angegeben?
      PERFORM ADJUST_MONTHS USING ACT_DATE+4(2)  "Monate untersuchen
                                  MON TTL_YRS ROUND.
      UNPACK MON TO ACT_DATE+4(2).     "Monate uebernehmen
    ENDIF.

*   Frist in Jahren
    TTL_YRS = YRS + TTL_YRS.           "Gesamtzahl an Jahren
    ACT_DATE(4) = ACT_DATE(4) + TTL_YRS.    "Frist in Jahren

*   nun muss noch geprueft werden, ob es sich beim ermittelten Datum
*   um eine gueltige Datumsangabe (lt. Kalender) handelt; ungueltige
*   waere z.Bsp. 29.02.1991
*--------------------------
    PERFORM VALID_DATE USING ACT_DATE  "Vorzeichen          QXOK085926
                             SIGNUM.   "beachten            QXOK085926
  ENDIF.                               "                    QXOK067676

  CALC_DATE = ACT_DATE.
ENDFUNCTION.

Greetings,

Blag.

Re: function to a month

Former Member — Mon, 08 Jan 2007 14:19:33 GMT

just check this..

DATA: FECHA like sy-datum(6),
FECHA1 LIKE SY-DATUM.
data: mon(2) type c,
      year(4) type c.

fecha1 = sy-datum.
mon = FECHA1+4(2) .
year = FECHA1+0(4).

if mon = '01'.       "need to use this 
year = year - 1.     "----> 
mon = '12'.
endif.

concatenate year mon into fecha.
write:/ fecha.

regards,

vijay

Re: function to a month

RaymondGiuseppi — Mon, 08 Jan 2007 14:25:03 GMT

Use CCM_GO_BACK_MONTHS

*" IMPORTING

*" VALUE(CURRDATE) LIKE SY-DATUM

*" VALUE(BACKMONTHS) TYPE NUMC3

*" EXPORTING

*" VALUE(NEWDATE) LIKE SY-DATUM

regards