Hur får man fram veckonummer för ett viss datum?

20 svar · 630 visningar · startad av mattiasnordin 5 maj 2003 · sida 2 av 2

Frågan, av mattiasnordin 5 maj 2003

Labbar med datum och behöver få fram vilken vecka ett visst datum tillhör. Är det någon som kan hjälpa mig på rätt spår?

Läs frågan i sin helhet →

nkrantzMedlem sedan apr. 2002830 inlägg

22 maj 2003 09:08#21

Lösning:

Public Function convertPeriodToYYYYMMDD(period As Long) As Long ' YYYYWWD
Dim Current_date
Dim Current_weekday
Dim Current_year

Current_weekday = Right(period, 1) - 1
Current_year = Left(period, 4)
Current_date = Current_year & "-01-01"

Dim i

For i = DatePart("ww", Current_date, 2, 2) To Left(Right(period, 3), 2)
    Current_date = DateAdd("d", 1, Current_date)
    i = DatePart("ww", Current_date, 2, 2)
Next

Current_date = DateAdd("d", Current_weekday, Current_date)
' Om man tar current_date här så är det av formatet YYYY-MM-DD

Current_date = Format(Current_date, "yyyymmdd", vbMonday)

convertPeriodToYYYYMMDD = Current_date
End Function

/ Nippe