Beregning af alder

Sådan?

<%
dateStr = "02-05/1972"
date1 = CDate(dateStr)

date2 = Date() ' I dag

' Alderen ved årets afslutning.
alder = DateDiff("yyyy", date1, date2)

' Justering efter om man har haft fødselsdag i år.
If (Month(date1) < Month(date2)) Or _
  (Month(date1) = Month(date2) And Day(date1) < Day(date2)) Then
    alder = alder - 1
End If

Response.Write(alder)
%>


Læs f.eks. mere om DateDiff() her:

http://www.w3schools.com/vbscript/func_datediff.asp

Eller endnu mere simpelt :-)

<%
Session.LCID = 1030

Function GetAge(Dateofbirth)
  GetAge = Year(Date) - Year(Dateofbirth)
  If DateDiff("s", Now, Replace(Dateofbirth, Year(Dateofbirth), Year(Date))) > 0 Then
      GetAge = GetAge - 1
  End If
End Function

Response.Write GetAge("02-05/1972")
%>

Super. jeg prøver.

Det virker fint.
Mange tak for hjælpen. :-)

Svar :^)

Er begge løsninger lige gode.(præcise)?

Og vil det også være muligt at gøre det modsat. feks. at finde alle der er 35år?

> Er begge løsninger lige gode.(præcise)?

Hvis præsition er det eneste kriterie - ja :^)

> Og vil det også være muligt at gøre det modsat. feks. at finde alle der er 35år?

Det må du nok lige præsisere lidt mere?

jo f.eks hvis jeg vil have fødselsdatoen vist i 3 formularer.
Dato - måned - år

Hvad har det med at gøre med at finde alle som er 35 år gamle?

Du kan få en dato opdelt i dens dele med noget i stil med dette:

dateStr = "02-05/1972"
date1 = CDate(dateStr)

Response.Write "d. " & Day(date1) & " / " & Month(date1) & " - " & Year(date1)

Jeg ville bruger formatet til at søge i databasen efter f.eks alle bruger der er yngre end 35år men det bruger nok en smule vanskeligt? så derfor prøver jeg på en anden måde, nemlig istedet at opdaterer et felt der hedder alder med den først viste kode.

Det er bare en ting. der opstår scriptfejl hvis der skrives 30-02/1980 da der jo kun er 29 dage i februar.
Kan der gøres noget ved det?

ASP/VBScript er ikke vildt acanceret mht. hvordan fejl kan håndteres.

Der er strort set kunne denne her:

On Error Resume Next

- som basalt set får ASP til at ignorere fejl og gå videre til næste linje.

Fint. det virker også godt nok med On Error Resume Next. :-)
svar = points

Svar :^)

Så mangler du bare at acceptere mit svar :^)

Accept.:-)