Hallå alla!!

Nu har jag kört fast igen....? Hur ska jag bära mig åt för att sluttiden i denna funktion alltid ska bli tiden efter starttiden?? Tanken är att man inte ska kunna styra sluttiden, i slutänden.
<code>
Function SetTimeSelect(ByVal dIN, ByVal bStart)

Dim aryT, sRet, I, sT

aryT = TimeArray
If bStart Then
sRet = "<SELECT NAME='StartTid'>"
Else
sRet = "<SELECT NAME='SlutTid'>"
End If
sRet=sRet & "<OPTION VALUE='0'>-Välj-"
For I = 0 to UBound(aryT)
sT = FormatTimeDisplay(aryT(I))
If DateDiff("n",dIN,aryT(I)) <= 0 And _
DateDiff("n",dIN,DateAdd("n",cIncrement,aryT(I))) > 0 Then
sRet=sRet & "<OPTION VALUE='" & sT & "' SELECTED>" & sT
Else
sRet=sRet & "<OPTION VALUE='" & sT & "'>" & sT
End If
Next
sRet=sRet & "</SELECT>"

SetTimeSelect = sRet

Erase aryT

End Function
</code>

Vad är timeArray? cIncrement??

Vad vill du uppnå?

/Janne

Inte riktigt säker på vad du är ut efter. Men kanske detta kan vara till nån hjälp.

<code>
Sub StartTidSelect(ByVal dStartTid)
Dim aryT
Dim I
Dim sT

aryT = TimeArray
Response.Write "<SELECT NAME='StartTid'>"
Response.Write "<OPTION VALUE='0'>-Välj-</OPTION>"

I = 0
Do Until I > UBound(aryT)
sT = FormatTimeDisplay(aryT(I))
If aryT(I) = dStartTid Then
Response.Write "<OPTION VALUE='" & sT & "' SELECTED>" & sT & "</OPTION>"
Exit Do
Else
Response.Write "<OPTION VALUE='" & sT & "'>" & sT & "</OPTION>"
End If
I = I + 1
Loop
Do Until I > UBound(aryT)
sT = FormatTimeDisplay(aryT(I))
Response.Write "<OPTION VALUE='" & sT & "'>" & sT & "</OPTION>"
I = I + 1
Loop
Response.Write "</SELECT>"
End Sub


Sub SlutTidSelect(ByVal dStartTid, ByVal dSlutTid)
Dim aryT
Dim I
Dim sT

aryT = TimeArray
Response.Write "<SELECT NAME='SlutTid'>"
Response.Write "<OPTION VALUE='0'>-Välj-</OPTION>"
I = 0
If dSlutTid > dStartTid Then
Do Until I > UBound(aryT)
sT = FormatTimeDisplay(aryT(I))
If aryT(I) = dSlutTid Then
Response.Write "<OPTION VALUE='" & sT & "' SELECTED>" & sT & "</OPTION>"
Exit Do
Else
Response.Write "<OPTION VALUE='" & sT & "'>" & sT & "</OPTION>"
End If
I = I + 1
Loop
End If
Do Until I > UBound(aryT)
sT = FormatTimeDisplay(aryT(I))
Response.Write "<OPTION VALUE='" & sT & "'>" & sT & "</OPTION>"
I = I + 1
Next
Response.Write "</SELECT>"
End Sub
</code>