Hvilken dato har søndagen i uge 34, 2004?

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

Svar: 22-8-2004

Format([Dato];"dddd") ???

Mucho grazi - prøver den lige lidt senere.

Jensen636->din funktion returnere da kun ugedagen skrevet med bogstaver...

Korrekt, men så kan man jo søge på ugedagen :o)

jensen, det var Dato jeg skulle finde .. afvent lige min test af thomasjepsens svar

Undskyld det tog lidt tid, men din rutine virker; jeg skal blot vænne mig til, at den også "virker" på "FindDato(2005, 53, 7)" selvom der kun er 52 uger i 2005. At lørdag og søndag i uge 53, år 2004 ligger i 2005 har jo ikke noget med dette at gøre, men det skal jeg -ligesom det offentlige- også lige vænne mig til.

Tak under alle omstændigheder - jeg synes, at dit svar tangerer til "genialt".

tak for de pæne ord :o)

jeg har ikke prøvet med uge 57, men hvis det virker, er det fordi Access' egen DateSerial accepterer uge 57...

Men under alle omstændigheder er det jo altid en god ide at lægge lidt fejlhåndtering ind.