Antal dage til fredag

<%
Dim CurrentDate, DaysToFriday
CurrentDate = Now()
Select Case(Weekday(CurrentDay))
Case 1: DaysToFriday = 5
Case 2: DaysToFriday = 4
Case 3: DaysToFriday = 3
Case 4: DaysToFriday = 2
Case 5: DaysToFriday = 1
Case 6: DaysToFriday = 0 ' It is Friday
Case 7: DaysToFriday = 6
End Select

Response.Write("Days left too friday: " & DaysToFriday);
%>

Er ikke lige så stiv i VbScript længere, så det skal nok lige pudses lidt til

Det skal lige siges at dette ikke er en dynamisk løsning da det kun kan bruges til at finde frem til den næste fredag

Eller sådan her:

Dato = Date
ugeDag=DatePart("w",dato)
if ugeDag = vbSaturday then
  AntalDage=6
else
  AntalDage=vbFriday-ugeDag
end if

Hey,

Tak for jeres feedback - den endelige løsning kom til at se sådan ud:

Select case(Weekday(Now,VbMonday))
case 1: DaysToTirsdag = 1
case 2: DaysToTirsdag = 0
case 3: DaysToTirsdag = 6
case 4: DaysToTirsdag = 5
case 5: DaysToTirsdag = 4
case 6: DaysToTirsdag = 3
case 7: DaysToTirsdag = 2
end select

- Magnus :-)