Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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
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;
Galera, valeu a ajuda..
Resolvido.
Obrigado Gustavo e xanburzum!!
vc pode usar uma técnica denominada bubble-sort, e também vc pode jogar os valores num array e usar o LBound