vis ugenr

Den hurtige:

<%=DatePart("ww", date(),vbMonday, vbFirstFourDays)%>


Der er en "bug" i funktionen som regner uge nummeret ud. Se mere her:
http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/q200/2/99.asp&NoWebContent=1

Så hvis du vil hvade 100% korrekt uge nummer så brug dette:

<%
Function weekNr (dtmDate)  ' Week Of Year
    weekNr = DatePart("ww", dtmDate, vbMonday, vbFirstFourDays)
    If weekNr > 52 Then
        If DatePart("ww", dtmDate + 7 , vbMonday, vbFirstFourDays) = 2 Then weekNr = 1
    End If
End Function


tmpDate = Date()
Response.Write "Uge nr. " & weekNr (tmpDate)
%>

lige det jeg efterlyste:):):):):):):):)