New in Wolfram Mathematica 7: Current & Historical Weather Data  previous | next 
Discover Weather Conditions on Historic Dates
Weather for the week of the original Mathematica product announcement.
In[1]:=

Click for copyable input
Grid[{DateListPlot[

     WeatherData["SantaClara", #, {{1988, 6, 19}, {1988, 6, 25}}], 

     Joined -> True, PlotLabel -> #, DateTicksFormat -> {"Day"}, 

     Mesh -> All] & /@ {"Temperature", "WindSpeed"}}, Frame -> All]
Out[1]=