Finde datoen ud fra år/uge

læg denne funktion i et modul:
Public Function FindDato(År As Integer, Uge As Byte, Dag As Byte) As Date
  FindDato = DateSerial(År, 1, Uge * 7 + Choose(DatePart("w", DateSerial(År, 1, 1), vbMonday, vbFirstFourDays), Dag - 7, Dag - 8, Dag - 9, Dag - 10, Dag - 11, Dag - 7, Dag - 6))
End Function

Herefter kan du finde en given ugedag ved f.eks. at skrive:
FindDato(2004, 2, 1)

2004 er selvfølgelig året
2 er ugenr
1 er ugedag (mandag)

Herefter returneres 5-1-2004

Funktionen kan bruges overalt. F.eks. i forespørgsler eller i VBA-kode

Hej Thomas,

Det var lige hvad jeg stod og manglede, men du har den vel ikke til SQL også?

mener du til SQL server? Så NEJ.

Men hvis du bare vil bruge den i en SQL-sætning i Access, så kan du sagtens benytte selve udregningen direkte i en forespørgsel:

DateSerial(År, 1, Uge * 7 + Choose(DatePart("w", DateSerial(År, 1, 1), vbMonday, vbFirstFourDays), Dag - 7, Dag - 8, Dag - 9, Dag - 10, Dag - 11, Dag - 7, Dag - 6))

År, uge og dag skal blot være kendte felter i forespørgslen.

jeg har fået det til at virke i min front-end...