formula do excel com datas... pra saber a idade

Question

pessoal tenho uma quest&atilde;o a resolver... tenho q fazer um calculo de datas pra saber a idade de uma pessoa... coloco o nascimento 12/07/2002... hj eh 01/12/2005 me retornou 1238 dias, como fa&ccedil;o pra virar digamos  2anos e 11 meses... ou 2 anos e 354 dias? parece uma coisa facil... mas n&atilde;o consigo fazer...

Answer

[color=#000099]Crie uma macro com o nome AnoMesDia copie e cole o c&oacute;digo abaixo, depois &eacute; s&oacute; colocar na c&eacute;lula algo como:

=AnoMesDia(a1;a2) ou =AnoMesDia(a1;b1) ou acessar pelo menu de fun&ccedil;&otilde;es > Personalizadas.

(Dica da Revista Info)


Copie e cole na macro: [/color]

' ---------------------------------------------------------
' Fun&ccedil;&atilde;o: AnoMesDia
' Obs:    A recep&ccedil;&atilde;o de Data1 e Data2 como vari&aacute;veis Date
'         tem a vantagem de permitir a aceita&ccedil;&atilde;o de datas
'         em qualquer formato reconhecido pelo Excel.
'         A desvantagem &eacute; qie, por exemplo, se Data1=26,
'         a fun&ccedil;&atilde;o aceita: 26 &eacute; o n&uacute;mero serial de
'         26/01/1900, e vai fazer o c&aacute;lculo nessa base.
'         Uma alternativa &eacute; trocar Data1 e Data2 para
'         vari&aacute;veis do tipo String e incluir na fun&ccedil;&atilde;o
'         testes de data.
' ---------------------------------------------------------
Function AnoMesDia(Data1 As Date, Data2 As Date) As String

On Error GoTo AnoMesDia_Err

  Dim sTmp As String          ' valor tmp da fun&ccedil;&atilde;o
  Dim nDMA As Long            ' n Anos, Meses, Dias
  Dim NewDate As Date         ' data auxiliar de c&aacute;lculo
  Dim sSngPlural As String    ' string (m&ecirc;s, meses), (ano, anos)
  
  ' Faz o swap de datas: ordena/ evita negativos
  If Data1 > Data2 Then
     NewDate = Data2
     Data2 = Data1
     Data1 = NewDate
  End If
  
  ' Bloco Ano
  ' Calcula n&uacute;mero inteiro de anos
  nDMA = DateDiff(yyyy, Data1, Data2)
  ' Se Data1+nDMA>Data2, subtrai 1
  If DateAdd(yyyy, nDMA, Data1) > Data2 Then
    nDMA = nDMA - 1
  End If
  sSngPlural =  ano, 
  If nDMA > 1 Then sSngPlural =  anos, 
  sTmp = nDMA & sSngPlural
  
  ' Bloco M&ecirc;s
  ' Nova data de refer&ecirc;ncia
  NewDate = DateAdd(yyyy, nDMA, Data1)
  nDMA = DateDiff(m, NewDate, Data2)
  If DateAdd(m, nDMA, NewDate) > Data2 Then
    nDMA = nDMA - 1
  End If
  sSngPlural =  m&ecirc;s e 
  If nDMA > 1 Then sSngPlural =  meses e 
  sTmp = sTmp & nDMA & sSngPlural
  
  ' Bloco Dia
  NewDate = DateAdd(m, nDMA, NewDate)
  nDMA = DateDiff(d, NewDate, Data2)
  sSngPlural =  dia
  If nDMA > 1 Then sSngPlural =  dias
  sTmp = sTmp & nDMA & sSngPlural
  
  ' Valor final da fun&ccedil;&atilde;o
  AnoMesDia = sTmp
  
AnoMesDia_Fim:
  Exit Function
AnoMesDia_Err:
  MsgBox Err.Description
  Resume AnoMesDia_Fim
End Function

Answer

A f&oacute;rmula ficou um pouco longa mas funciona.
Considere a c&eacute;lula D12 a data de nascimento.
=ANO(HOJE())-ANO(D12)-1+SE(DATA(1901;M&Ecirc;S(D12);DIA(D12))-DATA(1901;M&Ecirc;S(HOJE());DIA(HOJE()))>=0;1;0)

Feito!

Ferramentas

Mover Tópico