# How to get FinancialData[] Exchange Rates ?

GROUPS:
 Anonymous User Hi,I want to extract a times series of Exchange Rates between, say, EURO and USD. I enter the following command: FinancialData[{"EUR","USD"}, {{2005,1,1},{2008,1,1}}] Unfortunately, it does not work! and to my surprise, against my tremendous search in Mathematica to retrieve Times series exchange rates I simply cannot retrieve any time series exchange rates but only the current exchange rate. However, for stock market data, the above code works.What is going on? Please let me receive your help.Thanks.
2 years ago
6 Replies
 Vitaliy Kaurov 3 Votes We depend on financial services that sometimes are off on their side to provide the data. What I would recommend is to use Wolfram|Alpha calls. For example in your case: tmp = WolframAlpha["EUR vs USD from 2005 to 2008", {{"Result", 1}, "ComputableData"}]; DateListPlot[Most[tmp], PlotTheme -> "Detailed", AspectRatio -> 1/3, Filling -> Bottom] Below is explanation to understand this code.If one looks for curated data accessible from Mathematica, the WolframAlpha function should always be considered as an option, because it links to curated data bases with frequent continuous updating: data = WolframAlpha["^DJI price history", {{"HistoryDaily:Close:FinancialData", 1}, "TimeSeriesData"}, PodStates -> {"HistoryDaily:Close:FinancialData__All data"}]; And this is basically the same plot as in the documentation: DateListLogPlot[data, Filling -> 1, Joined -> True] You also can access these data interactively to get the same programming syntax. This can actually teach how syntax looks in different cases:To understand better WolframAlpha integration in Mathematica I suggest the following sources:
2 years ago
 Anonymous User Dear Vitaliy, Thanks to you that now I have the solution. However, I am still suspicious that my problem was because of the poor services of data providers. the reason is that I get the current exchange rate but cannot get times series since two days. Temel
2 years ago
 You also can use:Financial data from Quandl in Wolfram Language using QuandlLink << QuandlLink AUDvsUSDrates = QuandlFinancialData["CURRFX/AUDUSD", startDate -> "1995-1-1", endDate -> "2015-5-1"]; DateListPlot[Transpose[{#[[All, 1]], #[[All, 2, 1]]} &@Rest[AUDvsUSDrates]], PlotTheme -> "Detailed"] 
 This seems to be a yahoo finance thing. "X" is USD so for EUR/USD you need to divide by 1. For say USD/JPY you do not. euro = TimeSeries[FinancialData["EUR=X", "Price", {{2006}, {2016}, "Week"}][[All,2]]]; eurusd = 1/euro; ListLinePlot[eurusd]  ts = FinancialData["EUR=X", {{2006}, {2016}, "Week"}]; tx = TimeSeries[ts]; tsx = 1/tx; DateListPlot[tsx] `