Jahr in Datum ersetzen (SUBDT)

[dschroeder]

Nur mal so als Denkansatz: So ein Datumsmove ist ja eine ziemlich allgemeingültige Aufgabe. Für so etwas schreiben wir uns immer Serviceprogramme als Tools. Du könntest z.B. ein Tool schreiben, das folgendermaßen aufgerufen würde: setYearInDate(sdatum:%subdt(tdatum:*Y)). Das Tool würde ein Datum zurückliefern. Damit hättest du das ganze ein für alle Mal gelöst und könntest es immer wiederverwenden.

Dieter

[B.Hauser]

So sollte es auch gehen:

DatumS = DatumS + %Years(%SubDt(DatumT: *Y) - %SubDt(DatumS: *Y));

Birgitta

[camouflage]

Aber jetzt mal ehrlich...

Warum nicht: TDATUM = %years(%subdt(TDATUM:*Y));

Uebrigens: Birgitta, well done. Aber Baldurs Lösung geht auch. ;-)

[Fuerchau]

Meine Lösung war auch Schnellschuss da ich mir mal eine VBA-ähnliche Funktion "dateserial(Years, Months, Days)" gebaut hatte, die nach obigem Verfahren arbeitet, also mehr Allgemeingültigkeit hat.
Wie immer gibt's natürlich mathematische Kürzungsverfahren die dann für spezielle Aufgaben schneller sind. Mit obiger Formel addiert man mal schnell x Monate und bekommt auch schnell den Letzten eines bestimmten Monats heraus (%days(x), wobei x = -1 sein kann).
Ich bin halt Generalist.

[dschroeder]

Aber jetzt mal ehrlich...
Warum nicht: TDATUM = %years(%subdt(TDATUM:*Y));

Überträgst du bei deiner Lösung nicht nur das Jahr in TDATUM? Geht das wirklich? So wie ich es verstanden habe, soll TDATUM doch ein komplettes Datumsfeld beinhalten und nicht nur ein Jahr.

Dieter

[Fuerchau]

%YEARS converts a number into a duration that can be added to a date or
timestamp value.
%YEARS can only be the right-hand value in an addition or subtraction operation.
The left-hand value must be a date or timestamp. The result is a date or timestamp
value with the appropriate number of years added or subtracted. For a date, the
resulting value is in *ISO Format.

Hier hast du die Erklärung.
Du kannst noch minimal abkürzen:
DatumS += %Years(%SubDt(DatumT: *Y) - %SubDt(DatumS: *Y));

[dschroeder]

%YEARS converts a number into a duration that can be added to a date or
timestamp value.
%YEARS can only be the right-hand value in an addition or subtraction operation.
The left-hand value must be a date or timestamp. The result is a date or timestamp
value with the appropriate number of years added or subtracted. For a date, the
resulting value is in *ISO Format.

Hier hast du die Erklärung.
Du kannst noch minimal abkürzen:
DatumS += %Years(%SubDt(DatumT: *Y) - %SubDt(DatumS: *Y));

Genau. Das ist aber ziemlich genau Birgittas Lösung. So einfach, wie camouflage sich das gemacht hat, geht es meiner Meinung nach nicht. Wenn es doch geht, bitte posten. Ich lerne gerne dazu.

Dieter

[Pikachu]

Wie ist das mit dem letzten Tag im Februar bei Schaltjahren?

[Fuerchau]

Wenn man vom 1.3.nnnn einen Tag abzieht erhält man den 28/29.2.nnnn.

[B.Hauser]

Wie ist das mit dem letzten Tag im Februar bei Schaltjahren?

Die Regel ist die, es wird immer versucht den gleichen Tag zu verwenden. Sollte dieser Tag in dem "neuen" Datum nicht vorhanden sein, wird immer der Monatsletzte genommen.

Wenn also das Ausgangsdatum der 28.02. ist, ist das Ziel-Datum wieder ein 28.02. unabhängig davon, ob das Ausgangsdatum ein Monatsende war oder nicht.
Wenn das Ausgangsdatum der 29.02. ist und dieser in dem Ziel-Jahr nicht existiert, ist das Ziel-Datum der 28.02.

Birgitta

[Fuerchau]

Die Begründung für dieses Verhalten liegt einfach daran, dass ein Datum in Anzahl Tage seit x umgerechnet und dann wieder in ein Datum konvertiert wird.
Es gibt dann nur Überlaufprobleme wenn weniger als der 1.1.0001 und mehr als der 31.12.9999 rauskommt.

[camouflage]

Also, die Methoden von Baldur und Birgitta funktionieren. Ich seh ja ein, dass so trivial das Ganze nicht ist, da u.U. ein ungültiges Datum raus kommen könnte. Stichwort 29.2.2015!!!. Insofern ist das Rechnen vom Datum schlüssig.

Allerdings, und das hat der Test auch ergeben, wenn schon ein Datum (z.B. Char to Date) konvertiert wird: IMMER unter MONITOR! Weil, hier geht das mit dem 29.2.2015 und den RNQ0112 haste dann auch gleich um die Ohren.

So, und nun hab ich genug vom Thema, nochmals Danke an die Postings. :-)