Re: Determine birth date 6s0 format

["Captain Jerry" <captainjerry@xxxxxxxxx>]

Only if you live in Hawaii, Arizona, and parts of Indiana!

On Sat, May 10, 2008 at 7:22 AM, Jonathan Mason <
jonathan.mason@xxxxxxxxxxxxxxxx> wrote:

> Does that mean leap years are optional for non-Roman Catholics?
>
> :-)
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
>  On Behalf Of Jerry Adams
> Sent: 10 May 2008 14:28
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Determine birth date 6s0 format
>
> The rule for leap years, imposed by Pope Gregory VII, is
>        If the year is evenly divisible by 4 it is a leap year - unless
>        The year is also evenly divisible by 100 (such as 1900) - but
>        It is a leap year if the year is evenly divisible by 400 (such as
> 2000).
>
> Jerry C. Adams
> IBM System i Programmer/Analyst
> B&W Wholesale
> office: 615-995-7024
> email:  jerry@xxxxxxxxxxxxxxx
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Florin Todor - YYZ Concord
> Sent: Friday, May 09, 2008 1:05 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Determine birth date 6s0 format
>
> Lim, your example is not the best one; if Feb. 29 is valid for specific
> year, it is valid for the (year-100); the opposite is, also, true...
> I thing there is only one exception to this rule, the year 1900 (which,
> if I'm not mistaken, it wasn't a leap year, but 2000 it was...)
>
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Lim Hock-Chai
> Sent: Friday, May 09, 2008 1:21 PM
> To: Lim Hock-Chai; RPG programming on the AS400 / iSeries
> Subject: RE: Determine birth date 6s0 format
>
> Umm.  The opposite could be true also.  Fed 29 might not be valid for
> 2037 but it is for 1937.
>
> Well, have fun!!!.
>
> -----Original Message-----
> From: Lim Hock-Chai
> Sent: Friday, May 09, 2008 12:17 PM
> To: 'RPG programming on the AS400 / iSeries'
> Subject: RE: Determine birth date 6s0 format
>
> Date is always tricky.  When doing the subtracting 100 logic, you might
> want to convert the date to a ISO 8 digits numeric field first.
> Subscriber this 8 digits numeric field by 100 and check the date to make
> sure it is still valid before use it.
>
> Feb 29 might be valid for 2037 and not valid for 1937.
>
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of DLee@xxxxxxxx
> Sent: Friday, May 09, 2008 12:06 PM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Re:Determine birth date 6s0 format
>
> Thanks all;
>
> I had actually "doodled"  with the concept of subtracting 100 from the
> date, but wasn't sure if this was an accepted way to go.
>
> Thanks for all your help.
>
> Darrell Lee
> Information Technology
> Extension 7127
> --
> 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.
>
> --
> 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.
>
>
>
> --
>  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.