Funciones Mayor y Menor

 Principal Novedades Utilidades Código Enlaces Access Acerca de mí

     
 
Principal
Arriba

 

 

 

 

 

 

 

 

 

 

 

 

 

 Función fvMayor  Función fvMenor

Son respuesta viejas a preguntas frecuentes, que he expuesto varias veces en los grupos de noticias.

Seleccionar la mayor entre varias variables   fvMayor()

A menudo, especialmente trabajando con fechas, necesitamos obtener la mayor de dos o más variables y por eso es útil tener una función que las compare y nos devuelva el resultado. Si en una función tan sencilla utilizamos variables tipo Variant, podremos pasarle cualquier tipo de datos como argumento y la misma función nos vale para comparar fechas, números o cadenas de texto; si, además, en vez de un número fijo de parámetros utilizamos un ParamArray, podemos comparar un número indeterminado de variables. Las siguientes expresiones de ejemplo son válidas:

Dim FechaMayor as Date, NumeroMayor as Long, CadenaMayor as String

FechaMayor = fvMayor (#2005/31/12#, #2004/01/02#)

FechaMayor = fvMayor (Fecha1,Fecha2,Fecha3)

NumeroMayor = fvMayor (1,7,81,25,11,2,5)

NumeroMayor = fvMayor (Numero1,Numero2)

CadenaMayor = fvMayor ("Bengoechea","Ibaceta")

CadenaMayor = fvMayor (Apellido1, Apellido2,Apellido3)

'---------------------------------------------------------------------------------------
' Procedure : fvMayor
' DateTime  : 04/12/05 11:33
' Author    : José Bengoechea Ibaceta (Chea)
' Purpose   : Obtener el valor mayor de una serie de variables que se pasen como argumento
'           : Al utilizar Variant, le podemos pasar variables de cualquier tipo, sea numérico
'           : de texto o de fecha.
'            Estás autorizado a utilizar este código dentro de una aplicación
'            siempre que esta nota de autor permanezca inalterada.
'            En el caso de querer publicarlo en una página Web, por favor,
'            contactar con el autor en
'
'                 UA@bengoechea.net
'---------------------------------------------------------------------------------------
Public Function fvMayor(ParamArray Variables() As Variant) As Variant
Dim V As Variant
fvMayor = Nz(Variables(0))
For Each V In Variables
    If Nz(V) > fvMayor Then
        fvMayor = V
    End If
Next
End Function
 

 

Seleccionar la menor entre varias variables   fvMenor()

A menudo, especialmente trabajando con fechas, necesitamos obtener el menor de dos o más variables y por eso es útil tener una función que las compare y nos devuelva el resultado. Si en una función tan sencilla utilizamos variables tipo Variant, podremos pasarle cualquier tipo de datos como argumento y la misma función nos vale para comparar fechas, números o cadenas de texto; si, además, en vez de un número fijo de parámetros utilizamos un ParamArray, podemos comparar un número indeterminado de variables. Las siguientes expresiones de ejemplo son válidas:

Dim FechaMenor as Date, NumeroMenor as Long, CadenaMenorr as String

FechaMenor = fvMenor (#2005/31/12#, #2004/01/02#)

FechaMenor = fvMenor (Fecha1,Fecha2,Fecha3)

NumeroMenor = fvMenor (1,7,81,25,11,2,5)

NumeroMenor = fvMenor (Numero1,Numero2)

CadenaMenor = fvMenor ("Bengoechea","Ibaceta")

CadenaMenor = fvMenor (Apellido1, Apellido2,Apellido3)

'---------------------------------------------------------------------------------------
' Procedure : fvMenor
' DateTime  : 04/12/05 11:32
' Author    : José Bengoechea Ibaceta (Chea)
' Purpose   : Obtener el valor menor de una serie de variables que se pasen como argumento
'           : Al utilizar Variant, le modemos pasar variables de cualquier tipo, sea numérico
'           : de texto o de fecha.
'            Estás autorizado a utilizar este código dentro de una aplicación
'            siempre que esta nota de autor permanezca inalterada.
'            En el caso de querer publicarlo en una página Web, por favor,
'            contactar con el autor en
'
'                 UA@bengoechea.net
'---------------------------------------------------------------------------------------
Public Function fvMenor(ParamArray Variables() As Variant) As Variant
Dim V As Variant
fvMenor = Nz(Variables(0))
For Each V In Variables
    If Nz(V) < fvMenor Then
        fvMenor = V
    End If
Next
End Function