udregning af alder

prøv denne -

<%= alder (rs("fodselsdag"))%>

sæt denne funktion nederst på din side -

<%function alder(dato)
<%if not dato = "" then
alder = year(now)-year(dato)
if Cint(month(now))<Cint(month(dato)) then
  alder=alder-1
elseif Cint(month(dato))=Cint(month(now)) and Cint(day(now))<Cint(day(dato)) then
  alder=alder-1
end if
end if
end function%>


<%= alder (rs("fodselsdag"))%>

hovsa! denne <%= alder (rs("fodselsdag"))%> skal seføli' kun stå et sted :)

så skriver den
Microsoft VBScript compilation error '800a0400'

Expected statement

/e/brugersys/bruger.asp, line 94

<% if not dato = "" then
^

<%function alder(dato)
if not dato = "" then
alder = year(now)-year(dato)
if Cint(month(now))<Cint(month(dato)) then
  alder=alder-1
elseif Cint(month(dato))=Cint(month(now)) and Cint(day(now))<Cint(day(dato)) then
  alder=alder-1
end if
end if
end function%>

prøv at fjerne <% der er da en for meget

nnå der har vi eksperten

fandt denne..

<%
birth = rs("fodselsdag")
aar = datediff("yyyy",birth,date)
temp = dateadd("yyyy",aar,birth)
if datediff("d",temp,birth)<0 then aar = aar - 1
%>

men takker, ligger du et svar

nej tak ingen point til mig - ;)

http://www.opfinderen.dk/sites/4/

lukker