forespørgsel og modul

Hej alle

Jeg har dette modul, jeg vil anvende det i en forespørgsel hvor alderen skal vises pr 31-12-yyyy fra året før, dvs. idag ville det være 31-12-2004.

------------modul---------
Option Compare Database


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