[Resolvido]Duvida no Calcula Idade

Relacionado com o exemplo:

http://maximoaccess.forumeiros.com/t283-calcula-idade


Após muita pesquisa, aproveitei o trabalho do JPaulo para uma consulta em que determina quantos dias faltam para terminar um prazo.
Mas agora estou com um problema. É que pretendo que conte também os dias que ultrapassa esse prazo e dá resultados malucos.
Obrigado

Option Compare Database

Public Function AnoMesDia(dtData1 As Date) As String
On Error GoTo AnoMesDia_Err


Dim sTmp As String
Dim nDMA As Long
Dim NewDate As Date
Dim sSngPlural As String
Dim dtData2 As Date


dtData2 = Now

' Bloco Ano ---------------------
' Calcula número inteiro de anos
nDMA = DateDiff("yyyy", dtData1, dtData2)
' Se Data1+nDMA>Data2, subtrai 1 ano
If DateAdd("yyyy", nDMA, dtData1) > dtData2 Then
nDMA = nDMA - 1
End If
sSngPlural = " ano, "
If nDMA > 1 Then sSngPlural = " anos, "
sTmp = nDMA & sSngPlural

' Bloco Mês ---------------------
' Nova data de referência
NewDate = DateAdd("yyyy", nDMA, dtData1)
nDMA = DateDiff("m", NewDate, dtData2)
' Se Data1+nDMA>Data2, subtrai 1 mês
If DateAdd("m", nDMA, NewDate) > dtData2 Then
nDMA = nDMA - 1
End If
sSngPlural = " mês e "
If nDMA > 1 Then sSngPlural = " meses e "
sTmp = sTmp & nDMA & sSngPlural

' Bloco Dia ---------------------
NewDate = DateAdd("m", nDMA, NewDate)
nDMA = DateDiff("d", NewDate, dtData2)
sSngPlural = " dia"
If nDMA > 1 Then sSngPlural = " dias"
sTmp = sTmp & nDMA & sSngPlural

' Valor final da função
AnoMesDia = sTmp

AnoMesDia_Fim:
Exit Function
AnoMesDia_Err:
MsgBox Err.Description
Resume AnoMesDia_Fim
End Function

Olá António;

Você não pode postar duvidas nas salas de Exemplos.

Continue o seu tópico nesta sala.

OK.
Muito obrigado.

Resolvido.