Dato (Uge, år)

<%
Function WeekYear(Dato)
WeekYear = \"Uge \" & DatePart(\"ww\", Dato, vbMonday) & \" år \" & Year(Dato)
End Function
%>


<%=WeekYear(Now)%>

En lille fejl...

Hvis jeg skriver dato\'en 31-01-2001 så skriver den:

Uge 53 år 2001

Den skulle jo skrive:
Uge 1 År 2002

Fordi at det er uge 1 i år 2002

Kan du hjælpe?

Ups Hvis jeg skriver dato\'en 31-12-2001  Lille fejl

Er du helt sikker på at det er uge 1? Er det ikke først imorgen?

Doh! Du skriver den 31.

Min fejl!

I min kalender står der at den 31-12-2001 er Uge 1...

Nu er vi næsten enige. Den 31. december 2001 må vel være:

Uge 1 år 2001 (for det er ikke 2002 endnu)

<%
Function WeekYear(Dato)
WeekYear = \"Uge \" & DatePart(\"ww\", Dato, vbMonday, vbUseSystem) & \" år \" & DatePart(\"yyyy\", Dato, vbMonday, vbUseSystem)
End Function
%>

<%=WeekYear(#31-12-2001#)%>

På den måde som du har lavet det skriver den det samme både ved Den 01-01-2002 og Den 31-12-2002, og det kan jo ikke værer rigtigt.

Uge 1 år 2002

Kan det?

Det er nok det nærmeste jeg kan komme.
Problemet er, at det er to uafhængige metodekald.

Har selv fusket en kode, den er måske lidt rodet men den virker :D

Her er den:

<%
dato = date
uge = DatePart(\"ww\", dato, vbMonday, vbUseSystem)
aar = DatePart(\"yyyy\", dato, vbMonday, vbUseSystem)

If uge = 52 Then
    dag2 = DateAdd(\"d\", 8, dato)
    dag2aar = DatePart(\"yyyy\", dag2, vbMonday, vbUseSystem)
    dag3aar = DatePart(\"yyyy\", dato, vbMonday, vbUseSystem)
    If NOT dag2aar = dag3aar Then
        aar = aar
    Else
        dato2 = DateAdd(\"yyyy\", -1, dato)
        aar =  DatePart(\"yyyy\", dato2, vbMonday, vbUseSystem)
    End If
   
End If

If uge = 1 Then
    dag2 = DateAdd(\"d\", -8, dato)
    dag2aar = DatePart(\"yyyy\", dag2, vbMonday, vbUseSystem)
    dag3aar = DatePart(\"yyyy\", dato, vbMonday, vbUseSystem)
    If NOT dag2aar = dag3aar Then
        aar = aar
    Else
        dato2 = DateAdd(\"yyyy\", 1, dato)
        aar =  DatePart(\"yyyy\", dato2, vbMonday, vbUseSystem)
    End If
   
End If
%>

<%=uge%> - <%=aar%>



Du får 15 points fordi du hjalp mig på sporet...

meget lettere at bruge dette :

    <%
    Ugenummer = DatePart(\"ww\", Date, 2, vbFirstFourDays)
    Response.Write(Ugenummer)
    %>

Den skriever jo kun ugenummeret!

Bare en lille oplysning 31-12-2001 er da uge 53 (Oplyst fra min Outlook)

Det virker dog lidt ulogisk men i følge Outlook så slutter uge 53 06-01-2002 
Humm....

finntoft du sætter da bare en Year() bagefter.....

gizom: ja det er en bug fra ms.
http://support.microsoft.com/directory/article.asp?ID=KB;EN-US;q200299