AW: Calculating The Number Of The Week

Hi,

If you are on release V5R1 or higher and are allowed to use embedded SQL,
you can use the scalar function WEEK_ISO to get the correct week:

C/Exec SQL  Set :MyWeek = Week_ISO(:MyDate)
C/End-Exec

If not the correct week according to ISO guidelines is defined as follows:
1. A week always begins with Monday
2. The first week of a year must contain at least 4 days of the new year.
   In other words, the first Thursday is always in the first week or the
January, 4th is always in the first week.

I've to look longtimes ago I calculated the week with pure RPG, but as soon
as I could use the SQL function, I throw it away. 

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them?  Not training them
and keeping them!"

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im
Auftrag von Bernd Dworrak
Gesendet: Thursday, March 15, 2007 15:18
An: rpg400-l@xxxxxxxxxxxx
Betreff: Calculating The Number Of The Week


Hello!

 

Does anybody know a RPG routine which calculates the number of the week?

 

I've tried some code that could be downloaded on several sites in the
internet. Not a single one calculates the correct number of the week for
instance for December, 31st 2007.

All show 53 as number of the week but it is week number 1 instead.

 

Every help is welcome.

 

Bernd Dworrak

 

 


15/3/2007