Uge problematik

Ikke mig bekendt, men jeg lytter lige med .....

er selv igang, jeg skal nok droppe løsningen her, såfremt det lykkes....

Den er ikke helt nem .......
Husk at UGE.NR funktionen i Excel ikke regner korrekt.

... i relation til de danske regler for beregning af ugenummer.

I know....men tak for oplysningen

Jeg kan ikke lige give dig alle dagene men jeg kan give dig mandag i ugen.
hvis ugenummeret er i A1 og Årstal i A2:
=DATO(A2;1;7*A1-3-UGEDAG(DATO(A2;;);3))

Her er en løsning - dog ikke helt optimal, men den virker....

Public iWeek As Integer, iTempWeek As Integer
Public iYear As Integer
Public dDate As String

Public Function FirstDayInWeek(ByVal iWeek As Integer, ByVal iYear As Integer)

'iWeek = InputBox("Indtast uge nummer", "Uge")
'iYear = InputBox("Indtast år", "År")

       
If iWeek <= 0 Or iWeek > 53 Then
  MsgBox "Ikke tilladt værdi - uge skal være mellem 1 og 53", vbInformation, "Fejl!"
  End
End If

'evt. validering på år

If iWeek > 26 Then
   
    dDate = Format(DateSerial(iYear, 3, 1), "dd-mm-yyyy")
   
    Do Until iTempWeek = iWeek
   
        dDate = DateAdd("d", 1, dDate)
        iTempWeek = DatePart("ww", dDate, vbMonday, vbFirstFourDays)
           
        If iTempWeek = 1 Then
            MsgBox "Uge: " & iWeek & " forekommer ikke i år: " & iYear, vbInformation, "Fejl!"
            End
        End If
       
    Loop

Else

    dDate = Format(DateSerial(iYear - 1, 12, 23), "dd-mm-yyyy")

    Do Until iTempWeek = iWeek
       
        dDate = DateAdd("d", 1, dDate)
        iTempWeek = DatePart("ww", dDate, vbMonday, vbFirstFourDays)
               
    Loop

End If

'MsgBox "Første dag i uge: " & iWeek & "- År: " & iYear & " er d. " & Format(dDate, "dd-mm-yyyy"), , "Resultat"

FirstDayInWeek = dDate

End Function

Lidt kortere:
Function FDIU(uge As Integer, år As Integer)
FDIU = Evaluate("DATE(" & år & ",1,7*" & uge & "-3-WEEKDAY(DATE(" & år & ",,),3))")
End Function

Hej Bak,

Cool løsning!!! - kan du evt. ved lejlighed lige forklare den....

I princippet er det bare den regnearksformel jeg sendte først, som jeg får VBA til at evaluere/beregne. jeg har så indsat år og uge.
Den 1. Date bruger året og 1 måned, lægger så ugen * 7 til, herfra trækkes så 3 og ugedagen for 30-11 året før. (Date(2002,,) giver altid 30-11).

Genialt bak. Den ryger direkte ind i guldkorns-samlingen :-)

Tak Jan. Udkommer du snart?? :-)

Ja, "beta-versionen" er klar, men jeg har lige været en tur i Venezuela så det har ligget stille lidt.