Conversão de numero para (ano mês e dia) resulta valores inesperados.

Boa tarde á todos, um bom final de semana!
Tenho 3 campos:
DataInicial (Data de admissão de um funcionário) contratado em 01/01/2010
DataFinal (Data de demissão de um funcionário) demitido em 01/01/2011
ServiçosAno (Tempo serviço do funcionário) resultado (1 ano 0 mês 0 dia). Resultado que preciso, você testa 100 vezes e retorna esse valor (1 ano 0 mês 0 dia), quando você menos espera ele retorna: (0 ano 11meses 30 dias). Gostaria que alguém do fórum me ajudasse, ficaria grato, segue o aplicativo em anexo.

Coloque o procedimento que está usando. Talvez consigamos analisar sem precisar baixar o bd.

Private Function CalculaPeriodo(Date1 As Date, Date2 As Date)
'Desenvolvido por João Rodrigues (JR)
'
'Data: Mai/1999

If Date1 > Date2 Then
MsgBox "Data Inicial não pode ser maior que Data Final!", vbExclamation, "Erro"
Exit Function
End If

Dim Anos, meses, dias
Dim iAnos As Double, iMeses As Double, Intervalo As Double

' O resultado da diferença está em Double.
Intervalo = Date2 - Date1

' Um ano tem exatamente 365,2425 dias, ou
' 365 dias, 5 horas, 49 minutos e 12 segundos.
' Ou aproximadamente 365,25 dias.
iAnos = Intervalo / 365.2425
Anos = Int(iAnos)
iMeses = (iAnos - Anos) * 12
meses = Int(iMeses)

dias = DateDiff("d", DateSerial(DatePart("yyyy", Date1) + Anos, DatePart("m", Date1) + meses, Day(Date1)), Date2)

Select Case dias
Case -1
dias = 30
meses = meses - 1
Case -2
dias = 29
meses = meses - 1
Case 30 Or 31
dias = 0
meses = meses + 1
End Select

If meses = 12 Then
meses = 0
Anos = Anos + 1
End If

Fim:
If Anos > 1 Then
Anos = Anos & " anos "
Else
Anos = Anos & " ano "
End If

If meses > 1 Then
meses = meses & " meses "
Else
meses = meses & " mês "
End If

If dias > 1 Then
dias = dias & " dias"
Else
dias = dias & " dia"
End If

CalculaPeriodo = Anos & meses & dias
End Function


Private Sub DataFinal_AfterUpdate()
On Error Resume Next
Dim Msg As String
If IsNull(DataInicial) Or DataInicial = "" Or IsNull(DataFinal) Or DataFinal = "" Then
Msg = "Digite uma data válida nos campos" & vbCrLf _
& "Data de Início e Data Término."
ElseIf DataInicial.Value > DataFinal.Value Then
Msg = "A Data Término deve ser posterior" _
& vbCrLf & "à Data de Início."
Else
ServiçoAno = CalculaPeriodo(DataInicial, DataFinal)
Exit Sub
End If
'Retorna a msg de erro.
MsgBox Msg, vbExclamation, "Erro"

End Sub

Private Sub DataInicial_AfterUpdate()
On Error Resume Next
Dim Msg As String
If IsNull(DataInicial) Or DataInicial = "" Or IsNull(DataFinal) Or DataFinal = "" Then
Msg = "Digite uma data válida nos campos" & vbCrLf _
& "Data de Início e Data Término."
ElseIf DataInicial.Value > DataFinal.Value Then
Msg = "A Data Término deve ser posterior" _
& vbCrLf & "à Data de Início."
Else
ServiçoAno = CalculaPeriodo(DataInicial, DataFinal)
Exit Sub
End If
'Retorna a msg de erro.
MsgBox Msg, vbExclamation, "Erro"
End Sub

Sabe Cliquio funciona normal, a hora que você menos espera trás esse resultado, que não desejo, quando insiro 01/01/2010 - 01/01/2011 = (1ano 0mês 0 dias)resultado pretendido.
ai vc executa o procedimento 100 vezes ta normal, derrepente surge o inesperado 0ano 11 meses 30dias, resultado indesejado...