Hämta fram måndagen i rätt vecka

brw skrev:

Hej

jag behöver hjälp med en datumfunktion.

Jag har två värden.

År = (t ex 2004) och vecka = (t ex 14)

Jag har år och vecka från databasen och utifrån det behöver jag plocka fram fullständiga datumet (tex 2004-04-14) för måndagen på varje aktuell vecka om det går på något smidigt sätt?

Tacksam för svar

Du måste nog ge oss mer än 1 minut...

Jag råkade trycka på snabbsvar istället för redigera såg jag nu..

:)

Känns lurigt, men bara man listar ut vilken måndag som är först på året är det inga problem längre ;)

intFirstDay = DatePart( "W", DateSerial( [i]intYear[/i], 1, 1 ), vbMonday, vbFirstFourDays )

if( 1 = intFirstDay ) then

  dteFirstMonday = DateSerial( [i]intYear[/i], 1, 2 )

elseif( 2 < intFirstDay ) then

  dteFirstMonday = DateSerial( [i]intYear[/i], 1, 9 - intFirstDay )

else

  dteFirstMonday = DateSerial( [i]intYear[/i], 1, 1 )

end if

dteCurrentMonday = DateAdd( "d", [i]intWeek[/i] * 7, dteFirstMonday )

Nu hittade jag just på det här, men det känns som om det skulle kunna fungera. Det är ju bara att testa ;)