Criar Função UDF - Cálculo entre Datas

[jlvfranca]

Pessoal, bom dia.

Tenho uma fórmula que cálculo o tempo de serviço entre duas datas, mas quando a diferença dos dias forem superior a 14 dias, considero como 1 mês.
A fórmula abaixo vem me atendendo, mas gostaria de transformá-la em uma função UDF, poré não tenho conhecimento necessário em VBA para fazê-lo.

Segue abaixo a fórmula que venho utilizando.


B1(Data Admissão) = 16/12/1997
B2(Data Demissão) = 30/09/2011

B4 =IF(DATEDIF($B$1;$B$2;"MD")<14;DATEDIF($B$1;$B$2;"Y")+DATEDIF($B$1;$B$2;"YM")/12;DATEDIF($B$1;$B$2;"Y")+(DATEDIF($B$1;$B$2;"YM")+1)/12)

Resultado B4 = 13,8333

---------------------------------------------

Estou tentando conforme abaixo, mas não estou conseguindo.

Public Function dIFdATA(ByVal DATA1 As Range, ByVal DATA2 As Range)

If DateDiff("md", DATA1, DATA2) < 14 Then

dIFdATA = DateDiff("y", DATA1, DATA2) + DateDiff("ym", DATA1, DATA2) / 12
Else
dIFdATA = DateDiff("y", DATA1, DATA2) + (DateDiff("ym", DATA1, DATA2) + 1) / 12

End If
End Function