Re: Date question

[Tony Carolla <carolla@xxxxxxxxx>]

That's much nicer! Thanks! In fact, that simplifies it so much, I don't
really need a service program anymore ;-) (well, actually, modifying the svc
program will be easier than to seekand re-compile all the pgms that use
it... VBG)

On 10/11/05, Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx> wrote:
>
>
> > NumDays=%Int(%Char(DateA:*ISO0));
> > DateB=%Date(NumDays:*ISO);
>
> Alternately, if you're at V5R3, you could code:
>
> D DateA s D inz(d'2005-01-01')
> D IntDate s 10I 0
> .
> .
> IntDate = %dec(DateA:*ISO);
> DateB = %Date(IntDate:*ISO);
>
> It's not a big change, but I think it's a little easier to read when there
> aren't any nested BIFs.
> --
> 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"