Design beslutning: array eller andet?
Jeg er ved at lave et skema, hvor man kan resevere tider.Det virker fint nok, men man kan kun resevere en tid. :(
Hvordan skal jeg lave det, så man kan resevere flere tider?
Skal jeg lave et array med dag, starttid og sluttid, og derefter plotte tiderne ind, eller findes der en bedre måde at gøre det på?
For god ordensskyld viser jeg lige hvordan jeg laver skemaet:
<%
starttid = 0
sluttid = 1
dag = 1
dagoptaget = 4
optidstart = 4
optidslut = 20
rows = optidslut - optidstart
dagsat = false
do
response.write "<tr bgcolor='#8B1A1A'>" & vbCrLf
response.write "<td align='center'><font size='1'>" & starttid & "-" & sluttid & "</font></td>" & vbCrLf
do while dag =< 7
if ((dagoptaget = dag) and ((starttid < optidstart) or (starttid >= optidslut))) then
valg = 1
else
if ((dagoptaget = dag) and (starttid = optidstart)) then
valg = 2
else
if ((dagoptaget = dag) and ((starttid > optidstart) or (starttid < optidslut))) then
valg = 3
else
if ((not dagoptaget = dag) and (starttid = optidstart)) then
valg = 4
else
if ((not dagoptaget = dag) and (not starttid = optidstart)) then
valg = 5
else
valg = 6
end if
end if
end if
end if
end if
select case valg
case 1
response.write "<td align='center'><font size='1'> - </font></td>" & vbCrLf
dag = dag + 1
case 2
response.write "<td align='center' rowspan='" & rows & "'><font size='1'>optaget . . . .</font></td>" & vbCrLf
dagsat = true
dag = dag + 1
case 3
dag = dag + 1
case 4
response.write "<td align='center'><font size='1'> - </font></td>" & vbCrLf
dag = dag + 1
case 5
response.write "<td align='center'><font size='1'> - </font></td>" & vbCrLf
dag = dag + 1
case 6
dag = dag + 1
end select
loop
dag = 1
dagsat = false
starttid = starttid + 1
sluttid = sluttid + 1
response.write "</tr>" & vbCrLf
loop while sluttid <> 25
%>
