Resgatar menor valor na string

[sibeliusj 0]

Galera, é o seguinte

 

tenho uma string assim "69,68,62,62,62,23,23,23,21,23,23,23,23,23,23,34,31,31,32,31,31,32,32,31,32,43,35,59,61,49,25,24,24,112,24,20,14,14,14,23,141,36,"

 

tenho que pegar o menor e maior valor dela.

 

Para o maior valor eu resolvi, peguei aqui mesmo uma função no fórum..

 

Agora para pegar o MENOR valor, não consegui.

 

Oq posso fazer?

 

Para pegar o maior valor eu usei:

 

                                If InStr(juntardiferenca,",") > 0 Then
				Matriz = split(juntardiferenca,",")
				MaiorValor = 0
				
				for i = 0 to ubound(Matriz) 				IF Matriz(i) <> "" AND IsNumeric(Matriz(i)) =TRUE THEN
				If CDbl(Matriz(i)) > CDbl(MaiorValor) then
				MaiorValor = Matriz(i)
				end if
				END IF
				next
				Else
				MaiorValor = "Dados Incompativeis"
				End If

 

 

[xanburzum 169]

vc pode usar uma técnica denominada bubble-sort, e também vc pode jogar os valores num array e usar o LBound

[Gustavo Emygdio Barboza 24]

sibelius fiz essa função ...

 

Function mm(Numeros, MaiorOuMenor)

vet = Split(Numeros, ",")

valor = vet(0)

For i = 0 To UBound(vet) - 1

If MaiorOuMenor = "maior" Then

If CInt(vet(i)) >= CInt(valor) Then valor = vet(i)

Else

If CInt(vet(i)) <= CInt(valor) Then valor = vet(i)

End If

Next

mm = valor

End Function

 

 

 

como usar:

 

valores="69,68,62,62,62,23,23,23,21,23,23,23,23,23,23,34,31,31,32,31,31,32,32,31,32,43,35,59,61,49,25,24,24,112,24,20,14,14,14,23,141,36,"

 

response.write "O Maior número é: " & mm(valores,"Maior")

 

response.write "O Menor número é: " & mm(valores,"Menor")

 

 

PS: não fiz tratamento nenhum sua rotina estava no caminho certo só coloquei para buscar o menor também!

att;

[sibeliusj 0]

Galera, valeu a ajuda..

 

Resolvido.

 

Obrigado Gustavo e xanburzum!!