How to convert Date to Week #

[galsaba]

What would be the function to convert date to the number of date
for example, 2/14/05 is 45, becuse this is the 45th day of the year.

What would be the function?
Where can I find info on the web about it?

galsaba

[Terry Kreft]

datepart("y",Date())

--
Terry Kreft
MVP Microsoft Access
"galsaba" <ga*****@aol.com> wrote in message
news:11**********************@f14g2000cwb.googlegr oups.com...

What would be the function to convert date to the number of date
for example, 2/14/05 is 45, becuse this is the 45th day of the year.

What would be the function?
Where can I find info on the web about it?

galsaba

[Tom van Stiphout]

On Mon, 14 Feb 2005 18:07:50 -0000, "Terry Kreft"
<te*********@mps.co.uk> wrote:

But beware of a bug in oleaut32.dll, which causes this to fail for
some dates, especially around week 53. It bugs me a lot that MSFT has
still not fixed this after knowing about it for several years.
http://support.microsoft.com/default...b;en-us;200299

-Tom.

datepart("y",Date())

[jimfortune]

galsaba wrote:

What would be the function to convert date to the number of date
for example, 2/14/05 is 45, becuse this is the 45th day of the year.

What would be the function?
Where can I find info on the web about it?

galsaba

The logic for rolling your own day of year would be something like:

Public Function DayOfYear(dtX As Date) As Integer
Dim PriorMonthDays As Variant
Dim boolIsLeap As Boolean

PriorMonthDays = Array(0, 31, 59, 90, 120, 151, _
181, 212, 243, 273, 304, 334)
boolIsLeap = (Year(dtX) Mod 4 = 0) - (Year(dtX) Mod 100 = 0) _
+ (Year(dtX) Mod 400 = 0)
DayOfYear = PriorMonthDays(Month(dtX) - 1) + Day(dtX) + _
boolIsLeap * (Month(dtX) > 2)
End Function

For instance, (DayOfYear(Date()) - 1) \ 7 + 1 would give the week
number based on weeks starting the day of Jan 1. Don't actually do it
this way :-). Follow the advice of the other posters. This example is
merely academic.

James A. Fortune