01/02/1983 IdadeAtual= 20 anos, 5 meses e 12 dias?

[[SERGIO] 0]

Tenho a Data de nascimento e gostaria de saber como faço para escrever na tela a Idade Atual exemplo:(01/02/1983)Idade: 20 anos, 5 meses e 13 dias. Ou se nasceu este ano:(01/02/2003)Idade: 5 meses e 13 dias. Ou se nasceu neste mês:(01/07/2003)Idade: 13 dias.Desde já agradeçoa atenção de todos.=o)[]'sSergio

[nostrinkes 0]

não sei se tem como assim direto dia mes e ano,, mais se voce separa-se e funçao day() .....mes...ano .... estaria com numero distintos ....então faria a subtração...anovelho=.............anonovo=..............tenta assim: soma= eval(anovelho-anonovo)response.write soma

[Salgado 4]

Bem amigo tem o dateDiff

DateDiff("m", Antes, Depois)

, ele traz o intervalo entre datas em:

yyyy-Year

q-Quarter

m-Month

y-Day of year

d-Day

w-Weekday

ww-Week of year

h-Hour

n-Minute

s-Second

É só você montar um aexpressão mais abrangente, que você terá o que você quer.

 

 

Valeu?

[grustyn 0]

A data q você vai utilizar esta no formato date???ou ta como string????

[Crazy Navigator 0]

Talvez esse script resolva:

 

<%datanasc = request.form("datanasc")diaatu = day(date)mesatu = month(date)anoatu = year(date)dianasc = day(datanasc)mesnasc = month(datanasc)anonasc = year(datanasc)dataatu = dianasc & "/" & mesnasc & "/" & anoatuif diaatu > dianasc then   dia = diaatu - dianascelse   dia = dianasc - diaatuend ifdia1 = int(dia - int(dia/30)*30)if (mesatu > mesnasc) then   mes = mesatu - mesnascelse   mes = 12-(mesnasc - mesatu)end ifif (mesatu < mesnasc) then   ano = DateDiff("yyyy", datanasc, date)-1else   ano = DateDiff("yyyy", datanasc, date)end if   response.write "Você tem: " & ano & " anos, " & mes & " meses e " & dia1 & " dias."%>

Abraços,

[mebkocznski 0]

CAMPO = Qtde de Anos

 

'########################################################'Data....: 26/12/2001'By......: Marcelo Eduardo Barcellos Kopczynski'Função..: Calcula idade devolvendo 'Abs.: A Funcão utiliza no CAMPO uma divisão'Dias / 365, o resto é utilizado para calcular a idade'nArray(0) 'Anos'nArray(1) 'Meses'nArray(2) 'Dias'#######################################################Function Calcula_Idade_Perfeita(Campo)TotalDias = Ccur(Campo) * 365Anos = TotalDias / 365Meses = (TotalDias Mod 365) / 30Dias = (TotalDias Mod 365) Mod 30TotalMeses = TotalDias / 30Dim nArray(3)	nArray(0) = Fix(Anos)	nArray(1) = Fix(Meses)	nArray(2) = Fix(Dias)	nArray(3) = FormatNumber(TotalMeses,2)Calcula_Idade_Perfeita = nArrayEnd Function