Datum ermitteln

[CaddyMajor]

Hallo zusammen,

ist es eigentlich ohne großen Aufwand möglich, per RPG / SQL etc. immer das Datum des kommenden Datums ermitteln.

Sprich heute ist z.B. Montag, was hat der Freitag für ein Datum.

Vielen Dank

[perry_rhodan]

SET :xDate = CURRENT DATE + 1 DAYS

Mit dem CODE kannst du in SQLRPG das nächste Datum ermitteln

oder das selbe in nur RPG-Free Code

D actDate s d
/free
actDate = %date(*DATE:*ISO);
actDate = actDate + %DAYS(1);
dsply actDate;
*INLR = *ON;
/end-free



lf perry_rhodan:rolleyes:

[B.Hauser]

Hallo,

wenn Du bereits auf V5R4 bist, kannst Du die skalare Funktion NEXT_DAY verwenden:


/Exec SQL Set :MyDate = Next_Day(Current_Date, 'FRI');


In dem Beispiel oben wird der nächste Freitag ermittelt. Da heute Freitag ist, wäre das der 09.11.2007.