Com esta função é possível calcular a idade de alguém através da data de nascimento passada por parâmetro.
<% '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 'Chama a função, enviando a data de nascimento. 'Então é retornado a idade Response.Write(idade(cdate("08/1/1985"))) %>