sábado, 19 de julho de 2003

Idade

<%
'----------------------------------
' Função: Verifica Idade
' Autor: Régis Soares
' E-mail: regis_soares@hotmail.com
' Data De Criação: 19/07/2003
'----------------------------------
Function Idade(Data)
 Session.LCID = 1046
 If IsDate(Data) Then
  Data = FormatDateTime(Data,2)
  aData = Split(Data,"/")
  Data = aData(0)&"/"&aData(1)&"/"&Year(Now)
  Idade = Year(Now) - aData(2)
  If DateDiff("d",Date(),Data) > 0 Then Idade = Idade - 1
 Else
  Idade = "Data Inválida"
 End If
End Function
%>
<%= Idade("27/07/1983")%>



Esta matéria foi postada originalmente no ASP4Developers por Régis da Silva Soares, que na época era "Programador ASP e PHP". Hoje, vai saber...

1 comentários:

Marcio Lima (Guardião) disse...

[Enviado originalmente em 25/jul/2003 14:18:45]:

Function Idades(DataNasc)
Session.LCID = 1046
Dim iDate
IF IsDate(DataNasc) Then
Idades = Year(Now()) - Year(DataNasc)
iDate = Day(DataNasc) &"/"& Month(DataNasc) &"/"& Year(Date())
IF