Esta é uma função equivalente ao “IIf” utilizada no ASP.Net, através dela é possível economizar várias linhas de programação utilizando apenas uma única chamada.
'-----------------------------------------------------
'Funcao: IIf(ByVal Condicao, ByVal Valor1, ByVal Valor2)
'Sinopse: Função IIf que substitui o If por uma única
' chamada lógica
'Parametro(s):
' Condicao: Condição utilizada
' Valor1: Valor que será retornado caso a condição
' seja verdadeira
' Valor2: Valor que será retornado caso a condição
' seja falsa
'Retorno: Valor1 ou Valor2
'Autor: Gabriel Fróes - www.codigofonte.com.br
'-----------------------------------------------------
Function IIf(ByVal Condicao, ByVal Valor1, ByVal Valor2)
If Condicao Then IIf = Valor1 Else IIf = Valor2
End Function
