Jahr im Datum ändern - steh auf dem Schlauch

[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.