Alderberegning

Ligger fødselsdatoen som en dato?
I så fald kan du lægge denne kode i et modul:

Public Function Alder(Dato As Date) As Integer
    If DateSerial(Year(Date), Day(Dato), Month(Dato)) > Date Then
        Alder = DateDiff(\"yyyy\", Dato, Date) - 1
    Else
        Alder = DateDiff(\"yyyy\", Dato, Date)
    End If
End Function

Herefter bruger du den bare i f.eks. en forespørgsel således:
NytFelt: Alder([Fødselsdato])

Hvis CPR er et tekstfelt (ddmmyy-xxxx) skal kaldet se således ud:
NytFelt: Alder(cvdate(left([CPR];6)))

/Thomas

Tak for dit hurtige svar.

Jeg har vist ikke udtrykt mig godt nok, eller også forstår jeg det ikke helt.
I forespørgslen er der et felt (CPR) i datoformat.
Udfra dette felt vil jeg gerne i et ekstra felt i forespørgslen have beregnet alderen.
Skal jeg anvende den samme funktion til det?
Som det er nu så beregner den alderen udfra den dato jeg indtaster i vinduet, og alle i forespørgslen får den samme alder...
 

Okay, det er fordi du skulle udskifte [Fødselsdag] med navnet på dit felt. Dvs at dit nye felt kan se således ud:

Alder: Alder([CPR])