Re: Date question

Sounds about the same, shifted by about 1,582 years (start of the Gregorian
calendar, IIRC). This would work fine, and if the date was *LOVAL, I could
use a 10I 0 instead of a 10U 0, to handle the negatives. Converting this to
and from a Lillian date would be a task though. I don't see anything in the
documentation about this type of date, so I think it would basically be
doing the same thing I am doing, but using the 1582 date instead of the
01-01-0001 date to subtract.

On 10/11/05, Booth Martin <booth@xxxxxxxxxxxx> wrote:
>
> Isn't the date you are creating what is called Lillian date? Does the
> iSeries handle Lillian dates?
>
> ---------------------------------
> Booth Martin
> http://www.martinvt.com
> ---------------------------------
> -------Original Message-------
>
> From: RPG programming on the AS400 / iSeries
> Date: 10/11/05 10:20:17
> To: RPG programming on the AS400 / iSeries
> Subject: Re: Date question
>
> You know, I must admit, I tried a variation on what you suggested, and
> this
> is a bit simpler, when you use %Int and %Char (%Int doesn't accept a date
> as
> a parm directly). I changed the test pgm to the following, and it works --
> four-digit year and all:
>
> D DateA S D Inz(d'2005-01-01')
> D DateB S D Inz
> D NumDays S 10U 0 Inz
>
> /Free
> *InLR=*On;
>
> NumDays=%Int(%Char(DateA:*ISO0));
> DateB=%Date(NumDays:*ISO);
>
> Return;
> /End-Free
>
> Thanks for the tip!
>
> On 10/10/05, Jon Paris <Jon.Paris@xxxxxxxxxxxxxx> wrote:
> >
> > >> Wacky? maybe, but saving 6 bytes per element can help sometimes.
> >
> > I don't disagree - but why bother with the date math stuff? Why not
> simply
> > use %Int to convert the date to its numeric equivalent and store that?
> It
> > has to use less resource and has the advantage that in debug the data
> will
> > still make sense.
> >
> > Jon Paris
> > Partner400
> >
> > www.Partner400.com <http://www.Partner400.com> <
> http://www.Partner400.com>
> > www.RPGWorld.com <http://www.RPGWorld.com> <http://www.RPGWorld.com>
> >
> > --
> > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> list
> > To post a message email: RPG400-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> >
> >
>
>
> --
> "Enter any 11-digit prime number to continue..."
> "In Hebrew SQL, how do you use right() and left()?..." - Random Thought
> "If all you have is a hammer, all your problems begin to look like nails"
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
> .
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>


--
"Enter any 11-digit prime number to continue..."
"In Hebrew SQL, how do you use right() and left()?..." - Random Thought
"If all you have is a hammer, all your problems begin to look like nails"