alder udregnet i forspørgelse

hvordan ser en sådan input i feltet ud?

Jeg plejer at bruge følgende funktion:

Function AgeInYears(dBorn As Date, dDied As Date) As Integer

If DateSerial(Year(dDied), Month(dBorn), Day(dBorn)) > dDied Then
    AgeInYears = DateDiff("yyyy", dBorn, dDied) - 1
Else
    AgeInYears = DateDiff("yyyy", dBorn, dDied)
End If

End Function

Som du blot placerer i et modul, og så kan du kalde det fra din forespørgsel med:

AgeInYears([Født],Now())

Feltet [Født] skal selvfølgelig være i datoformat.

Hvis du gerne vil undgå kode, kan den her "lille" funktion også gøre det:

IIf(Month(Now())<Month([Født]) Or (Month(Now())=Month([Født]) And Day(Now())<Day([Født]));Year(Now())-Year([Født])-1;Year(Now())-Year([Født]))

hey sjap ... problemet er at født feltet er et tekst felt og indeholder "kun" ddmmyy (130569)

Function AgeInYears(born_date As String, dDied As Date) As String


If Not born_date = "1/1-1900" Then

dagen = (Mid(born_date, 1, 2))

maaeneden = (Mid(born_date, 3, 2))
aar = (Mid(born_date, 5, 2))
spilleraar = dagen & "/" & maaeneden & "-" & "19" & aar
thisaar = (Year(Date))
datoen = DateDiff("yyyy", spilleraar, "1/1/" & thisaar)


If datoen > 12 And datoen < 17 Then
AgeInYears = "j"
Else
AgeInYears = "s"
End If
End If

End Function

vi kan dele de point ..:-)

Du skal bare være opmærksom på at funktionen

datoen = DateDiff("yyyy", spilleraar, "1/1/" & thisaar)

kan give en fejl på 1 år. Prøv at se hvordan den bliver brugt i mit forslag.