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