Array igen

Andvänder samma array men ska ta redapå högsta och lägsta värdet. Ibland funkar det , ibland inte :/

Exempel:

'---- Söker Högsta o lägsta datumet ----
	IStr = InStr(Session("strSessionDatum"), "^")
	If Not IStr = "0" Then

		StackArry = Split(Session("strSessionDatum"),";")

		MaxV = #1900-01-01#
		MinV = #2999-01-01#
		For i = 0 To Ubound(StackArry)
		If Not StackArry(i) = "" then
			cell = Right(StackArry(i),1)
			If Cell = Cstr(TaskCode) Then
				Datum = Left(StackArry(i),10)
				[B]Response.Write Datum & "=Datum<br>"[/B]
				If Cdate(Datum) > Cdate(MaxV) Then MaxV = Datum
				If Cdate(Datum) < Cdate(MinV) Then MinV = Datum
			End If
		Else
		 [B]response.write "oj<br>"[/B]
		End If
		Next
	End If
	
	Response.Write "[B]Arrayen[/B] : " & Session("strSessionDatum") & "<br>"
	Response.Write " [B]MinV[/B]=" & Minv & " [B]MaxV[/B]=" & MaxV

Resultat:
oj
Arrayen : 2005-04-23^A;2005-04-30^A;2005-05-07^A;
MinV=2999-01-01 MaxV=1900-01-01

Nu gör jag det en gång till. Med samma kod. men annat resultat:

2005-09-03=Datum
2005-09-10=Datum
2005-09-17=Datum
2005-09-24=Datum
2005-10-01=Datum
oj
Arrayen : 2005-09-03^A;2005-09-10^A;2005-09-17^A;2005-09-24^A;2005-10-01^A;
MinV=2005-09-03 MaxV=2005-10-01

Ingen som förstår det enkla felet här då?

Ingen som orkar?

Du kan ju slänga in värderna i ett recordset som du sedan tar ut det tidigaste och senaste datumet med.

Altså lägga dom i en databas?

Isåfall blir det för mycket att hantera och det skulle bli seegt tror jag. Det är bara ett tämprär lagring innan jag skickar det till databasen.

Du kan skapa ett record set utan databas.

Okej.
Fixade det ändå.
Va problem med Session'en

Men tack ändå

Mvh Jesper

Du kan inte jämföra ett tal med en sträng.

If Not IStr = "0" Then
ska vara
If Not IStr = 0 Then