RPG Datum aus Excel

[B.Hauser]

... nur sollte der Einzeiler auch korrekt sein:

 /Free
   MyDate = %Date('30.12.1899': *EUR) + %Days(MyDays);
   // oder 
   MyDate = %Date('1899-12-30') + %Days(MyDays);
 /End-Free 

oder falls das Ganze mit embedded SQL gemacht werden soll:

 /Free
   Exec SQL  Set :MyDate = DATE('30.12.1899': *EUR) + :MyDays Days;
   // oder
   Exec SQL  Set :MyDate = Date(Days('1899-12-30') + MyDays);
 /End-Free 

Birgitta