Dezimaldaten

[DKSPROFI]

Hallo Brigitte,

ich habe das deshalb so gemacht, da sonst nicht funktioniert.

[B.Hauser]

Ich weiß nach wie vor nicht warum es nicht funktionieren sollte!
Das folgende Programm wird beim mir ordnungsgemäß kompiliert und auch ausgeführt:

 DCL-S  DateEur       Date(*Eur);             
 DCL-S  DateIso       Date(*Iso);             
                                              
 DCL-S  DateNum       Packed(8) inz(*Zeros);  
//--------------------------------------------
  DateNum = 14022024;                         
  Dsply DateNum;                              
                                              
  DateIso = %Date(DateNum: *EUR);             
  Dsply  DateIso;                             
                                              
  DateEur = %Date(DateNum: *EUR);             
  Dsply  DateEur;                             
                                              
  DateNum = 20240215;                         
  Dsply DateNum;                              
                                              
  DateIso = %Date(DateNum);                   
  Dsply  DateIso;                             
                                              
  DateEUR = %Date(DateNum);                   
  Dsply  DateEur;                             
                                              
 *INLR       = *On;

Das Ergebnis sieht wie folgt aus:


Noch eine kleine Anmerkung: ich heiße BIRGITTA und nicht Brigitte oder Britta oder sonst irgendwas. Wenn Du Dir nicht sicher bist, lass ihn weg.

[Fuerchau]

Wie oben bereits gesagt:
"Das Zielfeld kann ein anderes Format aufweisen, es wird dann umgerechnet."