Convertir datos entre diferentes formatos

Se trata de una función, a la que le enviamos cualquier tipo de dato y nos lo devuelve convertido al que queramos, según el indicador que reciba.

Public Function ValidarCampo(Campo As Variant, I As Integer) As Variant
    'SI VIENE VACÍO O CON NULO
    If Campo = "" Or IsNull(Campo) Then
        ValidarCampo = ""
    Else
        Select Case I   'PARA DEVOLVER EL TIPO DE CONVERSION
            Case 1 'CONVERSIÓN A INTEGER
                ValidarCampo = CInt(Campo)
            Case 2 'CONVERSIÓN A LONG
                ValidarCampo = CLng(Campo)
            Case 3 'CONVERSIÓN A DOUBLE
                ValidarCampo = CDbl(Campo)
            Case 4 'CONVERSIÓN A SINGLE
                ValidarCampo = CSng(Campo)
            Case 5 'CONVERSIÓN A FECHA
                ValidarCampo = CDate(Campo)
            Case 6 'CONVERSIÓN A CADENA
                ValidarCampo = CStr(Campo)
        End Select
    End If
End Function
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 )

Google+ photo

Estás comentando usando tu cuenta de Google+. 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 )

Conectando a %s