Find samme ugedag året før

Du burde kunne køre en Dateadd på dir datofelt:

Udtryk6: DateAdd("yyyy";-1;[dato1])

Og derefter en NavnPåUgedag:

Udtryk7: NavnPåUgedag(Weekday([Udtryk6];2))

Der finder jeg vel ikke den rigtige ugedag ?

Eksempel : 

Dato i år          19-12-2007 ( onsdag ) skal sammenlignes med
Dato sidste år    20-12-2006 ( onsdag )

Så har jeg misforstået dit spørgsmål.

Det er ok :-)

Her er en skitse:

Private Sub Test_ÅretFør()
  Dim d As Date
  Dim u As Integer
 
  Debug.Print "-----------"
 
  d = Date
  u = Weekday(d, vbMonday)
  Debug.Print d, u, WeekdayName(u)

  d = ÅretFør(d)
  u = Weekday(d, vbMonday)
  Debug.Print d, u, WeekdayName(u)
 
End Sub

Function ÅretFør(d As Date) As Date
  Dim u1 As Integer
  Dim u2 As Integer
 
  u1 = Weekday(d, vbMonday)
 
  d = DateAdd("yyyy", -1, d)
  u2 = Weekday(d, vbMonday)
  Do Until u2 = u1
    d = d + 1
    u2 = Weekday(d, vbMonday)
  Loop
  ÅretFør = d
End Function

Top-dollar

Knap så Top-dollar alligevel 31-12-2006 konverteres til 01-01-2006 .....

Sorry ... det er korrekt konverteret :-)

Herligt. Takker for point  ;o)