finde ud af om en person er under 19

Ligger fødselsdatoen som en dato?

I så fald kan du lægge denne kode i et modul til at beregne alderen:

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])

Herefter kan du benytte en IF-sætning til at returnere om alder er mindre end 19

Jeg har  fundet frem til denne her





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 < 18 Then
AgeInYears = "j"
Else
AgeInYears = "s"
End If
End If

End Function

Med den foreslåede funktion, kan du benytte denne select 

SELECT IIF((Alder([Dato]))<19,"j","s") AS Alder
FROM Tabel;