[NEWSboard IBMi Forum]
Seite 1 von 2 1 2 Letzte
  1. #1
    Registriert seit
    Jan 2007
    Beiträge
    904

    Jahr in Datum ersetzen (SUBDT)

    Hi Forum,

    ganz blöde Datumsfrage. Irgendwie bring ich einen simplen Datums move über ein BIF nicht zustande. Geht das wirklich nur über einen Umweg und nicht direkt?

    Ich möchte vom Datumsfeld SDATUM nur das Jahr in das Feld TDATUM übertragen. Beide Felder sind als *ISO definiert. Ich weiss, SUBDT ist mein Freund - aber dann?

    Ob das schon Zeichen von beginnender Altersdemenz sind? Schreck! Hilfe!

    Danke.
    kf

  2. #2
    Registriert seit
    Feb 2001
    Beiträge
    20.206
    Nunja, wenn du das Datumfeld redefinierst (Overlay) kannst du das tun.
    Ansonsten ist das eine Einheit und kann nicht partiell ersetzt werden.
    Du musst also das Datum aus den Teilen zusammensetzen und per %date() wieder umwandeln.

    Z.B.:
    tdatum = %date('0001-01-01') + %years(%subdt(sdatum:*y)-1) + %months(%subdt(tdatum:*m)-1) + %days(%subdt(tdatum:*d-1));

    Es gibt da bestimmt noch andere Methoden, wie immer halt.
    Dienstleistungen? Die gibt es hier: http://www.fuerchau.de
    Das Excel-AddIn: https://www.ftsolutions.de/index.php/downloads
    BI? Da war doch noch was: http://www.ftsolutions.de

  3. #3
    Registriert seit
    Jan 2007
    Beiträge
    904
    Danke Baldur,

    ich hab's befürchtet. So das Gelbe vom Ei ist's ja nun auch wieder nicht. Wartungsfreundlich sieht anders aus. Da behelf ich mir doch mit einem Hilfsfeld. Wäre halt schon schön gewesen, man hätte mit einem SUBDT direkt auf ein anderes Datum moven können.

    Methode: Wandle das Datum in ein Char Feld, übertrage das Jahr und wieder zurück in das ISO Datum.

    Immerhin bin ich bzgl. meiner "Altersdemenz" wieder ein bisschen beruhigter. :-)

    Trotzdem, Danke.
    kf

  4. #4
    Registriert seit
    Jan 2012
    Beiträge
    1.102
    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

  5. #5
    Registriert seit
    Aug 2001
    Beiträge
    2.869
    So sollte es auch gehen:

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

    Anwendungsmodernisierung, Beratung, Schulungen, Programmierung im Bereich RPG, SQL und Datenbank
    IBM Champion seit 2020 - 4. Jahr in Folge
    Birgitta Hauser - Modernization - Education - Consulting on IBM i

  6. #6
    Registriert seit
    Jan 2007
    Beiträge
    904
    Aber jetzt mal ehrlich...

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

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

  7. #7
    Registriert seit
    Feb 2001
    Beiträge
    20.206
    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.
    Dienstleistungen? Die gibt es hier: http://www.fuerchau.de
    Das Excel-AddIn: https://www.ftsolutions.de/index.php/downloads
    BI? Da war doch noch was: http://www.ftsolutions.de

  8. #8
    Registriert seit
    Jan 2012
    Beiträge
    1.102
    Zitat Zitat von camouflage Beitrag anzeigen
    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

  9. #9
    Registriert seit
    Feb 2001
    Beiträge
    20.206
    %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));
    Dienstleistungen? Die gibt es hier: http://www.fuerchau.de
    Das Excel-AddIn: https://www.ftsolutions.de/index.php/downloads
    BI? Da war doch noch was: http://www.ftsolutions.de

  10. #10
    Registriert seit
    Jan 2012
    Beiträge
    1.102
    Zitat Zitat von Fuerchau Beitrag anzeigen
    %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

  11. #11
    Registriert seit
    Nov 2003
    Beiträge
    2.304
    Wie ist das mit dem letzten Tag im Februar bei Schaltjahren?

  12. #12
    Registriert seit
    Feb 2001
    Beiträge
    20.206
    Wenn man vom 1.3.nnnn einen Tag abzieht erhält man den 28/29.2.nnnn.
    Dienstleistungen? Die gibt es hier: http://www.fuerchau.de
    Das Excel-AddIn: https://www.ftsolutions.de/index.php/downloads
    BI? Da war doch noch was: http://www.ftsolutions.de

Similar Threads

  1. Datum die xte + 1 SQL V5R4
    By KingofKning in forum NEWSboard Programmierung
    Antworten: 8
    Letzter Beitrag: 25-07-14, 16:45
  2. OPNQRYF im RPG-Programm durch SQL ersetzen
    By dschroeder in forum NEWSboard Programmierung
    Antworten: 13
    Letzter Beitrag: 18-05-14, 17:26
  3. Duplikate mit Sql ersetzen
    By tarkusch in forum NEWSboard Programmierung
    Antworten: 5
    Letzter Beitrag: 09-11-13, 15:08
  4. Suchen/Ersetzen?
    By Matthias.Hayn in forum IBM i Hauptforum
    Antworten: 7
    Letzter Beitrag: 15-07-02, 08:03
  5. Datum + 10 Tage in RPG
    By HoScHiE in forum IBM i Hauptforum
    Antworten: 11
    Letzter Beitrag: 06-08-01, 15:47

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • You may not post attachments
  • You may not edit your posts
  •