convAge - Retunera ålder från födelsedatum

1 svar · 1 388 visningar · startad av Pace 27 feb. 2002

PaceMedlem sedan juni 20019 024 inlägg

Frågan27 feb. 2002 09:18#1

convAge - Retunerar åldern för en person genom dennes födelsedatum (i formatet YYYY-MM-DD).

Exempel:

Response.Write "Du är " & convAge("1976-03-12") & " år gammal."

Function convAge(DateOfBirth)
	If isDate(DateOfBirth) Then
		convAge = DateDiff("yyyy", DateOfBirth, Date) + (DateSerial(Year(Date), Month(DateOfBirth), Day(DateOfBirth)) > Date)
	End If
End Function

jboy_87Medlem sedan aug. 20011 099 inlägg

7 juni 2002 08:40#2

<%
newage = DateDiff ("d", rs("Fodd"), Now)
newage = newage - (newage Mod 365)
newage = newage / 365
response.write newage
%>

266 ms totalt · 4 externa anrop · v20260731065814-full.2f471f9e

130 ms — deklarationer (db)

0 ms — hämta statistik (cache)

134 ms — hämta tråd, inlägg och bilagor (db)

129 ms — ändringar (db)