Uitschuiftekstveld vullen

Status
Niet open voor verdere reacties.

Rooie Darp

Gebruiker
Lid geworden
25 mrt 2007
Berichten
265
Ik wil een uitschuiftekstveld vullen met een paar dagen die in de buurt liggen van vandaag.

Dat doe ik zo:
Code:
<%
Dim dd
dd = DatePart("d",Now())
%>
Code:
<select name="datum_speel_dag" size="1"><option>Dag</option><option value="<%=dd-5%>"><%=dd-5%></option><option value="<%=dd-4%>"><%=dd-4%></option><option value="<%=dd-3%>"><%=dd-3%></option><option value="<%=dd-2%>"><%=dd-2%></option><option value="<%=dd-1%>"><%=dd-1%></option><option value="<%=dd%>"><%=dd%></option></select>

Dit werkt prima alleen niet de eerste 5 dagen van de maand want dan geeft hij -1 of -2 aan terwijl dit 31 of 30 moet zijn (dat er niet altijd 31 in de maand zit is niet zo erg).

Hoe kan ik de code veranderen dat hij toch 31 ed aangeeft?

Alvast bedankt
 
Ik heb het inmiddels opgelost:
Code:
<%
Dim yy
yy = DatePart("yyyy",Now())
%> 
<%
Dim dd, dda, ddb, ddc, ddd, dde, ddf
dd = DatePart("d",Now())
%> 
<% If dd = 1 Then 
dda = 1
ddb = 31
ddc = 30
ddd = 29
dde = 28
ddf = 27
%>
<% Else 
dda = dd
ddb = dd-1
ddc = dd-2
ddd = dd-3
dde = dd-4
ddf = dd-5
%>
<%End If %>

Code:
<option value="<%=ddf%>"><%=ddf%></option><option value="<%=dde%>"><%=dde%></option><option value="<%=ddd%>"><%=ddd%></option><option value="<%=ddc%>"><%=ddc%></option><option value="<%=ddb%>"><%=ddb%></option><option value="<%=dda%>"><%=dda%></option>

Bij de eerste code zitten natuurlijk nog 4 dagen bij maar dat spreekt voor zich.

Of het helemaal elegant is weet ik niet maar het werkt wel :cool:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan