Excel-VBA从SQL导入时从DOB计算年龄

我试图导入数据从PGSQl到Excel中，我只想导入那些年龄<18y（dob）的事件。 出生date（dob）和eventdateinput为dd / mm / yyyy 00:00

我应该如何写入我的SQL代码？

Sheets("Sheet1").Select Range("A1").Select Dim conn As New Connection conn.ConnectionString = sqlconnection conn.Open Dim rs As Recordset Dim ITEM As String ITEM = "SELECT user.id,surname,forename,dob,source.eventdate,source.item " _ & "FROM source INNER JOIN user ON source.id=user.id " _ & "WHERE ???? " Set rs = conn.Execute(ITEM) With ActiveSheet.QueryTables.Add(Connection:=rs, Destination:=Range("A1")) .Refresh End With rs.Close