Sekunden auf Datum 01.01.1980 addieren

[BenderD]

%date und %seconds heißen deine Freunde

D*B

Hallo i5 Fans

ich suche einen Weg um eine Anzahl Sekunden auf ein Datum zu addieren.
In RPG natürlich, sorry!

Gegeben Anzahl Sekunden z.B. 831456732

Gegeben Datum/Timestamp
01.01.1980 00:00 Uhr

Gesucht Datum/Timestamp + Anzahl Sekunden für neues Datum mit Timestamp

Komme nicht so recht weiter. Weis nicht wie ich ansetzen soll?
Gibt es evtl. auch SQL Funktion?

Gruß
co_steffl

[B.Hauser]

zunächst einmal eine Anmerkung:
Sekunden können immer nur auf eine Timestamp oder eine Zeit, nicht jedoch direkt auf ein Datum addiert werden.

Konvertierung eines Datums in eine Zeitmarke erfolgt mit der RPG Funktion %Timestamp(). Konvertierung einer Zeitmarke in ein Datum erfolgt mit der RPG-Funktion %Date. Um Sekunden auf eine Zeitmarke addieren zukönnen muss der numerische Wert in einen "rechenbaren" Zeitwert mit Hilfe der Funktion %Seconds() konvertiert werden.

 /Free
    NewDate = Date(%TimeStamp(MyDate) + %Seconds(NumWert));
 /End-Free 

In SQL ist das etwas anders, hier muss keine Funktion zur Konvertierung von Zeitwerten verwendet werden, stattdessen wird die Zeiteinheit (z.B. SECONDS) auf neuhochdeutsch hinter den numerischen Wert gestellt. Aber auch bei SQL gilt: Sekunden können nur zu Zeitmarken oder Zeiten addiert werden:

 /Free
    Exec SQL   Set :NewDate = Date(Timestamp_ISO(:MyDate)
                                    + :NumWert Seconds);
 /End-Free 

Birgitta

[Fuerchau]

Kleine Anmerkung:

Ich frage mich, ob der 1.1.1980 so richtig ist. Windwos/Unix/C-Funktions-Zeitmarken verwenden den 1.1.1970 als Basis.
Ausserdem ist der Sekundenwert auf UTC gerechnet sodass ggf. noch die Zeitzone dazukommt.