Código Que Calcula Idade.

[ratocuiara]

Olá pessoal, achei este código na net, fucei até aonde a minha capacidade de entendimento é capaz mas não consegui arrumar.

Ele não está mandando a idade corretamente, se a data de hoje for 08/02/2006 e a data de nascimento for 15/01/1976 ele envia 29 anos quando na verdade é 30. Mas caso a data do nascimento for 08/01/1976 ai ele reporta a idade corretamente. 30 anos.

 

<%

dim dataatual, datanascimento, n1, n2

function formatadata(data)

dd = day(data)

mm = month(data)

aa = year(data)

if len(dd) = 1 then dd = "0" & dd

if len(mm) = 1 then mm = "0" & mm

formatadata = cstr(dd & "/" & mm & "/" & aa)

end function

function idade(dataatual, datanascimento)

if (cint(mid(dataatual, 4, 2)))>=(cint(mid(datanascimento, 4, 2))) then

  if (cint(mid(dataatual, 1, 2)))>=(cint(mid(datanascimento, 1, 2))) then

  n1 = cint(mid(dataatual, 7, 4))

  n2 = cint(mid(datanascimento, 7, 4))

  idade = n1-n2

  else

  n1 = cint(mid(dataatual, 7, 4))

  n2 = cint(mid(datanascimento, 7, 4))

  idade = n1-n2-1

  end if

else

  n1 = cint(mid(dataatual, 7, 4))

  n2 = cint(mid(datanascimento, 7, 4))

  idade = n1-n2-1

end if

Response.Write idade

end function

call idade(formatadata(date),formatadata("15/01/1976"))

%>

Se alguém souber onde está o erro posta ai pra gente. valeu.

[ratocuiara]

Esquece parece que a data esta no formato mm/dd/yyyy.

[smez]

tenta usar esse código

<%
data1 = year(now)
data2 = year(rs("data"))
fdata = DateDiff("d", data2, data1)
response.write "<b>" & fdata & " </b>anos"
%>

[.Andreia.]

Eu uso esta função:

<%
Function Idades(Nasc) 
  Idades = Year(Now()) - Year(Nasc) 

  iData = Day(Nasc) &"/"& Month(Nasc) &"/"& Year(Date()) 
  If DateDiff("d", Date(), iData) > 0 Then Idades = Idades -1 
End Function
%>

Chamada da função:

<%= Idades(tab("data_nascimento")) %>

[ratocuiara]

Smez, valeu pela dica mais seu código calcula idade por ano ou seja quem naceu depis da data já está sendo considerado mais velho.

Andreia: gostei do seu código e vou usar brigadão.