Har använt mig av [Gör om DATE till aktuell ålder.] för att räkna om ett datum till aktuell ålder.

Koden ser ut på detta vis:

<%

Function GetAge(ByVal vstrBirthDate)

lngYears = DateDiff("yyyy", vstrBirthDate, Now)

IF month(vstrBirthDate) >= month(now()) AND day(vstrBirthDate) > day(now()) then

lngYears = lngYears - 1

End if

GetAge = lngYears

End Function

%>


och jag skriver ut åldern så här:

<%=GetAge(rs("Age"))%>


Ett datum som t.ex. 1986-03-18 omvandlas korrekt till 16 år.
Däremot omvandlas t.ex. 1986-12-12 också till 16 år. Här borde det dock vara 15.


Nån som har en lösning?

Pröva att göra kod för följande.

Omvandla till dagar iställt för år.
Dela resultatet med 365.
Returnera heltalet.

Borde fungera

/Curta

Löste det på annat sätt.

Se [Omvandla datum till aktuell ålder]

Ännu en lösning...

<code>
MsgBox GetAge("1965-01-05")

Function GetAge(strAge)
GetAge = DateDiff("yyyy", strAge, DateAdd("d", 0 - (DatePart("y", strAge) - 1), Date))
End Function
</code>


/Janne