nationalstar
Becerro
- Desde
- 15 Nov 2009
- Mensajes
- 14
- Tema Autor
- #1
Muchas gracias ya solucione todo gracias
Sigue el vídeo a continuación para ver cómo instalar nuestro sitio como una aplicación web en tu pantalla de inicio.
Nota: Esta función puede no estar disponible en algunos navegadores.
Registrándote como bakuno podrás publicar, compartir y comunicarte en privado con otros bakuos :D
Regístrame ya!Mayor = Val(lstDatos.List(0))
Menor = Val(lstDatos.List(0))
For I = 0 To lstDatos.ListCount - 1
If Val(lstDatos.List(I)) > Mayor Then
Mayor = Val(lstDatos.List(I));
End If
If Val(lstDatos.List(I)) < Menor Then
Menor = Val(lstDatos.List(I));
End If
Next I
en tu caso : lo de buscar el mayor y menor seria algo asi.
en donde los valores de mayor y menor estan en las variables ' Mayor, Menor 'Código:Mayor = Val(lstDatos.List(0)) Menor = Val(lstDatos.List(0)) For I = 0 To lstDatos.ListCount - 1 If Val(lstDatos.List(0)) > Mayor Then Mayor = Val(lstDatos.List(0)); End If If Val(lstDatos.List(0)) < Menor Then Menor = Val(lstDatos.List(0)); End If Next I