Resgatando o Menor valor

[Ted k' 126]

Variáveis Var_NUMBER_01, Var_NUMBER_02, Var_NUMBER_03, Var_NUMBER_04 iram receber os valores, tratamento com a função Split

O Laço FOR indetifica dentro da variável Valor_DADOS o menor número em comparação ao valor da variável Menor_ para achar o menor valor

 

Script simples para ser vem adaptado

 

   1. <%  
   2. Var_NUMBER_01 = "433"  
   3. Var_NUMBER_02 = "11245"  
   4. Var_NUMBER_03 = "712"  
   5. Var_NUMBER_04 = "20455"  
   6.   
   7. Valor_DADOS = ""&Var_NUMBER_01&", "&Var_NUMBER_02&", "&Var_NUMBER_03&", "&Var_NUMBER_04&""  
   8. Valor_DADOS = Split(Valor_DADOS, ", ")  
   9.   
  10. Menor_ = 1000000  
  11.   
  12. For i = LBound(Valor_DADOS) To UBound(Valor_DADOS)  
  13.  If Int(Valor_DADOS(i)) < Int(Menor_) Then  
  14.   Menor_ = Valor_DADOS(i)  
  15.  End If  
  16. Next  
  17.   
  18. Response.Write "Menor Número: " & Menor_  
  19. %>

Dicas ou dúvidas relacionadas ao código postado, deixe seu comentário!

 

Fonte: Ted k'.BLOG

[hargon 64]

Boa jovem!!!! http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[Mário Monteiro 179]

Bom ted http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[Ted k' 126]

Vlw feios, estava sem nada pra fazer deitado na rede tomando uma água de côco hehehe!