Calculando quantos anos a pessoa tem

[Gilberto Jr 26]

Eu uso esse código para verificar a data e quantos anos que a pessoa tem.

 

<%
'Função que vai calcular a idade
function idade(datanascimento)
ano_atual=year(date())'Extrai ano do atual
mes_atual=month(date())'Extrai mes atual
ano_niver=year(datanascimento)'Extrai ano do nascimento
mes_niver=month(datanascimento)'Extrai mês do nascimento
dif_ano=cint(ano_atual)-cint(ano_niver)'Faz a diferença dos anos
dif_mes=cint(mes_atual)-cint(mes_niver)'Faz a diferença dos meses
'Verifica se a diferença dos meses é negativa, 
'se for e pq ainda não fez aniversário
if (dif_mes<0) then
       idade=cint(dif_ano)-1
else
       idade=dif_ano
end if
end function
%>

<%
if idade(cdate(rsApostador("1987-03-30")))>=18 then
response.Write("Data Aceita")
elseif idade(cdate(rsApostador("1987-03-30")))<18 then
response.Write("Data Não aceita")
end if
%>

 

 

Abraço.

[Gilberto Jr 26]

Se vc for tentar usar essa parte

<%
if idade(cdate(rsApostador("1987-03-30")))>=18 then
response.Write("Data Aceita")
elseif idade(cdate(rsApostador("1987-03-30")))<18 then
response.Write("Data Não aceita")
end if
%>

esse código vai da erro. Use assim

<%
if idade(cdate("1987-03-30"))>=18 then
response.Write("Data Aceita")
elseif idade(cdate"1987-03-30"))<18 then
response.Write("Data Não aceita")
end if
%>

Abraço.

[M.Torres 1]

Se tu tens a data de nascimento da registro, não seria mais simples apenas fazer uma verificação com DateDiif?

 

If DateDiff("yyyy",DataNascimento,Now())>18 Then
   Response.write "Parabéns você é maior de idade!"
Else
   Response.write "Você não é maior de idade!"
End if

[Gilberto Jr 26]

Pode ser também. Mas eu uso aquele script acima por isso que eu postei.