DateDiff og fødselsdag

Jeg sidder og laver sådan en tilmelding til en børnehave.

Børne vil jo gerne vide om de er 4 et halvt eller kun 4 år gammel...

Det halve år drille lidt...

Børneløbet som de tilmelder sig er den 03 Juni 2008

Mit eksempel

dinStr=day(rs("fodt")) &"-"& month(rs("fodt")) &"-"& year(rs("fodt"))

aaa=DateDiff("yyyy",rs("fodt"),"03-06-2008")

aarsdato= cdate(month(rs("fodt")) &"-"& day(rs("fodt")) &"-"& year(date))

ethalvt=""

if cdate(aarsdato)>cdate("06-03-2008") then
    aaa=aaa-1       
    ethalvt=" et halvt"
end if

if cdate(aarsdato)>cdate("12-03-2008") then
    ethalvt=" et halvt"
end if


Response.Write rs("Navn") & "<br>" & dinStr & "<br>" & aaa & " " & ethalvt