Olá!
Gostaria de saber se é possível passar um vetor Date como parâmetro para uma função que espera Variant.
Pois esta dando o seguinte erro, "...era esperado matriz ou tipo definido pelo usuário."
Chamada da função BuscaVetor(VT_Feriado(), Format(now, "dd/mm/yyyy"), False)
Função:
Public Function BuscaVetor(Vetor() As Variant, valor As Variant, BiDimensional As Boolean, Optional ColPesq As Integer) As Integer
Dim Pos_Vetor As Integer
BuscaVetorTeste = -1
If valor = Null Then
BuscaVetorTeste = -2
Exit Function
End If
If BiDimensional = True Then
For Pos_Vetor = 0 To UBound(Vetor)
If valor = Vetor(Pos_Vetor, ColPesq) Then
BuscaVetorTeste = Pos_Vetor
Exit Function
End If
Next
Else
For Pos_Vetor = 0 To UBound(Vetor)
If valor = Vetor(Pos_Vetor) Then
BuscaVetorTeste = Pos_Vetor
Exit Function
End If
Next
End If
End Function
Agradeço desde já!