Función para calificar una variable

Ahí les dejo otra función con múltiples aplicaciones

 

Public Function Calificar(calif As Double, pesos As Range, inferior As Range, superior As Range)

‘Función para calificar una variable desarrollada por Carlos Enrique Vázquez Moreno

‘Quito 20 / 8 / 2016

‘pesos es la calificación a asignarse

‘inferior es el límite inferior del rango
‘Superior es el límite superrior del rango
‘calif es el valor de la variable a calificar

Application.Volatile

‘Se declara variable auxiliar

Dim i As Integer

‘Se recore todo el rango de “pesos” usando un loops For

For i = 1 To pesos.Count

‘Se evalúa y califica usando la función Select case

Select Case calif
Case inferior(i) To superior(i)
Calificar = pesos(i)
End Select
Next i

End Function

Función para determinar si una placa es de un auto o de una moto

He desarrollado esta función para conocer si una placa es de un auto o de una moto.Sin embargo puede tener múltiples aplicaciones.

Public Function autoomoto(placa, carro, moto) As String

‘Función desarrollada por Carlos Enrique Vázquez Moreno

‘Quito 16/09/2016

‘Para conocer si una placa es de un auto o de una moto

Application.Volatile

‘Se declaran variables auxiliares

Dim r As Integer

Dim t As String

Dim f As String

‘Se estima el número de caracteres de la placa

r = Len(placa)

‘ Se define si los tres primeros caracteres de la placa son números

t = IsNumeric(Mid(placa, 1, 3)) ‘

Se define si los últimos caracteres de la placa son números

f = IsNumeric(Mid(placa, 4, r))

‘Se evalua si una placa es de un auto o de una moto

If r = 6 And t = False And f = True Then

autoomoto = carro

ElseIf r = 5 And t = False And f = True Then

autoomoto = moto

Else: r = 6 And t = False And f = False autoomoto = moto

End If

End Function

 

Espero sea útil