Aryyer

Håller på o grejjar med en två dimad arry. Ska nu plocka ut det största datumet men får ut det näst största datumet :/

	StackArry = Split(strSession,";")

	For i = 0 To Ubound(StackArry)
	If Not StackArry(i) = "" then
	     Datum = Left(StackArry(i),10)
	     cell = Right(StackArry(i),1)
	
	     Max = "1000-10-10"
	     If Cstr(Cell) = Cstr(TaskCode) Then
	         Varde = Datum
	         If Cdate(Datum) > Cdate(Max) Then
	             Max = Datum
	         End If
	     End If
	End If
	Next

StackArry = Split(strSession,";")

Max = "1000-10-10"
For i = 0 To Ubound(StackArry)
	If Not StackArry(i) = "" then
	     Datum = Left(StackArry(i),10)
	     cell = Right(StackArry(i),1)
	     If Cstr(Cell) = Cstr(TaskCode) Then
	         Varde = Datum
	         If Cdate(Datum) > Cdate(Max) Then
	             Max = Datum
	         End If
	     End If
	End If
Next

StackArry = Split(strSession,";")

Max = #1900-01-01#
For i = 0 To Ubound(StackArry)
	If Not StackArry(i) = "" then
		Cell = Right(StackArry(i),1)
		If Cell = CStr(TaskCode) Then
			Datum = CDate(Left(StackArry(i), 10))
			If Datum > Max Then Max = Datum
		End If
	End If
Next

Det va ett ganska dumt fel :r

Nu funkar maxvärdet! Tack. Men har gjort likadant åt andra hållet fast det är bara maxvärdet som funkar :/

StackArry = "2005-04-23^A;2005-04-30^A;2005-05-07^A;2005-05-14^A;2005-05-21^A;2005-06-04^A;2005-06-11^A;2005-06-18^A;2005-06-25^A;"
		StackArry = Split(StackArry,";")

		MaxV = #1900-01-01#
		MinV = #4000-01-01#
		For i = 0 To Ubound(StackArry)
		If Not StackArry(i) = "" then
			cell = Right(StackArry(i),1)
			If Cstr(Cell) = Cstr(TaskCode) Then
				Datum = Left(StackArry(i),10)
				If Datum > MaxV Then MaxV = Datum
				If Datum < MinV Then MinV = Datum
			End If
		End If
		Next

Min: 4000-01-01 Max: 2005-06-25

Det funkade när jag gjorde om dom till datum...

If Cdate(Datum) < Cdate(MinV) Then MinV = Datum