try this

Function WeekNumber(thisdate As Date) As Long
Dim startdate As Date
startdate = DateSerial(Year(thisdate), 4, 4)
If startdate = thisdate Then
startdate = DateSerial(Year(thisdate) - 1, 4, 4)
End If

WeekNumber = Int((thisdate - startdate - 1) / 7) + 1

End Function

"Snowfire" wrote:

I am trying to code a British Financial Week Number Function. ie. an
April to March rotation. The Jan to December is quite common but I can
find no reference to the Fiscal week numbers.
Also is it my imagination or has this group had a drastic reduction
of past history. I seldom find any information I search for now days?
Without wanting to upset anyone, it has almost become a "chocolate
saucepan".