---
title: "Aryyer"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/126464-aryyer"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Boorg"
published: "2005-04-15T12:58:26.000Z"
updated: "2005-04-22T09:45:04.000Z"
replies: 4
views: 292
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/126464-aryyer"
---

# Aryyer

## #1 — Boorg, 2005-04-15T12:58Z

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
```

Permalänk: https://www.webforum.nu/p/126464

## #2 — LarsG, 2005-04-15T13:50Z

```
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
```

Permalänk: https://www.webforum.nu/p/1592548

## #3 — Guffa, 2005-04-15T18:43Z

```
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
```

Permalänk: https://www.webforum.nu/p/1595696

## #4 — Boorg, 2005-04-22T06:12Z

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

Permalänk: https://www.webforum.nu/p/1598191

## #5 — Boorg, 2005-04-22T09:45Z

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

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

Permalänk: https://www.webforum.nu/p/1598248

---

Tråden på webben: https://www.webforum.nu/amne/asp/126464-aryyer