Se alguém souber o código para calcular a idade de uma pessoa em anos, meses e dias a partir da data de nascimento por favor me diga.

eu uso essa função

 

Public Function CalcularIdade(DTNasc As Date) As String
   Dim Anos As Single, Meses As String, Dias As Single
   Dim UTDTNasc As Date
   If Month(DTNasc) <= Month(Date) Then
      If Month(DTNasc) <> Month(Date) Then
         UTDTNasc = Day(DTNasc) & "/" & Month(DTNasc) & "/" & Year(Format(Date, "dd/mm/yyyy"))
      Else
         If Day(DTNasc) <= Day(Date) Then
            UTDTNasc = Day(DTNasc) & "/" & Month(DTNasc) & "/" & Year(Format(Date, "dd/mm/yyyy"))
         Else
            GoTo NPassou
         End If
      End If
   Else
NPassou:
      UTDTNasc = Day(DTNasc) & "/" & Month(DTNasc) & "/" & Year(Format(Date, "dd/mm/yyyy")) - 1
   End If
   Anos = DateDiff("yyyy", DTNasc, UTDTNasc)
   Meses = DateDiff("m", UTDTNasc, Date)
   If Day(Date) < Day(UTDTNasc) Then
      Meses = Meses - 1
      Dias = DateDiff("d", DateAdd("m", -1, Day(DTNasc) & "/" & Month(Date) & "/" & Year(Format(Date, "dd/mm/yyyy"))), Date)
   ElseIf Day(Date) = Day(UTDTNasc) Then
      Dias = 0
   ElseIf Day(Date) > Day(UTDTNasc) Then
      Dias = DateDiff("d", Day(DTNasc) & "/" & Month(Date) & "/" & Year(Format(Date, "dd/mm/yyyy")), Date)
   End If
   CalcularIdade = Anos & " Ano(s) " & Meses & " Mês(es) " & Dias & " Dia(s)"
End Function

http://www.vbweb.com.br/dicas_visual.asp?Codigo=969&Classificacao=

http://www.vbweb.com.br/dicas_visual.asp?Codigo=2558&Classificacao=

http://www.vbweb.com.br/dicas_visual.asp?Codigo=2778&Classificacao=

como faço pra chamar essa funcao de calcular data no lost focus da um Text.text...

 

 

quero jogar o resultado da idade em: Label13.caption

a data de aniversario do paciente esta em: text8.text

 

se alguem poder me ajudar..

Vc coloca ela no evento lostfocus da text:

Private Sub Text1_LostFocus()

label1.caption = Calculo_Aniversário(text1)

End Sub

 

qq dúvida é só postar

 

t+