View Full Version : RPG Datum aus Excel
KingofKning
22-07-09, 15:19
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
Jo:
MyDate = %date('30-12-1899') + %days(: Mydays);
Bitte achte darauf, der Tag 2 müsste der 1.1.1900 sein.
Nachtrag:
Mit meinem Upload/400 hättest du diese Probleme nicht :).
KingofKning
22-07-09, 16:39
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
... 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
Niemand ist vor Tippfehlern gefeit und man muss ja nicht kleinlich sein ;).
holgerscherer
23-07-09, 10:22
Niemand ist vor Tippfehlern gefeit und man muss ja nicht kleinlich sein ;).
Doch, hier wird gnadenlos jedes Bit kontrolliert <grins> Das macht die Sache doch so reizvoll.
-h
Dann sollte ich demnächst immer "ohne Gewähr" drunterschreiben, wie beim Lotto.