Datoberegning udfra År - Ugenummer og Ugedag

Læg denne funktion i et modul. Herefter kan du spørge på den fra f.eks. en forespørgsel eller lign:

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

Du kander den således:

FindDato(2003, 46, 1)

Du skal altså bruge et nummer i stedet for at skrive f.eks. Mandag

Jeg kalder den med feltværdierne sådan i min form

=Besogsdato(Besøgsår,BesøgsUge,Ugedag) altså ud fra feltnavnene, men får fejl #Navn?

hvilken værdi har Ugedag? Er det værdien Mandag eller værdien 1 (jvf mit forrige indlæg)?

Felværdierne har Mandag som tekst

Så er du nødt til at lave din funktion lidt om:

Public Function Besogsdato(År As Integer, Uge As Byte, Ugedag As String) As Date
  Dim Dag as byte
  Select Case Ugedag
    Case "Mandag"
      Dag = 1
    Case "Tirsdag"
      Dag = 2
    Case "Onsdag"
      Dag = 3
    Case "Torsdag"
      Dag = 4
    Case "Fredag"
      Dag = 5
    Case "Lørdag"
      Dag = 6
    Case "Søndag"
      Dag = 7
End Select

  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

Så skulle den gerne virke...

Sorry...glemte lige at rette et sted:

Public Function Besogsdato(År As Integer, Uge As Byte, Ugedag As String) As Date
  Dim Dag as byte
  Select Case Ugedag
    Case "Mandag"
      Dag = 1
    Case "Tirsdag"
      Dag = 2
    Case "Onsdag"
      Dag = 3
    Case "Torsdag"
      Dag = 4
    Case "Fredag"
      Dag = 5
    Case "Lørdag"
      Dag = 6
    Case "Søndag"
      Dag = 7
End Select

  Besogsdato = 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

Jeg får stadig fejl, sikkert fordi "Uge" er et tekstfelt, kan jeg nemt omgå det ?

Prøv denne:

Public Function Besogsdato(År As Integer, Uge As String, Ugedag As String) As Date
  Dim Dag as byte
  Select Case Ugedag
    Case "Mandag"
      Dag = 1
    Case "Tirsdag"
      Dag = 2
    Case "Onsdag"
      Dag = 3
    Case "Torsdag"
      Dag = 4
    Case "Fredag"
      Dag = 5
    Case "Lørdag"
      Dag = 6
    Case "Søndag"
      Dag = 7
End Select

  Besogsdato = DateSerial(År, 1, val(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

Samme fejl - Måske jeg gør noget galt, jeg indsætter kaldet i kontrolelementkilde for feltet "besøgsdato" (datofelt) i formen som er baseret på en forespørgsel.

Det er mig der s n o r k s o v e r, din kommentar 16:47 virker helt efter bogen!!!
Tak for hjælpen.