Beregning af alder.

Hej Jeg har et lille problem som jeg håber I kan hjælpe mig med. Jeg har i min Outlookformular lagt en lille stump kode som skal udregne alderen udfra 2 indtastningsfelter, fødselsdatoen og dagsdato.

Jeg kan godt få den til at udregne alderen, men der hvor det går galt er hvis personeren har fødselsdag idag, så regner den alderen forkert ud...
Her er min kode, kan I se hvor jeg har gået galt i byen?? Eller hvis I har et alternativ kode.

Håber I kan hjælpe mig.

    laestFoedt = item.userproperties("x1").Value
    laestNu = item.userproperties("dddato").value
       
    year = Mid(laestFoedt, 5, 2)
    month = Mid(laestFoedt, 3, 2)
    day = Mid(laestFoedt, 1, 2)
    nyday = day + 1
   
    datTemp = DateSerial(1900 + year, month, nyday)
    fdag = right(datepart("yyyy",laestNu - dattemp),2)

Len