RE: Week of the year routine

Jerry,

This is an artificial week assignment, not related to the official standards. As I mentioned, in 2011, Jan 1 was Saturday. That day would be assigned week 1. Week 2 would start the following day, on Sunday.

I think I've worked it out - easier that I initially thought. Just by starting Jan 1 as week 1, incrementing the week each Sunday throughout the year would do the trick.

-mark


At 4/15/2011 12:47 PM, you wrote:

Check out the ISO 8601 standard. If I recall correctly, the week with 4
January is week 1. Anyway, there may be routine out there that you can use.

Jerry C. Adams
IBM i Programmer/Analyst
It just as easily could have gone the other way. - Don Zimmer explaining his
teams 4-4 road record
--
A&K Wholesale
Murfreesboro, TN
615-867-5070


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of M. Lazarus
Sent: Friday, April 15, 2011 11:23 AM
To: RPG400-L@xxxxxxxxxxxx
Subject: Week of the year routine

Before I reinvent the "calendar file" wheel, does anyone have an
*RPG* routine that will calculate the week of the year.

A few parameters:

- This machine is on an older OS version (5.3) and does not have the
SQL feature installed.

- Week 1 of the year starts on January 1. So, for example, in 2010,
Dec. 26-31 would be the last week of the year (53?). Saturday, Jan
1, 2001, is week 1. Monday, Jan 2-8, is week 2, etc.


Thank you.

-mark

--
This is the RPG programming on the IBM i / System i (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 IBM i / System i (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.