RE: Determine birth date 6s0 format

Years evenly divisible by 100 are not leap years UNLESS they're evenly
divisible by 400.

ftodor@xxxxxxxxxxxxxxxx 05/09/2008 11:04:53 AM >>>

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.