Datumsfunktion

[Fuerchau]

Das Problem mit der fehlenden Vornull lässt sich so lösen:

%date(%editc(%dec(DatNum:8:0):'X'):eur0)

Der Compiler ist da wohl irgendwie doof. H-Bestimmung wird ignoriert und der default für die %date-Funktion ist *ISO.

Also:
In Dezimal (8,0) konvertieren, per %editc(...:'X') in Zeichenkette umwandeln und mit explizitem *EUR0 in Datum umwandeln.

Mit Monitor solltest du das abfangen, falls kein gültiges Datum drinsteht.

[philsturm]

Danke für die Hilfe!

Ich habe das mir jetzt so zusammengebastelt (es funktioniert sogar!)

%trim(%editw(myDat:'0 . . .'));

Und in der Datei hat das Feld ein Datumsformat mit (*EUR)

[Fuerchau]

Mit %trim hatte ich das dann auch probiert, aber wenn man eine Funktion sparen kann .....

[B.Hauser]

Und in der Datei hat das Feld ein Datumsformat mit (*EUR)

Das Datumsformat in der Datei ist uninteressant!
Das Datum wird als Binär-Wert gespeichert.
Das Datumsformat in der Datei wird nur dazu verwendet um den Binär-Wert mit (alten) Tools wie WRKF oder UPDDTA sichtbar zu machen.

... und wenn's schon darum geht eine Funktion zu sparen, warum nicht so:

/Free
   RealDate = %Date(%Dec(AlphaDate: 8: 0): *EUR);
/End-Free

Birgitta