Datum sicher in *EUR wandeln

[JonnyRico]

Hi *All,

kann mir jemand sagen wie ich einen Datumsvariable ganz egal in welchem Format sie kommt (*ISO *MDY *WASWEIßICH) in *EUR wandle. Gibt es eine RPG BIF oder SQL die dazu im Stande ist? SQL scheint mir nicht in der Lage das zu casten (wieso auch immer?!)
Mir würde auch schon eine Funktion helfen die mit Aufschluss über das Format gibt. Man muss doch bestimmt nicht alle von Grund auf neu erfinden oder???

Gruß

Sascha

[Fuerchau]

Du musst da schon wissen, in welchem Format das Datum vorliegt, da sonst keine Eindeutigkeit gegeben ist:

05.01.03:
5. Jan 2003 (deutsch)
1. Mai 2003 (USA)
3. Jan 2005

Was ist nun richtig ?

Ansonsten gib es das API QWCCVTDT bzw. das Kommoand CVTDAT.

[JonnyRico]

Hi,

okay da hast du natürlich recht, aber gibt es denn keine Möglichkeit anhand der Variable zu ermittlen welches Dateformat sie hat bzw. mit welchem sie deklariert wurde?

[Fuerchau]

Eindeutig nein !
Da ja bei Zeichenvariablen nur Adressen zwischen Programmen ausgetauscht werden gibt es keine Möglichkeit auf die Ursprungsdefinition zuzugreifen.
Diese ist nämlich nur eine Compiler-Direktive.

[B.Hauser]

okay da hast du natürlich recht, aber gibt es denn keine Möglichkeit anhand der Variable zu ermittlen welches Dateformat sie hat bzw. mit welchem sie deklariert wurde?

Eigentlich nicht, zumindest nicht wenn das Jahr 2-stellig angegeben wurde.
Bei einem 4-stelligen Jahr sind Format und Trennzeichen fest vorgegeben.
Bei einem 2-stelligen Jahr können die Trennzeichen unterschiedlich sein. Damit ist es nicht mehr möglich das verwendete Datums-Format zu erkennen.

SQL kann ein Datum mit einem 4-stelligen Jahr und dem korrekten Trennzeichen erkennen und umsetzen. Das Format braucht nicht angegeben zu werden.

Die folgenden SQL-Statements liefern gültige Daten:

Declare MyDate Date;
Set MyDate = Date('2006-04-26'); 
Set MyDate = Date('26.04.2006'); 
Set MyDate = Date('04/26/2006'); 

Ein Datum mit 2-stelligem Jahr können weder RPG noch SQL erkennen. In RPG ist es ausserdem nicht möglich das Format als Variable zu definieren und verwenden.

Birgitta

[JonnyRico]

Ansonsten gib es das API QWCCVTDT bzw. das Kommoand CVTDAT.

Hi,

zur API noch mal kurz. Ich habe das gerade mal kurz überflogen und feststellen müssen das QWCCVTDT leider auch nicht direkt in *EUR konvertieren kann. Ich denke ich müss dan CVTDAT bemühen. Danke für eure Hilfe.

Gruß

Sascha