timeseries= WolframAlpha["MSFT closing price",{{"HistoryDaily:Close:FinancialData",1},"TimeSeriesData"}]/.Quantity[val_,___]:>val;

Take[timeseries, 10]

DateListPlot[timeseries]

ListLinePlot[{timeseries[[All,2]],Differences[timeseries[[All,2]]]},Filling->Axis]