Ugenr

jeg bruger flg funktion til at finde dato'en for mandagen i den uge jeg er i....den kan nok laves smartere


function finddato(ugenr)

    ugedag = 1
    dato = ugedag & "-01-" & year(now)
    dag1 = datepart("ww", dato, vbMonday, vbFirstFourDays)
    while dag1 <> 1
        ugedag = ugedag + 1
        dato = ugedag & "-01-" & year(now)
        dag1 = datepart("ww", dato, vbMonday, vbFirstFourDays)
    wend

    dato = clng(ugedag) & "-01-" & year(now)
    dato = DateAdd("d", 7*(ugenr-1), dato)
   
    finddato = dato
   
end function



med denne finder du ugenummer

datepart("ww", dato, vbMonday, vbFirstFourDays)

den første torsdag i januar ligger altid i uge 1, og der gælder at der altid mindst er 4 dage i januar med i uge 1

' ## Retrieving current weeknumber
dim Aar, AarsStart, AktUgeNr, UgeDag
Aar=Year(Date)
AarsStart=DateSerial(Aar,01,01)
Do
AarsStart=AarsStart+1
Loop Until WeekDay(AarsStart)=2
If Date<AarsStart And Aar=Year(AarsStart) Then
AktUgeNr=53
Else
AktUgeNr=Int((Date-Aarsstart)/7)+1
End If

Vittoriani: Det var da en smart måde at gøre det på, når man kan bruge elk's datepart("ww", dato, vbMonday, vbFirstFourDays) ...