Jag får felaktigt veckonummer på mina sidor, dom ligger en vecka före.
Jag har förstått att det är fel i Datepart funktionen. Jag har även hittat en sida på pellesoft som visar hur det går att avhjälpa i VB skript.

http://www.pellesoft.se/communicate/forum/view.aspx?msgid=73410

Function WOY (MyDate As Date) As Integer ' Week Of Year
WOY = Format(MyDate, "ww", vbMonday, vbFirstFourDays)
If WOY > 52 Then
If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then WOY = 1
End If
End Function


Denna funktion vill ej fungera på min asp sida. Är det någonsom har en sådan funktion som jag kan lägga in på mina sidor jag får ett felmeddelande
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0411)
Namnet har omdefinierats.
/lokalserver/veckonummer.asp, line 5, column 9
Function WOY (MyDate As Date) As Int ' Week Of Year
--------^


/Mikael

VeckoNr = DatePart("ww", MyDate, 2, 2)

Då blir "VeckaNr" rätt vecka..

<b>
VeckoNr = DatePart("ww", MyDate, 2, 2)

Då blir "VeckaNr" rätt vecka..
</b>

Inte helt korrekt... Det är en bekräftad bugg..

Felet i funktionen "WOY" är att det är VB-kod, inte VB-script.. Testa med:

<code>
Function WOY (MyDate) ' Week Of Year
WOY = Format(MyDate, "ww", 2, 2)
If WOY > 52 Then
If Format(MyDate + 7, "ww", 2, 2) = 2 Then WOY = 1
End If
End Function
</code>

/F

Tack så mycket för påfylld kunskap, det är alltid lika roligt. Det är fantastiskt vilken bra sajt detta är och med så många duktiga medlemmar .
/Mikael