Datum från veckonummer och veckodag

OT: Har du testat svenskt tangentbord? ;)

Jag kör Firebird, och det där händer ibland. Jag ställer in rätt "character coding" ca 53 gånger varje dag, men den hoppar alltid tillbaka förr eller senare.

Denna funktion omvandlar ett veckonr till datum.
WeekNrToDate(VeckoNr,Årtal,DagNr)

Veckonr = Ditt veckonummer
Årtal = Det årtalet som det handlar om. Är det år som är nu kan man skriva Year(Date)
DagNr = Dag i veckan som du vill veta datumet på. måndag = 1, tisdag = 2 osv

<% 
Response.Write WeekNrToDate(4,2000,1) 

Function WeekNrToDate(varWeekNr,varYear,varDayNr) 
varWeekNrThisYear = DatePart("ww",Cdate(varYear&"-01-01"),2,2) 
If varWeekNrThisYear = 1 Then 
varDayAdd = 0-(DatePart("w",Cdate(varYear&"-01-01"),2,2)-1) 
Else 
varDayAdd = 8-DatePart("w",Cdate(varYear&"-01-01"),2,2) 
End If 
varDayAdd = (7*(varWeekNr-1))+varDayAdd+(varDayNr-1) 
WeekNrToDate = DateAdd("d",varDayAdd,Cdate((varYear&"-01-01"))) 
End Function 
%>

Tack för den SB! :)