1 reply to this topic

[nassaum]

Boa tarde senhores !

Seguinte, andei dando uma olhada no código que vossos colegas tinham postado sobre Calcular Idade, cheguei a testar porém me retorna erro quando se tenta converter uma variavel na primeira linha do IF.

Não sei se alguém chegou a usar este código e viu o erro também, se conseguirem dar uma mão aí ... Obrigado mais uma vez a todos.

Segue abaixo:

<%
function idade(dataatual, datanascimento)
response.write("dataatual: "&dataatual)
response.write("<br>datanascimento: "&datanascimento) 'me retorna 
teste=(cint(mid(dataatual, 4, 2))) 'isso está retornando 4/ por isso que não consegue converter

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
end function
%>
<%
Response.Write idade(Now, "22-08-1985")
%>

[gUiTaR_mAn]

função pra calcular idade... testada e aprovada...

Function Idade(data) 
  Idade = Year(Now()) - Year(data) 

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

abs;