Udregne alder automatisk

Noget i denne stil (ikke testet):

<%
birth = "09-05-1979"
aar = datediff("yyyy",birth,date)
temp = dateadd("yyyy",aar,birth)
if datediff("d",temp,birth)<0 then aar = aar - 1
response.write aar
%>

Bruger selv denne funktion til det samme, som også giver antal måneder frem til 8 år:

Function CalculateYears(sDate)
Dim nMaaneder, nYears, sReturnVal
nMaaneder = Int(DateDiff("m", DateValue(sDate), Date, Now))
nYears = int(nMaaneder/12)
if nYears = 0 then
        CalculateYears = CStr(nMaaneder - (nYears * 12)) + " mnd."    
else
        CalculateYears = Cstr(nYears) + " år"
    If month(sDate) <> month(Now) or day(sDate) <> day(now) then
            If nYears < 8 then CalculateYears = CalculateYears + " og "  + CStr(nMaaneder - (nYears * 12)) + " mnd."
            If nYears > 20 then CalculateYears = ""
    Else
            If nYears <= 20 then
                CalculateYears = CalculateYears + " i dag!! <IMG SRC='images/Flag_dk1.gif' WIDTH='24' HEIGHT='16' BORDER='0' ALT='Dansk flag'>"
            Else
                CalculateYears = "- Fødselsdag i dag!! <IMG SRC='images/Flag_dk1.gif' WIDTH='24' HEIGHT='16' BORDER='0' ALT='Dansk flag'>"
            End If
    End If
end if
End Function

Der var lige en fejl i mit script :o)

birth = "01-01-1979"
aar = datediff("yyyy",birth,date)
temp = dateadd("yyyy",aar,birth)
Response.write birth
if datediff("d",temp,date)<0 then aar = aar - 1
response.write aar

Lidt forklaring til scriptet.
Scriptet bruges bl.a. til at sette et flagg ved siden af alderen (skal så legge et bilde med navnet Flag_dk1.gif i en undermapper med navn images) , hvids der er fødselsdag. Samtidig vises alter som år og måndere frem til 8 år, og alder vises ikke over 20 år. Det kan selvfølgelig tilpasses som ønsket.

HTML-kode hvor scriptet bliver brugt:
<br>Barn1xxxxxxxx - <%Response.Write(CalculateYears("2003-11-01"))%>
<br>Barn2xxxxxxxx - <%Response.Write(CalculateYears("2000-09-01"))%>

lidt ala fennec's, tidligere lavet af arne v

<%
d = "13-02-1986"
agey = DateDiff("yyyy", d, Now())
If DatePart("y", d) > DatePart("y", Now()) Then
  agey = agey - 1
End If
Response.Write CStr(agey)
%>

Den nederste CPUFAN hvorfor skriver den ingenting. Siden er bare blank, skal man skrive yderligere end kode.

i min browser skriver den

18

har du et link?

http://www.domind.dk/test.htm

øhm,
du skal gemme det som en asp fil:

test.asp

OK, og der hvor jeg sætte koden ind, der angiver den alderen? Skriv som svar

<%
d = "13-02-1986" ' skriv fødselsdagen her
agey = DateDiff("yyyy", d, Now())
If DatePart("y", d) > DatePart("y", Now()) Then
  agey = agey - 1
End If
Response.Write CStr(agey)
%>

og sæt koden ind der hvor du vil have alderen skrevet,

eller endnu bedre:

sæt dette i toppen af siden:

<%
session.lcid 0 1030
d = "13-02-1986" ' indsæt fødseldagen her
agey = DateDiff("yyyy", d, Now())
If DatePart("y", d) > DatePart("y", Now()) Then
  agey = agey - 1
End If
'Response.Write CStr(agey)
alder = Cstr(agey)
%>

og så der hvor du vil have alderen sætter du blot dette ind:

<%=alder%>