[Resolvido]Presiso da idade completa

https://dl.dropbox.com/u/90217826/ACSAGENTE.rar

Amigos presiso que neste bd apareça a idade completa do paciente no cadastro da familia,tipo 45 anos 3 meses e 25 dias.
Tentei fazer com uma exemplo aqui do forum mas não consigo adaptar neste bd.

Cumprimentos.

Olá Kaynan,

Utilize esta função do Carlos Machado da Info.

Function AnoMesDia() As String
' Fornece a idade em anos, meses e dias
On Error GoTo AnoMesDia_Err

Dim sTmp As String ' valor tmp da função
Dim nDMA As Long ' n Anos, Meses, Dias
Dim NewDate As Date ' data auxiliar de cálculo
Dim sSngPlural As String ' string (mês, meses), (ano, anos)
Dim dtData1 As Date ' data inicial de cálculo
Dim dtData2 As Date ' data final

If IsNull([DataNascimento]) Then 'Campo DataNascimento onde está a data de aniversário
Exit Function
End If

dtData1 = [DataNascimento]
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


Na caixa de texto Não Acoplada, insira a chamada à função na fonte de controle:

=AnoMesDia()

Ola,pessoal tentei adaptar no exemplo esse do mestre Avelino,mas não consigo especialmente neste exemplo,se puderem adaptar pra mim ficarei muito grato pois to tentando faz tempo.
Obrigado.

Kaynan, você deveria fazer pela sua mão mesmo, só assim aprende a ser independente dos outros e enriquece em conhecimentos;

Coloque num modulo a função do Grande Avelino;

E depois usa a função onde quiser:

Me.SeuCampo.Value = fncIdadeCompleta(Me.SeuCampoIdade.Value)




Public Function fncIdadeCompleta(DataNascimento As Date) As String
Dim Anosa As Byte, Meses, Dias As Byte, DataRef As Date, Resultado As Boolean

If DataNascimento > Date Or DataNascimento = 0 Then
fncIdadeCompleta = ""
Exit Function
End If

If DataNascimento = Date Then
fncIdadeCompleta = 0
Exit Function
End If

Anos = Int(DateDiff("d", DataNascimento, Date) / 365.25)

Resultado = (Format(DataNascimento, "mmdd") > Format(Date, "mmdd"))

DataRef = DateSerial(Year(Date) + Resultado, Format(DataNascimento, "mm"), Format(DataNascimento, "dd"))

Meses = DateDiff("m", DataRef, Date) + (Format(DataNascimento, "dd") > Format(Date, "dd"))

Resultado = (Format(DataNascimento, "dd") > Format(Date, "dd"))

DataRef = DateSerial(Year(Date), Format(Date, "mm") + Resultado, Format(DataNascimento, "dd"))
DataRef = IIf(Format(DataNascimento, "dd") <> Format(DataRef, "dd"), DataRef - Format(DataRef, "dd"), DataRef)

Dias = CDbl(Date) - CDbl(DataRef)

fncIdadeCompleta = IIf(Anos <= 1, IIf(Anos = 0, "", Anos & " ano "), Anos & " anos ") & _
IIf(Meses <= 1, IIf(Meses = 0, "", Meses & " mes "), Meses & " meses ") & _
IIf(Dias <= 1, IIf(Dias = 0, "", Dias & " dia "), Dias & " dias ")
End Function

Ola mestre JPaulo,em outros formularios eu ja fiz e deu certo,mas nesse que enviei não consigo,mesmo porque não fui eu quem fez,ja tentei mas....veja o porque.

Cumprimentos.

Ei amigos,alguém consegue resolver essa lida pra mim,ta complicado.

Veja no SQL da listbox, é o simples rapaz;

JPaulo é o seguinte,talvez eu não tenha espressado direito o que quero:neste bd tem um botão Cad:de Familias, clica nele e abre outro formulário,e é nesse formulario que quero que apareça a idade completa do paciente porque só aparece a primeira idade,e eu quero como fez na litbox.

É o simples, basta ver como fiz e fazer igual.

Bons estudos

JPAulo pode me chamar de cabeçudo e me puchar as orelhas mas neste subformulario não tem geito.

Um pitaquinho....


tire do modo folha de dados e passe para formulário continuo.

fui !

É, quem sabe sabe,agora vou descobrir como fez.
Obridago por tudo gente boa.
Bom fim de semana.

Valeu mesmo.