N° of the week from a date

[ggauny@live.fr]

HI,

Here is an another little, sometime usefull to know in which week will occur an evenement. Th formulae is :

N° week= IP[DOW(1/1/YYYY)+DOY(JJ,MMYYYY)+5]/7 - [IP(DOW(1/1/YYYY)/5].

Code:


LBL'NUW'
XEQ'001'
WDAY
STO I
x<>Z
XEQ'001'
[delta]DAYS
+/-
INC X
RCL I
+
5
+
7
/
IP
RCL I
5
/
IP
-
RTN
LBL'001'
ENTER
YEAR
#001
#001
[->]DATE
RTN
END

It is according to ISO 8601, so for old calendars the result may vari +/- 1 week.

17/04/1982----> 15 (week 15)
30/06/1950----> 26 (week 26)

Gérard.