RPG Datum aus Excel

[KingofKning]

Hallo *all,

bei einer Übernahme aus Excel wird das Datum in der CSV Datei als Tage seit 01.01.1900 geschrieben. Sprich 35900 = 15.04.1998.
Kann man so etwas einfach in RPG lösen? (V5R4)

Gruß
Gregor

[Fuerchau]

Jo:
MyDate = %date('30-12-1899') + %days(: Mydays);

Bitte achte darauf, der Tag 2 müsste der 1.1.1900 sein.

[Fuerchau]

Nachtrag:
Mit meinem Upload/400 hättest du diese Probleme nicht .

[KingofKning]

Hallo, erstens kann ich kein RPG, zweitens mache ich den Upload nicht und drittens wollte mir jemand verklickern daß das ja so schwierig wäre. Dein Einzeiler hat meine Vermutung bestätigt das es nicht wirklich ein Problem darstellt....... Danke und Gruß Gregor

[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.