Excel-VBA Calculate age from DOB when importing from SQL

Asked Mar 19 '16 at 20:55

Active Mar 19 '16 at 21:59

Viewed 355 times

I'm trying to import data from PGSQl into Excel and I ONLY want to import those that are aged <18y (dob) as of the eventdate. Both the date of birth (dob) and eventdate imports as dd/mm/yyyy 00:00

How should I write this into my SQL code?

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

asked Mar 19 '16 at 20:55

BradleyS

Try this `WHERE (DATE_PART('year', eventdate) - DATE_PART('year', dob)) < 18` – Ralph Mar 19 '16 at 21:06
[Possibly related.](http://stackoverflow.com/questions/6913719/postgres-birthdays-selection) – Comintern Mar 19 '16 at 21:06
I get a translation error; expected),got( – BradleyS Mar 19 '16 at 22:32
See PostGre's [age](http://www.techonthenet.com/postgresql/functions/age.php) function: `WHERE extract(year from age(eventdate, dob)) < 18` – Parfait Mar 20 '16 at 02:00
WHERE dob<=DATEADD("yyyy",-18,eventdate) ?? – Nathan_Sav Mar 20 '16 at 17:11

Excel-VBA Calculate age from DOB when importing from SQL

0 Answers0