Udregne alder

I pseduokoded:
Dags dato: idagaar,idagmaaned,idagdag
Født: aar,maaned,dag

  alder = idagaar-aar
  if idagmaaned<maaned OR (idagmaaned=maaned AND dag<idagdag) then
    alder=alder-1
  end if

Ja, det skulle være ret let.
Jeg svarer om et lille øjeblik.

prøv lige med response.write cint(now() - rs("føsda"))

//akj

nmh >> Hvorfor i alverden laver du det som et svar ??

//akj

Måske kan følgende bruge ?

alder = DateDiff("yyyy", Now, BirthDate)

dateDiff("d",dato1,dato2) skulle udregne differensen
dato2 - dato1 i dage.

dk_akj> Undskyld, jeg kom til at trykke galt.

Han skulle bruge alderen i aar, nmh.

Jeg trækker min kommentar tilbage -- datediff var ikke så avanceret som jeg troede.

Jyttes er det rigtige: datediff("yyyy",BirthDate,Now)
så er fortegnet rigtigt.
F.eks. vil datediff("yyyy","1992/10,13",Now)
give 11

Nix, den vil bare sige at personen fylder X år i indeværende kalenderår.

det er irik pseudokode der er rigtig. (igen.....)

//akj

Nemlig, dk_akj. Fx giver

  datediff("yyyy","2002/10/13",Now)

1 selv om personen er 0 år gammel

datediff forventer på min maskine formatet yy/mm/dd

PS: Jeg skal ikke have point for mn pseudokode, men hvis der er nogen,
der gider oversætte den til ASP/VB/Jscript - eller hvad brugeren nu vil have -
så er der sikkert et par point at tjene.... :)

erikjacobsen pseudokode oversat til "rigtig" kode:

  maaned = Month(rs("fødslesdatoKolonne")
  dag = Day(rs("fødslesdatoKolonne"))
  alder = Year(date)-Year(rs("fødslesdatoKolonne"))
  if Month(Date)<maaned OR (Month(Date)=maaned AND Day(date)<dag) then
    alder=alder-1
  end if

Med udgangspunkt i Erik's idé :-)

//akj

<%
set rs = conn.execute ("select * from foesda")

response.write  "født " & rs("foesda") & "<br>"

alder = year(now()) - year(rs("foesda"))

ty = dateadd("yyyy",alder,rs("foesda")  )

if ty > now() then
  alder = alder - 1
end if
response.write alder  & "<br>"

%>

Jeg vil gerne have den skrevet til asp kode

kkd >> ASP kan skrives i både vbscript og jscript.
Mit eks. herover er lavet i vbscript.

//akj

her er et ex:
<%
AlderDay = 10    'disse kan du shifte ud med fx: day(rs("fdato"))
AlderMonth = 12
AlderYear = 1960

dtBirthdate = alderday & "-" & aldermonth & "-" & alderYear
intAge = datediff("yyyy", dtBirthdate,now)

'Træk en fra hvis dag og måned (fødselsdag) er mindre end den actualle måned og dag:

If Date < DateSerial(Year(Now), Month(dtBirthdate), Day(dtBirthdate)) Then
intAge = intAge - 1
End If

response.write intAge
%>

Her er mit eksempel med kommentarer.

<%
' opret recordset med data, foesda er et felt i tabellen foesda af datatypen datetime
set rs = conn.execute ("select foesda from foesda")

' skriv fødselsdatoen
response.write  "født " & rs("foesda") & "<br>"

' hvor mange år er det siden ??
alder = year(now()) - year(rs("foesda"))

' læg antal år til fødselsdato
ty = dateadd("yyyy",alder,rs("foesda")  )

' hvis datoen beregnet herover er > nu har personen ikke haft fødselsdag endnu i år.
if ty > now() then
  ' vi trækker derfor 1 år fra.
  alder = alder - 1
end if

' udskriv alder.
response.write alder  & " år.<br>"

%>

//akj

Hov... der kludrede jeg sgu da i det.... Det er akj's foreslag jeg har brugt, og det virker perfekt!

Jeg håber du kan leve med mine klumsede fingre!

Akj's er lettere tilgængeligt for en novice som mig, selvom hosseins svar sikkert også er rigtigt!'

Du fik det til at virke og der er trods alt det vigtigste :-)

Det er jo "bare" point.

//akj