Finde Uge nr. på en dato...

DatePart("ww",#1/1/2002#) skulle altså virke perfekt!

//>Rune

Måske fordi du glemmer at sætte # og # rundt om?

//>Rune

Den her skulle dog være lidt mere præcist:

<%= DatePart("ww", Now(), FirstDayOfWeek, FirstWeekOfYear) %>

//>Rune

Der er en fejl i DatePart functionen på netop ude nummereret.
Jeg leder lige efter et link fra MS som beskriver det.

Prøv du med denne:

DatePart("ww", #1/1/2005#)

Den retunere Uge = 1... men det er ikke korekt, for her er ugen 53...

Den skulle gerne retunere følgende for følgende datoer:
1/1/2002 = Uge 1
1/1/2003 = Uge 1
1/1/2004 = Uge 1
1/1/2005 = Uge 53

Men den retunere Uge = 1 for samtlige af dem...

Hvad får du hvis du skriver:

<%= DatePart("ww", Now(), FirstDayOfWeek, FirstWeekOfYear) %>

?

//>Rune

Her er linket så:

http://support.microsoft.com/default.aspx?scid=kb;EN-US;q200299

eagleeye...

Ja det havde jeg faktisk lidt regnet ud, men så må jeg vel selv ind og finde uge nummeret... men hvordan nu det ??? det er ikke lige noget jeg kan overskue...

Jeg kan sagtens finde uf af om 1/1 er uge 1 eller ej, det er næmt, det er bare at gå ind og se på om 1/1 falder før eller efter en torsdag...

Men så skal jeg jo derudfra definere hvilken uge 10/6 er og 12/4 osv...

Medions...

Ja den ser umiddelbart ud til at virke...

Du kan evt bruger deres Work around, hvor du laver din egen functionsom så reder fejlen i land, rettet lidt til for ASP.:


Function WOY (MyDate)
  WOY = DatePart(MyDate, "ww", vbMonday, vbFirstFourDays)
  If WOY > 52 Then
    If DatePart(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then WOY = 1
  End If
End Function

Du skal værre opmærksom på at den føste uge i året i vores kalender er den uge som har min 4 dage.

Medions...

Den retter desvære kun fejlen der er i starten af året... ikke i slutningen...

Eagleeye...

kunne du forklare det lidt tydligere ???

Skal den der bare kastes skødeløst ind... hvad med ens dato ???

eagleeye...

Ja, eller med andre ord, den første uge i året, er den første uge i januar der includere Torsdag...

Functionen skal laves lidt om sådan her:


Function WOY (MyDate)
  WOY = DatePart("ww", MyDate, vbMonday, vbFirstFourDays)
  If WOY > 52 Then
    If DatePart("ww", MyDate+7, vbMonday, vbFirstFourDays) = 2 Then WOY = 1
  End If
End Function



Du skal ligge functionen ind i din kode et sted og i setdet for at skrive:

uge = DatePart("ww",#1/1/2002#)

Skriver du:
uge = WOY(#1/1/2002#)

Medions...

Never mind, det var mig der havde lavet en fejl der...

Nu tror jeg egentlig nok den er der...