Jahr im Datum ändern - steh auf dem Schlauch

[camouflage]

ich möchte das Jahr auf einem vordefiniertem Datumsfeld ersetzen. z.B. 01.01.2000.
Also aus 2000 soll 2015 werden. Und das in free. Allerdings, lange mach ich das nicht mehr mit.
Dann halt mit Hilfsfeldern, schön geht anders.

[ExAzubi]

Wo ist das Problem? Wenn das Feld als Datumsfeld definiert ist, geht es so

C                       EVAL datFeld = datFeld + %YEARS(3)

Wichtig dabei ist, das Feld muss als Datumsfeld definiert sein und beim wandeln dar fauf keinem Fall die CVTOPT *DATETIME angegeben sein. Dann geht das so.

Wenn das Feld als Alpha Feld definiert ist, müsste man wie folgt vorgehen
(Es steht in einem 10A Feld 15.05.2015.

C                       EVAL AlphFeld = %CHAR(%DATE(AlphFLD:*EUR) + %YEARS(3):*EUR)

Wieso klappt es denn bei dir nicht? Umwandlungsfehler?

[Fuerchau]

Und in Free siehts dann so aus (wie ich schon schrieb):

datFeld += %YEARS(3);

[Pikachu]

DATUM += %YEARS((2015 - %SUBDT(DATUM:*YEARS)))

ich möchte das Jahr auf einem vordefiniertem Datumsfeld ersetzen. z.B. 01.01.2000.
Also aus 2000 soll 2015 werden. Und das in free. Allerdings, lange mach ich das nicht mehr mit.
Dann halt mit Hilfsfeldern, schön geht anders.

[camouflage]

Vielen Dank für den vielen Feedback.

Einige Ideen sind wirklich überlegenswert, aber aus Gründen der Uebersichtlichkeit diese Lösung angewendet:

jjjj = (%subdt(%date:*YEARS)-3);
work = '01.01.' + %char(jjjj);

Work ist varchar und dann kann ich damit immer noch machen, was ich will.

Danke euch.

[ExAzubi]

Achso du willst immer den 01.01. haben....
dann ginge das so....

date1 = date1 - %YEARS(3) - %MONTHS(%SUBDT(DATE1:*M)-1) - %days(%SUBDT(DATE1:*D)-1) ;

[Fuerchau]

Ich habe mir da mal eine "DateSerial"-Funktion gebastelt (aus VBA):

MyDate = %date('0001-01-01') + %Years(n - 1) + %Months(n - 1) + %days(n - 1);
Der Vorteil dieser Basis-Funktion ist ebenso, dass "n" einen beliebigen Wert +/-, also auch 0 enthalten kann.
Beispiel:

MyDate = %date('0001-01-01') + %Years(2018 - 1) + %Months(6 - 1) + %days(0 - 1);
Ergebnis => 2018-05-31

Und somit lässt sich deine Anforderung auch relativ leicht ohne Hilfsvariablen rechnen:

MyDate = %date('0001-01-01') + %years(%subdt(%date:*YEARS) - 2);

PS:
Die Funktion mittels dem "work = '01.01.' + %char(jjjj);" funktioniert nur, wenn das Datumformat des Programmes auf *EUR steht. Ich würde hier grundsätzlich *ISO empfehlen.