:)
Hej!
Har sökt runt lite efter en funktion som returnerar start- och slutdatum för en viss vecka...
Har hittat följande:
weekno = 18
y = 2005
firstday = y & "-01-01"
fweek = DatePart("ww", firstday, vbMonday, vbFirstFourDays)
if fweek > 1 then
startday = dateadd("d",8-weekday(firstday,vbmonday),firstday)
else
startday = dateadd("d",-6-weekday(firstday,vbmonday),firstday)
end if
startday = dateadd("ww",weekno,startday)
endday = dateadd("d",6,startday)
response.write "<br>"
response.write weekno
response.write "<br>"
response.write y
response.write "<br>"
response.write startday
response.write "<br>"
response.write endday
LarsG är upphovsmannen... ;)
Men det blir inte riktigt rätt....
Skriver jag in V18, 2005
Så blir startdatum:2005-05-09
och slutdatum: 2005-05-15
vilket är Vecka 19
Vad är det för fel???
Mvh
Henrik