11. november 2001 - 13:05Der er
6 kommentarer og 1 løsning
Datoer i select menu - Men kun mandag-fredag
Jeg har nedenstående funktion til at lave en dropdown menu med en specificeret start- og slutdato og en dato der er valgt som default. Hvordan udelukker jeg at lørdage og søndage vises i menuen?
For i = startdato to slutdato if DateDiff(\"d\", i, aktivdato) = 0 Then Response.write \"<Option Selected value=\'\" & i &\"\'>\" & i &\"</option>\" & vbCrLf Else Response.write \"<Option value=\'\" & i &\"\'>\" & i &\"</option>\" & vbCrLf End if Next Response.write \"</select>\" & vbCrLf END Function
For i = startdato to slutdato if DateDiff(\"d\", i, aktivdato) = 0 Then If Weekday(i, firstdayofweek) <> 1 or 7 Then Response.write \"<Option Selected value=\'\" & i &\"\'>\" & i &\"</option>\" & vbCrLf End If Else Response.write \"<Option value=\'\" & i &\"\'>\" & i &\"</option>\" & vbCrLf End if Next Response.write \"</select>\" & vbCrLf END Function
For i = startdato to slutdato if( i <> verdiForLørdag AND i <> verdiForSøndag ) then if DateDiff(\"d\", i, aktivdato) = 0 Then Response.write \"<Option Selected value=\'\" & DKDato(i,\"#SQL_NOTIME\",\"DK\") &\"\'>\" & DKDato(i,\"#10\",\"DK\") &\"</option>\" Else Response.write \"<Option value=\'\" & DKdato(i,\"#SQL_NOTIME\",\"DK\") &\"\'>\" & DKDato(i,\"#10\",\"DK\") &\"</option>\" End if End if Next
For i = startdato to slutdato if (WeekDay(i) <> 1) AND (WeekDay(i) <> 7) then if DateDiff(\"d\", i, aktivdato) = 0 Then Response.write \"<Option Selected value=\'\" & i &\"\'>\" & i &\"</option>\" & vbCrLf Else Response.write \"<Option value=\'\" & i &\"\'>\" & i &\"</option>\" & vbCrLf End if end if Next Response.write \"</select>\" & vbCrLf END Function
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
