histpx:{[tkr]
ymd:c!(c:`year`mm`dd)$.z.d;
s:http[`:http://ichart.yahoo.com; "GET /table.csv?s=",string[tkr],"&a=00&b=01&c=1900&d=",string[-1+ymd`mm],"&e=",string[ymd`dd],"&f=",string[ymd`year],"&g=d"; 3];
("DFFFFFF";1#",")0:s}
Usage:
q)histpx `IBM
Date Open High Low Close Volume Adj Close
--------------------------------------------------------
2008.05.02 123.3 124 121.76 123.18 6916600 123.18
2008.05.01 121.06 124.43 121.06 123.61 8230200 123.61
2008.04.30 123.34 123.5 120.5 120.7 8128300 120.7
2008.04.29 122.04 123.2 122.04 122.85 7226000 122.85
2008.04.28 122.61 123.05 121.64 121.69 5605200 121.69
..
