FUNCAO EM VB PARA UTILIZAR NO EXCEL

MPISSOLATO 04/03/2013 23:10:21
#419911

Boa Noite, Caros

Tentei criar uma função em VB para utilizar no Excel, porem como nunca programei em VB estou apanhando um pouco, será que alguém poderia me auxiliar a fazer essa função rodar, pois a chamada no Excel eu consegui fazer mas creio eu que as linhas de códigos da função esta errado.


Att
Matheus

FUNÇÃO
----------------------------------------------------------------

Function FPROJECAO(ByVal data As Date, ByVal sTipo As String, ByVal sSal As Double) As Double
Dim mes As Double
Dim Percentuais(1 To 12, 10 To 11) As Double
Dim num1, num2 As Integer
Dim dataIni, dataFim As Date


Percentuais(9, 10) = 9.5
Percentuais(10, 10) = 8.67
Percentuais(11, 10) = 7.87
Percentuais(12, 10) = 7.05
Percentuais(1, 11) = 6.24
Percentuais(2, 11) = 5.44
Percentuais(3, 11) = 4.65
Percentuais(4, 11) = 3.86
Percentuais(5, 11) = 3.07
Percentuais(6, 11) = 2.3
Percentuais(7, 11) = 1.53
Percentuais(8, 11) = 0.76

data = Format(data, [Ô]dd/MM/yyyy[Ô])
dataIni = Format([Ô]01/09/2010[Ô], [Ô]dd/MM/yyyy[Ô])
dataFim = Format([Ô]31/08/2011[Ô], [Ô]dd/MM/yyyy[Ô])


num1 = Format(CStr(data), [Ô]MM[Ô])
num2 = Format(CStr(data), [Ô]YYYY[Ô])


If (data >= dataIni) And (data <= dataFim) And (sTipo = [Ô]S[Ô]) Then
FPROJECAO = (sSal * Percentuais(num1, num2) + sSal)
Else
FPROJECAO = 0
End If

End Function