Week number

Prøv sådan her:
WeekNumber = DatePart("ww", date(), vbMonday, vbFirstFourDays)

//>Rune

Men jeg mener nok der var lidt problemer med den der... Om ikke andet prøv den her så:

dim Aar, AarsStart, AktUgeNr, UgeDag
Aar=Year(Date)
AarsStart=DateSerial(Aar,01,01)
Do
AarsStart=AarsStart+1
Loop Until WeekDay(AarsStart)=2
If Date<AarsStart And Aar=Year(AarsStart) Then
AktUgeNr=53
Else
AktUgeNr=Int((Date-Aarsstart)/7)+1
End If

//>Rune

se nedenstående (fra windowsscript hjælp)

DatePart(interval, date[, firstdayofweek[, firstweekofyear]])
Arguments
interval
Required. String expression that is the interval of time you want to return. See Settings section for values.
date
Required. Date expression you want to evaluate.
firstdayof week
Optional. Constant that specifies the day of the week. If not specified, Sunday is assumed. See Settings section for values.
firstweekofyear
Optional. Constant that specifies the first week of the year. If not specified, the first week is assumed to be the week in which January 1 occurs. See Settings section for values.
Settings
The interval argument can have the following values:

Setting Description
yyyy Year
q Quarter
m Month
y Day of year
d Day
w Weekday
ww Week of year
h Hour
n Minute
s Second

The firstdayofweek argument can have the following values:

Constant Value Description
vbUseSystemDayOfWeek 0 Use National Language Support (NLS) API setting.
vbSunday 1 Sunday (default)
vbMonday 2 Monday
vbTuesday 3 Tuesday
vbWednesday 4 Wednesday
vbThursday 5 Thursday
vbFriday 6 Friday
vbSaturday 7 Saturday

The firstweekofyear argument can have the following values:

Constant Value Description
vbUseSystem 0 Use National Language Support (NLS) API setting.
vbFirstJan1 1 Start with the week in which January 1 occurs (default).
vbFirstFourDays 2 Start with the week that has at least four days in the new year.
vbFirstFullWeek 3 Start with the first full week of the new year.

Du kan læse om buggen der findes her:

http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/q200/2/99.asp&NoWebContent=1

//>Rune

datepart("ww",date(), 0)

bruger system default

datepart("ww",date(), 0, 0) sååånn

;o)

"buggen" burde ikke findes i nyere produkter (vb 6.0 er det nyeste de skriver det "omhandler")