<%
'----------------------------------
' 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:
[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
Postar um comentário