Att

 

Prezados Amigos

 

      Eu fiz uma pergunta no fórum, e acho que não foi bem explicada, por isso volto a explicar a minha dúvida: Alguém como fazer para pegar o maior ou menor valor de algunas varáveis ? por Ex.:

Dim A,B,C,D,E,F AS Integer

A=10

B=5

C=15

D=25

E=45

F=1

Alguém conhece uma função no vb6 que pegue o Valor Menor, ou Valor Maior destas variáveis ?

 

Por Favor estou precisando desenrolar uma bronca e não estou conseguindo.

 

 

Fiz um exemplo, veja se serve.

Primeiro eu ordenei a lista depois peguei o primeiro e o último valor.

 

 

Option Explicit
Dim aArray() As Variant

Private Function fuOrdenar() As String
    Dim i As Integer, j As Integer
    Dim aArrayTemp As Variant
    Dim sTemp As String
   
    For i = LBound(aArray) To UBound(aArray)
        For j = LBound(aArray) To UBound(aArray)
            If CInt(aArray(i)) < CInt(aArray(j)) Then
                sTemp = aArray(i)
                aArray(i) = aArray(j)
                aArray(j) = sTemp
            End If
        Next j
    Next i
   
    sTemp = ""
    For Each aArrayTemp In aArray
        sTemp = sTemp & aArrayTemp & ","
    Next aArrayTemp
    fuOrdenar = Left(sTemp, Len(sTemp) - 1)
End Function

Private Sub Command1_Click()
    Dim sArray() As String
    aArray = Array(10, 5, 15, 25, 45, 1)
    sArray = Split(fuOrdenar, ",")
   
    MsgBox "Menor valor " & sArray(LBound(sArray))
    MsgBox "Maior valor " & sArray(UBound(sArray))
End Sub

Dependendo de como está o seu programa isso pode funcionar.

 

Num módulo declare assim:

 

Global lMaior as Long, lMenor as Long

Global Flag_MaiorMenor as Boolean

 

Public Sub S_MaiorMenor(ByVal variavel as Long)

  IF Flag_MaiorMenor Then

     IF variavel > lMaior Then

       lMaior = variavel

     ENDIF

     IF variavel < lMenor Then

       lMenor = variavel

     ENDIF

  ELSE

     Flag_MaiorMenor = true

  ENDIF

End Sub

 

No decorrer do seu programa:

A = 10

Call S_MaiorMenor(A)

B = 5

Call S_MaiorMenor(B)

 

é só chamar a variável lMenor e lMaior para saber, naquele instante, quais são o menor e maior valor.

 

Espero que ajude...

 

at+

 

 

eu faria...

Dim A(N) as integer   ' N é a qtde de variaveis que vc vai usar no caso seria 6

dim menor as integer

dim maior as integer

 

public sub maiormenor()

menor=0

maior=0

for i= 1 to N  "não eskeça de substituir o N!

      if i= 1 then

          menor=A (i)

          maior=A(i)

       else

          if menor> A(i) then

             menor= A(i)

          else

         endif

         if maior < A(i) then

             maior=A(i)

         else

         endif

next i

end sub