Ir para conteúdo
Fórum Script Brasil
  • 0

Código Que Calcula Idade.


ratocuiara

Pergunta

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.

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

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")) %>

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...