Datumsberechnung

[IBSCPO]

Hallo zusammen,
ich möchte ein Feld (Num, 8 Stellen, 20080930) 14 Tage aufaddieren. Wie mache ich das am besten, damit auch der Monat etc. richtig addiert wird.

Kann mir dabei jemand helfen?

Wie sieht es mit ADDDUR aus?

Danke im voraus..

Carsten

[Khholm]

geht am besten mit den built in functions, etwa:

d isodate s d datfmt(*iso)

und dann zur Berechnung:

isodate = %date(numdat:*iso);
isodate = Isodate + %days(zahl);
numdat = %dec(%xlate('-':' ':%char(isodate)):8:0));

Karl-Heinz

[Pikachu]

In etwa so.

D DATUM           S              8P 0 INZ(20080925)                    
D DATUM1          S               D   DATFMT(*ISO)                     
D                                                                      
C     *ISO          MOVE      DATUM         DATUM1                     
C                   ADDDUR    14:*DAYS      DATUM1                     
C     *ISO          MOVE      DATUM1        DATUM                      
C                                                                      
C                   SETON                                        LR

[B.Hauser]

... oder (ab V5R3)

 /Free
    NewDatNum = %Dec(%Date(DatNum:*ISO) 
                      + %Days(Zahl): *ISO);
 /End-Free 

ADDDUR wird im RPG free format nicht unterstützt, deshalb wurden in Release V5R1 eine Reihe von neuen Built-In-Functions (u.a. auch %Days()) zur Datumsrechnung bereitgestellt.

@Karl-Heinz
%XLATE kann man sich auch vor V5R3 sparen, in dem man beim Konvertieren in eine alphanumerische Darstellung das Format angibt. Die folgende 0 im Format bedeutet ohne Datumstrennzeichen.

 /Free
    numdat = %dec(%char(isodate: *ISO0):8:0);
 /End-Free 

Birgitta