IF en visual basic y tipo de datos

[lalatacorp]

Hola, mi pregunta es muy pero muy trivial, pero llevo facil 2 horas sin dar con la respuesta de algo trivial.


Como escribirian en Visual Basic la traduccion a lo siguiente que quiero hacer:

1.- Supongan que existe una variable llamada "variable1"

2.- "Si la variable es del tipo Entero entonces:.............. End if"


Yo lo he intentado asi, pero nada mas no me compila:

If typeof variable1 Is int32 Then


End if

Lo que me importa mas que nada es que precisamente intente comparar el tipo de dato de la variable, y si concuerda con un tipo (entero, string, etc) haga lo que esta dentro del if

Podria alguien ayudarme? ya tengo mi cabeza derritiendose de que esta trivialidad no la logro superar.

Gracias de antemano

[manixalex]

Hola. Te aconsejo que hagas un método independiente que te permita hacer este tipo de validación. Este sería el método;

Public Shared Function validateDBNullInt32(ByVal obj As Object) As Int32
Try
Return Convert.ToInt32(obj)
Catch ex As Exception
Return 0
End Try
End Function

Luego en el IF sencillamente preguntas.

If validateDBNullInt32(variable1) <> 0 Then.

Espero que te sea de ayuda.

[lalatacorp]

o sea que no hay algo asi como un "atributo" o "propiedad" de la variable que indique su tipo, sino que solo si truena la conversion "deducimos" que tipo de variable es.... pues si no hay atributos, tu respuesta resulta bastante util entonces, gracias. Aunque si me gustaria saber esta ultimo duda.

[manixalex]

Hola. La verdad no conozco. Te respondí porque ya pasé por tu caso, en ese entonces, más bien me las ingenié, además, el método es útil porque incluso te sirve para evitar hacer casting cuándo estás trayendo datos de Sql.

[lalatacorp]

Iniciado por manixalex

Hola. Te aconsejo que hagas un método independiente que te permita hacer este tipo de validación. Este sería el método;

Public Shared Function validateDBNullInt32(ByVal obj As Object) As Int32
Try
Return Convert.ToInt32(obj)
Catch ex As Exception
Return 0
End Try
End Function

Que raro... tu codigo se ve con sintaxis perfecta, mas sin embargo el visual basic de office 2010 me sigue pintando dedo con el error de "se esperaba fin de la instruccion" . O será que no puedo usar Try y catch en este visual basic? de verdad, si es que falta un "end algo" por ahi o el "exit try" (que esto ya lo intente, e igual me pide un end) no veo en donde.

Nota, esto solo paso cuando copio y pego exactamente ese codigo en el apartado de declaraciones de mi macro....

Por cierto, no me jalo con la palabra "Shared" asi que lo deje en Public Function ........