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

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s