Re: Date conversion

["Peter Colpaert" <Peter.Colpaert@xxxxxxxxxxxx>]

Walter,

while I didn't quite use your three statements (I want to use BIF's to
their fullest), you did point me in the right direction with the *Eur0 date
format. ?Here's what I ended up with:

? ? ?p EuroIso ? ? ? ? b ? ? ? ? ? ? ? ? ? export
? ? ?d EuroIso ? ? ? ? pi ? ? ? ? ? ? 8s 0
? ? ?d DateNum ? ? ? ? ? ? ? ? ? ? ? ?8s 0 value
? ? ? //
? ? ? /FREE
? ? ? ?return atoi(%char(%date(DateNum:*Eur):*Iso0));
? ? ? ?//
? ? ? /END-FREE
? ? ?p EuroIso ? ? ? ? e

Thanks for the help.

(groetjes aan Martine ;-)

Peter Colpaert
Application Developer

Honda Europe NV
Langerbruggestraat 104
B-9000 GENT
Belgium
Peter.Colpaert@xxxxxxxxxxxx
Tel: +32 9 2501 334
Fax: +32 9 2501 231
----------
Yoda of Borg are we: Futile is resistance. Assimilate you, we will.
----------






                                     Peter,

                                     Try this:
                                     Not a procedure, but you'll get the
                                     point.


                                     ? ? d Indate ? ? ? ? ?s
                                     8p 0
                                     ? ? d OutDate ? ? ? ? s
                                     8p 0
                                     ? ? d IsoDate ? ? ? ? s
                                     d
                                     ? ? d CharDate ? ? ? ?s
                                     8a
                                     ? ? c ? ? *Entry ? ? ? ?Plist
                                     ? ? c ? ? ? ? ? ? ? ? ? Parm
                                     outdate

                                     ? ? ?/free

                                     ? ? ? ?Indate = 20030729;
                                     ? ? ? ?Monitor;
                                     ? ? ? ? IsoDate = %Date(Indate:*ISO);
                                     ? ? ? ? CharDate = %Char(IsoDate:
                                     *Eur0);
                                     ? ? ? ? OutDate = ?%Int(CharDate);

                                     ? ? ? ?// Any Error returns Zero

                                     ? ? ? ?On-error;
                                     ? ? ? ? ?OutDate = 0;
                                     ? ? ? ?EndMon;

                                     ? ? ? ? ?Return;

                                     ? ? ?/end-free

                                     Groetjes,

                                     Walter

                                     Walter Hesius
                                     Senior Application developer Iseries
                                     (as/400)
                                     Walter_Hesius@xxxxxx




      ______________________________________________________________________
   The information contained in this communication is confidential and may
   be legally privileged. It is intended solely for the use of the
   individual or the entity to whom it is addressed and others authorised
   to receive it. If you have received it by mistake, please let the sender
   know by e-mail reply and delete it from your system.
   If you are not the intended recipient you are hereby notified that any
   disclosure, copying, distribution or taking any action in reliance of
   the contents of this information is strictly prohibited and may be
   unlawful.
   Honda Europe NV is neither liable for the proper and complete
   transmission of the information contained in this communication nor for
   any delay in its receipt.