Está dentro de un módulo, no pertenece a ninguna clase ni es llamada con ningún tipo "e"
Saludos
Código vb:
Ver original'ifNull(valor, defaultInteger)
'Si valor="" devuelve default, sino "valor"
'Funcion sobrecargada en funcion del tipo de salida: Integer, string, etc.
Public Function ifNull(ByVal valor As String, ByVal sinulo As Integer) As Integer
Dim valor1 As Integer
Try
If valor = "" Then
valor1 = sinulo
Else
valor1 = CInt(valor)
End If
Return valor1
Catch
Return sinulo
End Try
End Function
'ifNull(valor, defaultString)
Public Function ifNull(ByVal valor As String, ByVal sinulo As String) As String
Dim valor1 As String
Try
If valor = "" Then
valor1 = sinulo
Else
valor1 = CStr(valor)
End If
Return valor1
Catch
Return sinulo
End Try
End Function