Finde dato for en dag i en uge
Er der nogen der ved, hvordan man laver en funktion, der virker. Har prøvet at strikke noget sammen, jeg har googlet, men den virker ikke med rigtig dato for hele året.<%
Session.LCID = 1030
intYear = 2012
'bytWeek = 2
bytWeek = 41
dayQuery = "torsdag"
'Response.write dayQuery & "<br>"
Response.write WeekDate(bytWeek,intYear,dayQuery)
Function WeekDate(byval bWeek, byval iYear, byval idayname)
dtmDate = DateSerial(iYear,1,1)
dtmDateReturn = DateAdd("ww",bWeek,dtmDate)
iday0 = Replace(Replace(Replace(Replace(Replace(idayname,"mandag",1),"tirsdag",2),"onsdag",3),"torsdag",4),"fredag",5)
iday = Replace(Replace(Replace(Replace(iday0,"loerdag",6),"soendag",7),"lørdag",6),"søndag",7)
dtmDateReturn = DateAdd("d",iday-6,dtmDateReturn)
WeekDate = dtmDateReturn
End Function
%>