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

[Fuerchau]

Niemand ist vor Tippfehlern gefeit und man muss ja nicht kleinlich sein .

[holgerscherer]

Niemand ist vor Tippfehlern gefeit und man muss ja nicht kleinlich sein .

Doch, hier wird gnadenlos jedes Bit kontrolliert Das macht die Sache doch so reizvoll.

-h

[Fuerchau]

Dann sollte ich demnächst immer "ohne Gewähr" drunterschreiben, wie beim Lotto.