Datumproblem

1 svar · 188 visningar · startad av Asa 10 okt. 2003

AsaMedlem sedan dec. 20011 860 inlägg

Frågan10 okt. 2003 23:48#1

Har denna kod och vill nu att om det är ex lördag eller söndag så ska den visa nästa veckas Måndag-Fredag.

<select name="WeekDate" style="width:100%;">
  <%firstday = Year(Now) & "-" & Month(Now) & "-01"
  fweek = datepart("ww", now)
  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)
  For d = startday To startday + 4%>
    <option value="<%=d%>"><%=UCase(Left(WeekDayName(WeekDay(d)),1)) & LCase(Mid(WeekDayName(WeekDay(d)),2))%> (<%=day(d)%>/<%=Month(Now)%> )</option>
  <%Next%>
</select>

AsaMedlem sedan dec. 20011 860 inlägg

11 okt. 2003 00:34#2

Jag gjorde så här men det kanske inte är så bra men det funkade.

<select name="WeekDate" style="width:100%;">
  <%firstday = Year(Now) & "-" & Month(Now) & "-01"
  fweek = datepart("ww", now)
  If fweek > 1 Then
     startday = DateAdd("d",8-weekday(firstday,vbmonday),firstday)
  Else
     startday = DateAdd("d",-6-weekday(firstday,vbmonday),firstday)
  End if

[b]  If Weekday(now) = 1 Or Weekday(now) = 7 Then
    startday = dateadd("ww",weekno,startday)+7
  Else
    startday = dateadd("ww",weekno,startday)
  End If[/b]
  For d = startday To startday + 4%>
    <option value="<%=d%>"><%=UCase(Left(WeekDayName(WeekDay(d)),1)) & LCase(Mid(WeekDayName(WeekDay(d)),2))%> (<%=day(d)%>/<%=Month(Now)%> )</option>
  <%Next%>
</select>