Currency Rate Function

Needs["WebServices`"]

InstallService["http://www.xmethods.net/sd/2001/\
CurrencyExchangeService.wsdl"]

Installing an external web service gives Mathematica a function getRate that looks up current exchange rates:

getRate["Finland", "Japan"]

A few minutes later,the rate has changed slightly:

getRate["Finland", "Japan"]