Datumsformate in unterschiedlicher Form

[falke34]

Hallo,
vielleicht kann mir da jemand eine kleine Hilfe geben
Bekomme das Datum in verschiedener Form geliefert
zB. 10 St. Char Feld

"1.7.2006 "
"10.7.2006 "
"1.10.2006 "
"10.10.2006"

diese muss ich möglichst einfach in *EUR bringen ? "01.07.2006"
danke für die Hilfe
falke34

[Fuerchau]

c/exec sql
c+ set mydate=date(:var)
c/end-exec

Auf Grund der Punkte erkkent die Funktion das *EUR-Format.
Bei mir funktionierts.

[JonnyRico]

Hi,

da kannst du SQL für bemühen.

HDatFMT(*EUR)
D Date            S             10A   inz('1.7.2006')
D NewDate         S               D

C/Exec SQL Set Option DATFMT=*EUR
C/End-Exec
C/Exec SQL Set :NewDate = Cast(:Date As Date)
C/End-Exec
 /Free

   DSPLY %Char(NewDate)  ;

   *INLR=*ON;
 /End-Free 

Gruß

Sascha

[falke34]

sorry, hatte ich nicht angegeben - in RPGLE ?
danke, für die Hinweise

[B.Hauser]

Hallo,

normalerweise kannst Du SQL in RPGLE ohne Probleme verwenden.
Allerdings denke ich, an dieser Stelle ist es unnötig, da auch RPG ein Datum mit einem einstelligen Monat oder Tag korrekt erkennen und konvertieren kann.

Du brauchst nur die Aufbereitung des alphanumerischen Strings, also das Ergebnis soll wieder ein Alpha-Feld sein?

Wenn ja kannst Du das folgende Statement verwenden:

 /Free
    AufberDatumAlpha = %Char(%Date(UrsprDatumAlpha: *EUR): *EUR);
 /End-Free 

Birgitta